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of the ancient Babylonia, had discovered in a small 
castle bult about seven hundred years ago. 
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100 ’ 

101 ’»» tBl^.Ll »» 

102 ’ 

110 INITrWIDTH 40 : CONSOLE 0,25 : CLS4 
120 ’ 

130 ’*** PLOT t** 

140 'ROAD 

150 SCREEN ,,0 : COLOR 3 

160 LINE {140,0)-(140,120)-(0,120) 

170 LINE (0,140)-(140,140)-( 140,199) 
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180 LINE ( 180,0)-( 180,60)-(319,60) 

190 LINE (319,80)-(180,80)-(180,199) 

200 COLOR 7 

210 FOR N=0 TO 40 STEP 40 
220 X=115:Y=20+N 
230 "SQUARE" 

240 NEXT 
250 ’ 

260 FOR N=0 TO 80 STEP 40 
270 X=210+N:Y=30 
280 "CIR." 

290 X=35+N:Y=100 
300 "SQUARE" 

310 Y=170 
320 "PLANT" 

330 NEXT 
340 ’ 

350 X=250:Y=140 
360 "POLY" 

370 X=150:Y=140 
380 "PLANE" 

390 ’ 

400 SCREEN ,,0 

410 A$=INKEY$(0):IF A$="" THEN 410 
420 END 
430 ’ 

440 LABEL "SQUARE" 

450 FOR 1=1 TO 2 
460 SCREEN ,,I 
470 X11=X:Y11=Y 
480 X21=Xll-7:Y21=Yll+7 
490 X12=X11+12+12*(I-l):Y12=Y11-12 
500 X22=X12-15:Y22=Y12+15 
510 LINE (X11,Y11)-(X21,Y21),PSET,B 
520 LINE (X12,Y12)-(X22,Y22),PSET,BF 
530 LINE (X11,Y11)-(X12,Y12),PSET 
540 LINE (X21,Y21)-(X22,Y22),PSET 
550 LINE (Xll,Y21)-(X12,Y22),PSET 
560 LINE (X21,Y11)-(X22,Y12),PSET 
570 NEXT 
580 RETURN 
590 ’ 

600 LABEL "CIR." 

610 FOR 1=1 TO 2 
620 X1=X+(I-1)»10:Y1=Y 
630 SCREEN ,,I 
640 CIRCLE (XI,Y1),12 
650 PAINT (XI,Yl),1,1,2 
660 NEXT 
670 RETURN 
680 ’ 

690 LABEL "PLANE" 

700 FOR N=1 TO 2 
710 SCREEN ,,N 
720 X=X+(N-1)*20:Y=Y 
730 Xl=X-2: X2=X+2: X3=X+5: X4=X-5: X5=X-15: X6=X+15 
740 Yl=Y+38: Y2=Y+8: Y3=Y+10: Y4=Y+13 
750 CIRCLE (X,Y),2,7,1,0,180 
760 LINE (X1,Y)-(X5,Y1)-(X6,Y1)-(X2,Y) 

770 LINE (X4,Y2)-(X4,Y1):LINE (X5,Yl-7)-(X5,Yl) 

780 LINE (X3,Y2)-(X3,Y1):LINE (X6,Yl-7)-(X6,Yl) 

790 CIRCLE (X,Y4),2,7,2 

800 PAINT(X,Y4),1:PAINT(X5+1,Yl-1),1:PAINT(X6-1,Y1-1),1:PAINT(X5+6,Yl-1),1:PAINT 

(X6-6,Y1-1),1 

810 NEXT 

820 RETURN 

830 * 

840 LABEL "PLANT" 

850 FOR 1=1 TO 2 

860 SCREEN ,,I 

870 Xl=X-10:Yl=Y-20 

880 X2=X1:Y2=Yl+40 

890 X3=X+(I-1)*8-4:Y3=Yl+50 

900 X4=X3:Y4=Y1-10 

910 X5=X+10:Y5=Y1 

920 X6=X5:Y6=Y2 

930 LINE (X4,Y4)-(X1,Y1)-(X2,Y2)-(X3,Y3)-(X4,Y4)-(X5,Y5)-(X6,Y6)-(X3,Y3) 

940 NEXT 
950 RETURN 
960 ’ 

970 LABEL"POLY" 

980 FOR N=1 TO 2 
990 SCREEN ,,N 
1000 FOR 1=0 TO 3 

1010 X1=X+(N-1)*I*4-I*2 :Y1=Y: Rl=40-I*10 

1020 POLY (X1,Y1),R1,7,60 

1030 POLY (XI,Y1),R1-1,7,60 

1040 POLY (XI,Y1),Rl-2,7,60 

1050 POLY (XI,Y1),Rl-3,7,60 

1060 NEXT 

1070 NEXT 

1080 RETURN 
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’Left eye "RED" 


’Right eye "BLUE" 


"Pole Star" 
"Giraffe" 
"Little Bear" 
"Dragon" 


100 ’ 

101 ** 

102 ’ 

110 INIT:WIDTH 80:SCREEN0,0,0:CONSOLE0,25:CLS 4 
120 READ XX,XX2,YY:RESTORE 
130 READ X,X2,Y,Z:IF X=-l THEN 220 
140 IF Z=0 THEN XX=X:XX2=X2:YY=Y:GOTO 130 
150 SCREEN ,,1 

160 ON Z GOSUB 450,430,410,400 
170 LINE (XX,YY)-(X,Y),PSET,7,&H8888:XX=X 
180 X=X2:SCREEN ,,2 
190 ON Z GOSUB 450,430,410,400 

200 LINE (XX2,YY)-(X,Y),PSET,7,&H8888:XX2=X:YY=Y 
210 GOTO 130 
220 DOT=200 
230 FOR 1=1 TO DOT 
240 SCREEN ,,2 
250 X=640»RND:Y=200»RND 
260 GOSUB 400 
270 SCREEN,,1 
280 X=X+INT(RNDC10) 

290 GOSUB 400 
300 NEXT 
310 SCREEN0,0,0 
320 LOCATE 38,3:PRINT 
330 LOCATE 64,5:PRINT 
340 LOCATE 36,8:PRINT 
350 LOCATE 6,10:PRINT 
360 LOCATE 34,22:PRINT "Hound" 

370 LOCATE 61,22:PRINT "Great Bear" 

380 A$=INKEY$(0):IF A$="" THEN 380 
390 END 

400 PSET(X,Y):RETURN 

410 LINE(X-1,Y)-(X,Y+1)-(X+1,Y)-{X,Y-1)-(X-l,Y) 

420 PAINT(X,Y),7,1:RETURN 

430 LINE(X-2,Y)-(X,Y+2)-(X+2,Y)-(X,Y-2)-(X-2,Y) 

440 PAINT(X,Y),7,1:RETURN 
450 CIRCLE(X,Y),2,7,1 
460 PAINT(X,Y),7,1:RETURN 
1000 ’ GREAT BEAR 
1010 DATA 425,416,186,0 

1020 DATA 425,416,186,3,424,410,156,2,369,360,150,3 
1030 DATA 198,202,136,1,240,249,126,1,274,287,127,1 
1040 DATA 321,330,127,2,345,353,136,2,411,420,126,1 
1050 DATA 395,403,110,1,321,330,127,2 
1060 DATA 395,403,110,0 

1070 DATA 395,403,110,1,463,471,98,3,524,514,88,2,562,575,118,2 
1080 DATA 463,471,98,0 

1090 DATA 463,471,98,3,465,473,111,3,513,523,121,2,506,492,151,3 
1100 DATA 573,568,122,0 

1110 DATA 573,568,122,3,494,504,155,2,418,428,191,3 
1120 ’ LITTLE BEAR 
1130 DATA 351,341,40,0 

1140 DATA 351,341,40,1,322,309,44,3,287,282,50,3 

1150 DATA 264,269,60,3,239,246,58,4,242,228,72,3 

1160 DATA 258,266,72,1,264,269,60,3 

1170 ’ HOUND 

1180 DATA 282,295,165,0 

1190 DATA 282,295,165,3,246,251,173,2 

1200 ’ DRAGON 

1210 DATA 81,90,45,0 

1220 DATA 42,48,44,1,57,51,55,2,77,72,53,4,81,90,45,3 
1230 DATA 173,181,25,2,214,201,20,3 
1240 DATA 173,181,25,0 

1250 DATA 173,181,25,2,192,202,39,3,204,214,38,3 
1260 DATA 192,202,39,0 

1270 DATA 192,202,39,3,156,165,57,2,137,146,72,2 

1280 DATA 126,134,82,3,150,157,92,2,242,238,99,3 

1290 DATA 314,317,94,4,358,362,96,3 

1300 ’ GIRAFFE 

1310 DATA 500,497,47,0 

1320 DATA 500,497,47,4,452,437,52,4,518,510,26,3 
1330 DATA 572,556,25,3,607,612,17,3 
1340 DATA 518,510,26,0 

1350 DATA 518,510-,26,3,460,464,17,4,506,492,9,4 
1360 DATA 572,556,25,3,-1,0,0,0 
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100 ’ 

101 ’** 33 .L3 ** 

102 ’ 

110 INIT:CLEAR:WIDTH 40:CONSOLE0,25:CLS4 

120 A$=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 
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130 B$=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 

140 C$ = HEXCHR$( *'000000000000000000000000000000000000000000000000") 
150 ' 


160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 


Xla=160:Xlb=160:Yla=120:Ylb=80 
Y2a=Yla:Y2b=Ylb 

SCREEN 0,0,0 

POSITION Xla,Yla:PATTERN -24,C$,C$,C$ 
POSITION X2a,Y2a:PATTERN -24,C$,C$,C$ 
SCREEN ,,1 

Xla=Xla-20:IF Xla<0 THEN Xla=280 
POSITION Xla,Yla:PATTERN -24,A$,A$,A$ 
SCREEN ,,2 :X2a=Xla+10 ’ 10 ••• 

POSITION X2a,Y2a:PATTERN -24,A$,A$,A$ 

SCREEN 0,0,0 

POSITION Xlb,Ylb:PATTERN -16,C$,C$ 
POSITION X2b,Y2b:PATTERN -16,C$,C$ 
SCREEN ,,1 

Xlb=Xlb+8:IF Xlb>303 THEN Xlb=8 
POSITION Xlb,Ylb:PATTERN -16,B$,B$ 
SCREEN ,,2 :X2b=Xlb-8 ’ 8 ••• 
POSITION X2b,Y2b:PATTERN -16,B$,B$ 


PAUSE 5 

S$ = INKEY$:IF S$ = "'’ 


THEN 190 ELSE INITrWIDTH 80:END 
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100 ’ 

101 ’»* h ij=. .L4 ** 

102 ' 

110 INIT:CLEAR:WIDTH 40:SCREEN 0,0,0:CONSOLE0,25:CLS4:CGENl:PRW &B1110 
120 GOSUB "PCG" 

130 SCREEN ,, 1 :CL=1:GOSUB 

140 SCREEN ,,2:CL=2:GOSUB ":SCREEN 0,0,0 

150 SOUND 6,20:SOUND 7,&H37:SOUND 8,16:SOUND 11,0:SOUND 12,90:SOUNDl3,14 

160 ’ [ -t^T^ ] 

170 Ya=l:Yb=7:Yc=20 
180 Xa=20:Xb=20:Xc=0 
190 FLb=l:FLc=l 
200 ’ ] 

210 X=Xa:Y=Ya:No=24:GOSUB"PRNT" * 

220 Xa=Xa-l:IF Xa<0 THEN Xa=35 
230 X=Xa:No=0:GOSUB"PRNT" 

240 ’ [an/h ] 

250 X=Xb:Y=Yb:No=24:GOSUB"PRNT" 

260 ON FLb GOTO 270,280 

270 Xb=Xb-l:IF Xb<17 THEN FLb=2:GOTO 260 ELSE 290 
280 Xb=Xb+l:IF Xb>35 THEN FLb=l:GOTO 260 
290 X=Xb:No=8:GOSUB"PRNT” 

300 ’ [*x 3 

310 X=Xc:Y=Yc:No=24:GOSUB"PRNT" 

320 ON FLc GOTO 330,340 

330 Xc=Xc+l:IF Xc>20 THEN FLc=2:GOTO320 ELSE 350 
340 Xc=Xc-l:IF Xc<0 THEN FLc=1:GOTO320 
350 X=Xc:No=16:GOSUB"PRNT" 

360 ' 

370 KK$ = INKEY$:IF KK$ = "" THEN 210 ’ J/a'^VaOXA' 

380 INIT: SCREEN 0,0,0 .'WIDTH 80 : CLS4 : CGEN0 : SOUND 7,&H3F:SOUND 8,0 : END 

390 '===========================================r========================== 

400 LABEL " PRNT "M 4x2 k '✓ ). 

410 FOR J=0 TO 1 
420 FOR 1=0 TO 3 

430 LOCATE X+I,Y+J:PRINT#0,CHR$(No+I+J»4) 

440 NEXT 

450 NEXT:RETURN 

460 ’ 

470 LABEL"PCG'” (PCGy ). 

480 DEFCHR$(0)=HEXCHR$("000000000000000000000000000000030000000000000000") 
490 DEFCHR$(1)=HEXCHR$("000000000000000100000000000103FF0000000000000000" ) 
500 DEFCHR$(2)=HEXCHR$("00000000000001FF00000000C0C0C0E00000000000000000") 
510 DEFCHR$(3)=HEXCHR$("0000000060E0E0F000000000000000000000-000000000000") 
520 DEFCHR$(4)=HEXCHR$("00000000000000000C1F0F00000000000000000000000000") 
530 DEFCHR$(5)=HEXCHR$("060F070000000000FFFFFF3F000000000000000000000000") 
540 DEFCHR$(6)=HEXCHR$("7FFFFF1F00000000E0C0E0C0000000000000000000000000") 
550 DEFCHR$(7)=HEXCHR$("F0E0F0E00000000000000000000000000000000000000000") 
560 DEFCHR$(8)=HEXCHR$("000000000000000000000000000000000000000000000000" ) 
570 DEFCHR$(9)=HEXCHR$("0000000000000000000008080C0E0F0F0000000000000000") 
580 DEFCHR${10)=HEXCHR$("00008080C0E0F0F800000000000000800000000000000000") 
590 DEFCHR$(11)=HEXCHR$("000000000000000000000000000000000000000000000000") 
600 DEFCHR$(12)=HEXCHR$("000000000000000000000000030100000000000000000000") 
610 DEFCHR$(13)=HEXCHR$("000000001F0F07000F0F0F0FFFFFFF000000000000000000") 
620 DEFCHR$(14)=HEXCHR$("FCFFFCF0FFFFFF00C0F0C000F8F0E0000000000000000000") 
630 DEFCHR$(15)=HEXCHR$("00000000C080000000000000000000000000000000000000") 
640 DEFCHR$(16)=HEXCHR$("0000070C0703010000000000000000000000000000000000") 
650 DEFCHR$(17)=HEXCHR$("00008000B33392D200003C603D190C060000000000000000") 










660 DEFCHR$(18)=HEXCHR$("0000780C783060C0000003009B9993960000000000000000") 
670 DEFCHR$(19)=HEXCHR$("00000000000000000000C060C08000000000000000000000’’) 
680 DEFCHR$(20)=HEXCHR$("070817081314050000000000000000000000000000000000") 
690 DEFCHR$(21)=HEXCHR$("7FFFF3E1E1FF00003B47BF479FA728000000000000000000") 
700 DEFCHR$(22)=HEXCHR$("B8C4FAC4F2CA2800FDFE9F0E0FFE01000000000000000000") 
710 DEFCHR$(23)=HEXCHR$("0000000000000000C020D020905040000000000000000000") 
720 DEFCHR$(24)=HEXCHR$("000000000000000000000000000000000000000000000000") 
730 DEFCHR$(25)=HEXCHR$("000000000000000000000000000000000000000000000000") 
740 DEFCHR${26)=HEXCHR$("000000000000000000000000000000000000000000000000") 
750 DEFCHR${27)=HEXCHR$("000000000000000000000000000000000000000000000000") 
760 DEFCHR$(28)=HEXCHR$("000000000000000000000000000000000000000000000000") 
770 DEFCHR${29)=HEXCHR$("000000000000000000000000000000000000000000000000") 
780 DEFCHR$(30)=HEXCHR$("000000000000000000000000000000000000000000000000") 
790 DEFCHR$(31)=HEXCHR$("000000000000000000000000000000000000000000000000") 
800 RETURN 
810 ’ 

820 LABEL"A>f^^"’? *7 ^-fy)**t**t*t*************ttt*t*tt**ttt*t***tt**t* 

830 LABEL"i^t-A":RESTORE 1170:’. 

840 READ X,Y,R:IF X = Y AND Y=R THEN "i^t-B" 

850 CIRCLE(X+(CL=2)*8,Y),R,CL:PAINT(X+(CL=2)*8,Y),CL,1,2 
860 GOTO 840 

870 LABEL"i^=E-B" :RESTORE 1210 

880 READ X,Y,R,I:IF 1 = 0 THEN ">f7-A" 

890 CIRCLE(X+(CL=2)*6,Y),R,CL,I:PAINT{X+(CL=2)*6,Y),CL,1,2 
900 GOTO 880 
910 ’ 

920 LABEL'W7-A":RESTORE 1320:’. 

930 LINE(148+(CL=2)*10,56)-(248+(CL=2)*10,56),PSET,CL 

940 LINE(6+(CL=2)*7,72)-(319+(CL=2)*7,72),PSET,CL 

950 LINE(6+(CL=2)*6,74)-(319+(CL=2)*6,74),PSET,CL 

960 PAINT(88+(CL=2)*8,56),CL,1,2:PAINT(184+(CL=2)*8,48),CL,1,2 

970 ’ 

980 LINE(-8-(CL=2)*8,99)-(6-(CL=2)*8,101),PSET,CL 


990 READ X1,Y1:IF X1=0 AND Y1=0 THEN 'W7-B" 

1000 LINE -(X1-(CL=2)»8,Y1) 

1010 GOTO 990 
1020 ’ 

1030 LABEL">f7-B":RESTORE 1350 

1040 LINE(126-(CL=2)*4,174)-(129-(CL=2)»4,171),PSET,CL 
1050 READ X2,Y2:IF X2=0 AND Y2=0 THEN 1080 
1060 LINE -(X2-(CL=2)»5,Y2) 

1070 GOTO 1050 

1080 LINE(179-(CL=2)*4,177)-(120-(CL=2)*4,177),PSET,CL 
1090 LINE(125-(CL=2)*4,177)-(127-(CL=2)*4,174),PSET,CL 
1100 PAINT(37-(CL=2)*4,166),CL,1,2:PAINT(149-(CL=2)*4,166),CL,1,2 
1110 ’ 

1120 LABEL "75":RESTORE 1220:’. 

1130 READ X1,Y1,X2,Y2:IF X1=0 AND X2=0 THEN RETURN 

1140 LINE(X1+(CL=2)*(110-Y1)*.2,Y1)-(X2+(CL=2)*(110-Y2)*.2,Y2),PSET,CL 

1150 GOTO 1130 

1160 ’[LINE & PAINT If-k37 

1170 DATA 48,64,8,56,56,8,60,44,8,68,32,8,80,24,12,102,26,10 
1180 DATA 108,44,10,120,56,8,120,68,4 

1190 DATA 148,52,4,160,45,10,156,32,8,160,24,4,172,18,10,190,21,10 
1200 DATA 200,32,8,212,40,10,228,36,8,240,40,4,248,46,10,0,0,0 
1210 DATA 258,11,19,.4,283,19,17,.3,0,0,0,0 

1220 DATA 0,76,319,76,330,108,248,113,248,113,198,112,198,112,122,108 

1230 DATA 153,103,83,112,83,112,41,110,41,110,18,104,18,104,15,101 

1240 DATA 0,79,5,78,5,78,14,79,14,79,45,78,45,78,58,79,58,79,62,78 

1250 DATA 62,78,68,79,68,79,118,78,118,78,130,79,130,79,286,79 

1260 DATA 286,79,311,78,319,81,228,80,228,80,162,81,162,81,57,80 

1270 DATA 57,80,21,81,21,81,0,81,0,85,21,86,21,86,87,83,85,85,174,89 

1280 DATA 164,85,223,91,223,91,319,85,264,83,196,84,56,86,71,87 

1290 DATA 74,86,105,88,30,89,69,91,48,93,79,94,120,92,177,91,170,96,240,95 

1300 DATA 248,104,309,103,77,103,120,100,147,106,167,105,129,78,205,78 

1310 DATA 0,0,0,0 

1320 DATA 6,101,13,100,16,101,18,104,21,105,23,112,25,113,30,116 
1330 DATA 32,119,35,128,38,138,42,143,45,149,55,155,58,159,60,166 
1340 DATA 58,170,57,173,57,176,61,182,63,187,71,194,84,199,0,0 
1350 DATA 131,166,135,163,136,161,139,160,143,161,149,162,155 
1‘360 DATA 161,165,164,168,168,170,172,175,177,0,0 

1370 ’[Program End]************************************************************ 


Xl/XIturbo 


100 ’ 

101 ’♦* •!; .L5 ** 

102 ’ 

110 INIT:WIDTH 40:CONSOLE 0,25:CLS 4 
120 INPUT"A1'-^A? 1-3 (0:END)",S 

130 CLS4 

140 IF S=1 OR S=2 OR S=3 THEN GOTO 160 ELSE IF S=0 THEN GOTO 150 ELSE GOTO 120 
150 INIT:CLS 4:END 
160 S=S*6 

170 GOSUB"DEFI.CHR" 

180 ’ 

190 ’«» PLOT ** 
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200 XH=20:YH=4:LH=11 
210 GOSUB "POLE" 

220 FOR 1=180 TO -180+S STEP -S 

230 X=150*COS(RAD(I))+160:Y=40*SIN(RAD(I))+100:D=16»SIN(RAD(I)) 

240 A$=HEXCHR$("0000000000000000"): "PLOT" 

250 X1=X:Y1=Y:D1=D 

260 A$=HEXCHR$("3C7EFFFFFFFF7E3C"): "PLOT" 

270 B$=INKEY$:IF B$=" " THEN CLS4:GOTO 120 
280 NEXT 
290 GOTO 220 
300 ’ 

310 LABEL"PLOT" 

320 FOR N=1 TO 2 
330 SCREEN ,,N 
340 X2=X1+D1*(N-1): Y2=Y1 
350 POSITION X2,Y2 
360 PATTERN-8,A$ 

370 NEXT 
380 RETURN 
390 ’ 

400 LABEL"POLE" 

410 CGEN 1 
420 FOR N=0 TO LH 
430 FOR I=-l TO 1 
440 XH1=XH+I:YH1=YH+N 
450 LOCATE XHl,YHl:PRINT#0,CHR$(&H3); 

460 NEXT 
470 NEXT 
480 CGEN 0 
490 RETURN 
500 ’ 

510 LABEL "DEFI.CHR" 

520 DEFCHR$(3)=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000") 
530 RETURN 



'J h 6 “ 'f 1" , XI /X1 turbo 


100 ’ 

101 ’** .L6 %* 

102 ’ 

110 INIT:WIDTH 40:CONSOLE0,25:CLS4:CLEAR 
120 DIM PX(7),PY(7),PZ(7),ixR(7),ixL(7),iy(7) 

130 WINDOW(0,0)-(319,199),(-160,100)-(160,-100) 

140 SCREEN 0,0,0:CLS4 

150 LINE(-160,0)-(160,0),PSET,3:LINE(0,100)-(0,-100),PSET,3 
160 ' [f/'^ 

170 ee=3! ’ [cm] • • • • J J a>7'> 

180 ce = 80! ’[cm]--- - CRT h J 

190 * [■?-a*5f> ka7 ) 3535] 

200 RESTORE 440 
210 FOR n=0 TO 7 
220 READ PX(n),PY(n),PZ(n) 

230 NEXT 

240 GOSUB "ROTATION" ^f-ka7 7 

250 3^ & 5^'* ;i ka7 ? 

260 FOR n=0 TO 7 

270 ixR(n) = (((PX(n) -ee ) *ce/ (ce-PZ (n) ) ) -Hee ) * 11.7 
280 ixL(n)=(((PX(n)+ee)*ce/(ce-PZ(n)))-ee)»ll.7 
290 iy(n)=(ce*PY(n)/(ce-PZ(n)))*11.7 
300 NEXT 
310 ’ [ka7i/- ] 

320 SCREEN 0,0,1 :RESTORE 430 
330 READ A,B:IF A=B THEN 360 

340 LINE(ixR(A),iy(A))-(ixR(B),iy(B)) :GOTO330 

350 ’ 

360 SCREEN 0,0,2 :RESTORE 430 
370 READ C,D:IF C=D THEN 400 

380 LINE(ixL(C),iy(C))-(ixL(D),iy(D)) :GOTO370 

390 ’ 

400 ST$=INKEY$:IF ST$=" " THEN 410 ELSE IF ST$=CHR$(13) THEN 140 ELSE 400 
410 INITrWIDTH 80:END 

420 ’==============r==r=====================================r========r=r= 



430 DATA 0,1,1,2,2,3,3,0,4,5,5,6,6,7,7,4,0,4,1,5,2,6,3,7,0,0 :’LINE 
440 DATA -5,5,5 ’P(0) J '(f 

450 DATA 5,5,5 ’P(1) 

460 DATA 5,-5,5 ’P(2) 

470 DATA -5,-5,5 ’P(3) 

480 DATA -5,5,-5 ’P(4) 

490 DATA 5,5,-5 ’P(5) 

500 DATA 5,-5,-5 ’P(6) 

510 DATA -5,-5,-5 ’P(7) 

520 ’ 

530 LABEL"ROTATION t********tttt******t******t***t*t**tt****t*t***t*tttt***tt 
540 ’ [INPUT-- - PX(n) ,P.Y(n) ,PZ(n) ] 

550 CLS: INPUT" > t'(f> UifV* (x,y,z) =" , RRx , RRy, RRz : CLS 
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560 IF RRx<-360 OR RRx>360 THEN 550 

570 IF RRy<-360 OR RRy>360 THEN 550 

580 IF RRz<-360 OR RRz>360 THEN 550 

590 ’ 

600 FOR n=0 TO 7 
610 RRx* 

620 Xx=PX(n) 

630 Yx=PY(n)*COS(RAD(RRx))-PZ(n)*SIN(RAD(RRx)) 
640 Zx=PY(n)»SIN(RAD(RRx))+PZ(n)»COS(RAD(RRx)) 
650 -7^^=. RRy* 

660 Xxy=Xx*COS(RAD(RRy))+Zx«SIN(RAD(RRy)) 

670 Yxy=Yx 

680 Zxy=-Xx»SIN(RAD(RRy))+Zx»COS(RAD(RRy)) 

690 v7V:i RRz* li'ir'y 

700 Xxyz=Xxy*COS(RAD(RRz))-Yxy*SIN(RAD(RRz)) 
710 Yxyz=Xxy*SIN(RAD(RRz))+Yxy»COS(RAD(RRz)) 
720 Zxyz=Zxy 
730 » 

740 PX(n)=Xxyz:PY(n)=Yxyz:PZ(n)=Zxyz 
750 NEXT:RETURN 


U X h 7 “‘/ ‘y 2” Xl/Xlturbo 


100 

101 

102 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


.L7 ** 


INIT:WIDTH 40:CONSOLE0,25:CLS4:CLEAR 
DIM PX(7),PY(7),PZ(7),ixR(7),ixL(7),iy(7) 
WINDOW(0,0)-(319,199),(-160,100)-(160,-100) 

' [ t’vf'f ] 

ee = 3! ’[cml*--- ) a>7'> 

ce = 80! ’[cm]--* - CRT Y i 

’ [fa7f> y 3235] 

RESTORE 470 
FOR n=0 TO 7 
READ PX(n),PY(n),PZ(n) 

NEXT 

GOSUB "ROTATION" ' • • • ^ 

COLOR 4:LOCATE 0,0:PRINT"*X-ANGLE=";RRx; 

COLOR 5:LOCATE 0,1:PRINT"*Y-ANGLE=";RRy; 

COLOR 6:LOCATE 0,2:PRINT"*Z-ANGLE=";RRz; 

f ka7 7 ^'ft'yXfY] 

FOR n=0 TO 7 

ixR(n) = (((PX(n)-ee)*ce/(ce-PZ(n)))+ee)*ll .7 
ixL(n)=(((PX(n)+ee)»ce/(ce-PZ(n)))-ee)*ll.7 
iy(n)=(ce»PY(n)/(ce-PZ(n)))*11.7 
NEXT 
’ [ka7'>* 

SCREEN 0,0,0:CLS0 
LINE(-160,0)-(160,0),PSET,3:LINE(0,100)-(0,-100),PSET,3 

I 

SCREEN 0,0,1 :RESTORE 460 
READ A,B:IF A=B THEN 400 
LINE(ixR(A),iy(A))-(ixR(B),iy(B)) ;GOTO370 

» 

SCREEN 0,0,2 :RESTORE 460 
READ C,D:IF C=D THEN 440 
LINE(ixL(C),iy(C))-(ixL(D),iy(D)) :GOTO410 



K$=INKEY$ 

»tttttttt 

DATA 0,1, 
DATA -5,5 
DATA 5,5, 


:IF K$=" 
%%%%%%%% 
1 , 2 , 2 , 3 , 
,5 


5 

DATA 5,-5,5 
DATA -5,-5,5 
,-5 
-5 
,-5 
5,-5 


DATA -5,5 
DATA 5,5, 
DATA 5,-5, 
DATA -5,-5 


" THEN 
ttttttt 
3,0,4,5 
'P(0 
'P(l 
’P(2 
’P(3 
*P(4 
’P(5 
’P(6 
’P(7 


180 
%*% 
,5,' 
) v' 
) 

) 

) 

) 

) 

) 

) 


ELSE CLS4:WIDTH 80:SCREEN 0,0,0:END 

t*t*ttttt**tt**ttttttttt*t*t**ttt*ttt*t**tttt**. 

6,6,7,7,4,0,4,1,5,2,6,3,7,0,0 :’LINE f*-5^ 

(x,y, z) 


LABEL"ROTATION "’**t**tt*tt*tt*****t*tt*tttt*tttt*t***ttt**t**t*tttt**t**** 
• [INPUT*•• PX(n),PY(n),PZ(n)] 

RRx=RRx+10:IF RRx>360 THEN RRx=0 
RRy=RRy+10:IF RRy>360 THEN RRy=0 
RRz=RRz+10:IF RRz>360 THEN RRz=0 


FOR n=0 TO 7 

'*Xyy>> V7';- RRx* •tJ'(f'y 

Xx=PX(n) 

Yx=PY(n)»COS(RAD(RRx))-PZ(n)»SIN(RAD(RRx)) 
Zx=PY(n)»SIN(RAD(RRx))+PZ(n)»COS(RAD(RRx)) 
V7';:: RRy* t'(f'y 

Xxy=Xx*COS(RAD(RRy))+Zx*SIN(RAD(RRy)) 
Yxy=Yx 

Zxy=-Xx»SIN(RAD(RRy))+Zx*COS(RAD(RRy)) 

V7V:i RRz* U^f'y 
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720 Xxyz=Xxy»COS(RAD(RRz))-Yxy*SIN{RAD(RRz)) 
730 Yxyz=Xxy*SIN(RAD(RRz))+Yxy»COS(RAD(RRz)) 
740 Zxyz=Zxy 
750 ’ 

760 PX(n)=Xxyz:PY(n)=Yxyz:PZ(n)=Zxyz 
770 NEXT:RETURN 




100 ’ 

101 ** 

102 » 

110 INIT:WIDTH 80:SCREEN 0,0:CONSOLE 0,25:CLS 4 
120 EYD=6:OFS=2:C=2 

130 QAX=-20:QAY=40:QAZ=-50:STP=20:STP1=10 
140 TX=-30:TY=-30:PSZ=-300:GOSUB 210 

150 »- - 

160 CLS: LOCATE 1,0: INPUT j ivy'r'i - ",R 

170 E=-l:COLOR 2:SCREEN j,2: GOSUB 250 

180 E=-E:COLOR 1:SCREEN ,,1: GOSUB 250 

190 BEEP 
200 INIT:END 

210 »- J - 

220 SS=SIN(RAD(TX)):SF=SIN(RAD(TY)) 

230 TS=COS(RAD(TX)):TF=COS(RAD(TY)) 

240 RETURN 

250 »- 7P-A - 

260 FOR J1=0 TO 180 STEP STP 

270 X0=R*COS(RAD(J1)):R1=R*SIN(RAD(J1)) 

280 X=X0:Y=R1:Z=0 

290 GOSUB 440:LINE (X,Y)-(X,Y),PSET 
300 FOR J2=0 TO 360 STEP STPl 

310 X=X0:Y=R1*COS{RAD(J2)):Z=R1*SIN(RAD(J2)) 

320 GOSUB 440:LINE -(X,Y) 

330 NEXT 
340 NEXT 

350 FOR J1=0 TO 180 STEP STP 

360 Y0=R*COS(RAD(J1)):R1=R*SIN(RAD(J1)) 

370 X=R1:Y=Y0:Z=0 

380 GOSUB 440:LINE(X,Y)-(X,Y),PSET 
390 FOR J2=0 TO 360 STEP STPl 

400 X=Rl»COS(RAD(J2)):Y=Y0:Z=R1*SIN(RAD(J2)) 

410 GOSUB 440:LINE -(X,Y) 

420 NEXT 
430 NEXT:RETURN 

440 ’- J 'S'ylJ'y - 

450 X=X-QAX:Y=Y-QAY:Z=Z-QAZ 
460 XX=X*TF+Z*SF 
470 YY=X*SS*SF+Y*TS-Z*SS*TF 
480 ZZ=-X*TS*SF+Y*SS+Z*TS*TF 
490 X=XX:Y=YY:Z=ZZ 
500 X=X-EYD*E 

510 PS=1-Z/PSZ:X=X/PS:Y=Y/PS 
520 X=320+(X+OFS*E)*2:Y=100-Y 
530 RETURN 




100 ' 

101 7* L9 »* 

102 ’ 

110 INIT:WIDTH 80:CONSOLE 0,25:CLS 4 

120 ’-make- 

130 r=30:p=45 

140 FOR i=0 TO 2*3.14 STEP 3.14/15 
150 rr=SQR(r*r+p*p+2*p*r*COS(i)) 

160 FOR j=0 TO 2*3.14 STEP 3.14/2/rr 
170 x=(rr*COS(j)+r*COS(i))*2+320 

180 y=rr*SIN(J)+r*SIN(i)+100 

190 c=c+l: IF c > 7 THEN c=0 

200 PSET (x,y,c) 

210 NEXT j 
220 NEXT i 

230 *-palet- 

240 FOR q=0 TO 3000 
250 FOR w=0 TO 4 STEP 2 
260 PALET (q+w)MOD7+l,w 

270 NEXT 
280 NEXT 

290 CLS 4:INIT:END 


Xl/Xlturbo 



” Xl/Xlturbo 
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UXMO Xl/Xlturbo 


100 * 

101 ’** -tJfTY” Att* .L10 ** 

102 ’ 

110 INIT:WIDTH 80:CONSOLE 0,25:CLS 4 
120 WINDOW (0,0)-(639,199),(0,50)-(639,249) 

130 ’-main- 

140 GOSUB 450 

150 xe=RND(1)*500+100:ye=100-RND(1)*30:rl=RND(1)*4+2 
160 FOR c=3 TO 6:PALET c,0:NEXT c 
170 PALET 1,2:PALET 2,4:PALET 7,3 
180 GOSUB 360 

190 FOR y=154 TO ye STEP -2 
200 x=RND(1)*8+xe 
210 PSET (x,y,l):PSET (x+l,y,2) 

220 FOR i=0 TO 10:NEXT i 
230 PSET (x,y,0):PSET (x+4,y,0) 

240 NEXT y 

250 ’-palet- 

260 FOR q=0 TO 100 
270 FOR w=0 TO 4 STEP 2 
280 PALET (q+w)MOD4+3,w 

290 FOR i=0 TO 10:NEXT i 

300 NEXT w 
310 NEXT q 

320 xa=-rl*20+xe-b:ya=-rl*10*ye 
330 xb=rl*20+xe+b:yb=rl*10+ye 
340 LINE (xa,ya)-(xb,yb),PSET,0,bf:GOTO 150 
350 END 

360 ’-hanabi- 

370 FOR b=l TO 10 

380 FOR k=0 TO 6.28 STEP 3.14/18 
390 xl=rl*b*COS(k) *2+xe:yl=rl*b*SIN(k)+ye 

400 cl=(b+7)MOD4+3:c2=(b+9)MOD4+3 

410 PSET (xl,yl,cl) :PSET {xl+b,yl,c2) 

420 NEXT k 
430 NEXT b 
440 RETURN 

450 ’-make town- 

460 FOR c=0 TO 7:PALET c,0:NEXT c 
470 RESTORE 730 
480 READ c,n,x,y,xx,yy 
490 LINE (x,y)-(xx,yy),PSET,c 
500 FOR i=l TO n-1 
510 READ x,y 

520 LINE -(x,y),PSET,c 

530 NEXT i 

540 PAINT (10,190),c,1,2,3,4,5,6,7 
550 RESTORE 770 
560 FOR jj=0 TO 16 
570 READ wr,w,wx,wy,wxx,wyy 
580 FOR j=0 TO wr STEP w 
590 c=INT(RND(1)*8) 

600 IF c=0 OR (2 < c AND c < 7) THEN 610 ELSE 590 

610 LINE (wx,wy+j)-(wxx,wyy+j),PSET,c,&H8888 

620 NEXT j 
630 NEXT jj 

640 LINE (0,199)-(639,210),PSET,0,bf 
650 LINE (0,199)-(639,199),PSET,2 
660 FOR x=0 TO 640 STEP 20 
670 LINE (x,199)-(x*3-645,249),PSET,2 
680 NEXT X 

690 FOR x=0 TO 640 STEP 20 
700 LINE (x,199)-(x*3-635,249),PSET,1 
710 NEXT X 
720 RETURN 

730 *-twon data- 

740 DATA 7,60,0,160,20,160,20,185,30,180,30,160,40,155,60,160,60,175,65,175,65,1 

65.100.160.130.165.130.176.140.180.140.165.200.155.220.158.220.185.230.185.230.1 

55.260.155.270.160.270.180.280.180.300.172.300.165.296.165.310.160.324.165.320.1 



65 

750 DATA 
,440,158, 
,560,170, 
760 DATA 
770 DATA 
780 DATA 
790 DATA 
800 DATA 
810 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 


320, 
460, 
560, 
639 , 

25.2 
36,4 
36,4 
36,4 
36,4 

36.3 

30.4 

20.3 

10.3 


172,340,180,350, 
165,460,180,470, 
160,580,155,600, 
199,0,199,0,160 
,230,158,260,158 
, 100,163,65,168: 
, 100,164,65,169: 
,500,163,530,163 
,500,163,470,170 
,0,163,17,163 
, 540,173,607,173 
,440,162,460,169 
,400,190,468,190 


180,350,175,380,170,410,175,410,180,420, 
180,470,167,500,160,520,160,520,155,550, 
160,600,170,610,170,610,180,620,180,639, 

DATA 22,3,140,168,200,158 
DATA 36,4,100,163,130,168 
DATA 36,4,100,164,130,169 
:DATA 36,4,500,164,530,164 
:DATA 36,4,500,164,470,171 
:DATA 14,2,190,187,270,187 
:DATA 30,4,54D,174,607,174 
:DATA 20,3,440,162,420,169 


180,420,165 
155,550,170 
172 
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!:4-9-Cl'4*0 ^zx, ■smniitl'^xfx 
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7”Dy-yA^^S(, PRINT, FOR-NEXT 
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A'y Ao 
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y t;|al*>y-cy°n y"y A4i-4 t li A'lt 0 
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T"7/fi?J!4M4 4 t {, y°n y"x 5 > 7"0f1^ 
ll0-Sli40A'*‘t;>„ 

“y It ixf T-( 7'x t° It y'7” i:l'7?) 

0l4ii{)*»I#yXi'4 {)0A'A7 o ?-L-C 
ft li j47°n y"y 5 7y" t i' 7 'bP’^(DpX 
El^iz t y Titf L i'4iz*'4:gi|]it7 4 4 t 
t'X^io ^nC0^ < i47-r'i:l4*‘0li 
i)'i}^P yA4tA*47L, O' i ^ i L fz 'o 
4- < 4- < * A •) 4 X. 0 4 t *> {) L1A41'o 
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Itt'i'fi I) fS <J 
T -f 7'X tf y -;/ '7” (Dgl^j:0-r'^) 5„ 



^"7 Ali-ti-1 ?■ 0 i i r'ii^a L ; t 
lilitA-t'^fi-'o 4'i:*'7°n^'-7A^l,S 
t, f?ij0 “i^ T ^ 7'x tf y 7 7” *’■ 
Li 70-r'*5o 
i7j* 3 7°n -t< %-fT iy 

t ^ fc ^ 4-„ ?■ im 4 K 

h li f (4*7 4’t S 7 ) 0 2 Ikyc 3"''^ 7 4^' 
-A^'o iz<D'Ct)i>t\ 

Cyt'KL, 3-x5?Jf;'^L, X37-^:^5f 

., tacjgL-ci'< 7 1y!:20K 

M-U±(: < n**f y, 

t li i O 4* < ^;i]07°n 7"7 A t: 47 T L i 

otz<Dtz\ 

i%#0A4 4t: {, ^ 7 t mto 

c 7 *40-r'li4i.'4'0 7 *‘o fe'S, 
ciia-c*'^ 4 7'’o7"7Aii^-9ii:y g-s-r' 
fl5-o4L0 404'o iix, 

— 7 3 >7 77°L47°n7-7 Aiig0a:i/R 

4^ y 7'-f^i^(ttfi!]li&g*-C < n4 < T L) 

40tr'*4„ flliA07“n7"7 A 

4ftW7 5 w 11; J; o r to li f. 7*0 7 

cyj^fo < 11' 7#* {) ^) So 

U H F0R~NEXT(1) 

1« FOR 1=1 TO 10 
20 PRINT"*" 

30 NEXT 


>J 7.1-2 F0R~NEXT(2) 

10 FOR 1=1 TO 10 
20 PRINT"*": 

30 NEXT 


UX h3 >-H7^'X7 ;u(1) 

10 FOR 1=1 TO 10 
20 PRINT"**********" 
30 NEXT 


ij X h4 -y ^X7;K2) 

10 FOR 1=1 TO 10 
20 FOR J=1 TO 15 
30 PRINT"*": 

40 NEXT 
50 PRINT 
60 NEXT 


44'L, ZZ-C'-hJi-o 
i.'Z L *>^)So iD**'i^escst s-7 L 0 *« 
*St|!-C'L, S^< ^:-<Mi.'7°n7"7A-^ 

it, 
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Z 7 I) 

i ^ y^"(D'ML^(DCM otT'i 

7“n7"7 ^ >7"{:[li1“ ^Ips 
11 n^cC/i *'ffi U 

i: C i: I 3 C t*'^ 7 O i: OC?) 

6o HuBASIC MZ-25000 


u;^ h5 =Mm(V 

10 PRINT"*” 

20 PRINT"**" 

30 PRINT"***" 

40 PRINT"****" 

50 PRINT"*****" 

60 PRINT"******" 

70 PRINT"*******" 

80 PRINT"********" 

90 print"*********" 
100 print"**********" 


U7.b6 =Mm(2) 

10 FOR 1=1 TO 10 
20 FOR J=1 TO I 
30 PRINT"*"; 

40 NEXT 
50 PRINT 
60 NEXT 


I j X h 7 b“ -7 ^ *y K 

10 FOR 1=1 TO 10 
20 FOR J=1 TO ll-I 
30 PRINT" "; 

40 NEXT 

50 FOR J=1 TO 1*2-1 
60 PRINT"*"; 

70 NEXT 
80 PRINT 
90 NEXT 


BASIC-M25 
oBASicr'^) ^ 
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o/j < ^MCD£'^*>4i'0{:PC-88ffl i L 
hO) h ^ ^(DfSo C7i-'o/j 
:^77y asi 

}^.l(DX'h^o 
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- 
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7 4'’lt-C'i4'iA L -Cn^cib X. 4 i.''F--r'* So 4 
t X. 7 4 < i.'*>4*'o4 t LO) ^ ni4 ^ 

n-r'i.'i.'CD4o ft <. 4ffl)*' 

■a-, iUH'Ot t |! 41§^'-tl-404*‘f.o 
i LX if:, f)f44#(:ip]*-o'Ci'ltti;'i.' 
i'C4-r'*S„ 

7“ n 7" 7 5 y 7" t ' 7 L 0 ii 3 > t° J. — 
:S? i: * S f±»4 $ S 4 *©f-IS-T'* So 
L*'Lft <>T-7^i77°n7"7-xi; t o-C 
^ niff:*’'S6^-C'{) * So C S*’'7“a fiA 
^6<3i:lt7 t s *4'o ft<.i4Sfi^i 4 i: 
T —-x” ^'M.A.X’y°'o f'"y 5 >7"^- 0 {) 04 
4'*‘<>, 7°a**t-r {)f-4 
m L ^ 7 II4 1 .' c 11:«) »W7 set t-xr 
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-cr'|i S04o 

BASIC, PASCAL, COBOL, FORT 
RAN, LISP, PROLOG, FORTH, C, 
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7"g|SI4, Ot 00 gfilj^iitS 4*011 
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yi/” 40-r'*So 
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tScWtfri-Clit.'A-i'jri.'iir?), BASIC© 
i6tff^.)t©WyJj®c^-ni^a,^r^c -set 
li'pf£ <fj:^'-C'l i^o * 5 

-7 -f ^ n y 7 h ©BASICtiffl^-i'MJI-W 

f t ** 8, 9 tff t n n if i 

L/j:li5 t {,* 9 

£■ i L T {) LI.', L *■ L BASIC 

metffo zz-c' 

4©lit«5gir'z©iii:i.'«.A„ 

C,hixX 7 i in 

A^aiif, ini3‘7-7p^7r£(Dxrto 
X < X < ^iTAnif, MZ/xi0»ii(* 
•>y) Z80li®4sfi^i;li0~255©:*,^gi: 

L*'t!tx.^(;i.'©i:, BASICS 7 fx 

f 11'5 L i't 0*-9 Ij< ©f'to X 
acft'JlilJ: t |! t LX7-t>yyX 9 
x’t 11,' i S BASICr &mif©i'jfi® < 1 :. I.' 
4'i.'ii-r*f^ci.'„ 11:*'< ^-oTAi: 

;</" '7 * y L A lo i nx' I> 1 .' I.' C ^ I' **o 

iixt'7-^7:i-7 11.' -5 {)©$„ 

SSmA^U(Diii<i:D 


t oTriiWit^-gigL ii n4-1't 
i '7 c t 4©ir'-r*'i:., li*'i:4A t)**® 
i 4 < i: Ii4 •) i -B-Ac t ac 
* 1 : 1 .' 7 li ffefolfS 4 I) ©r'li:* •) i-H- 
A„ ^ A I> i' 4 *‘4), 
otx ’’lif yj 4i'ifxlfi.'i.'©i'i‘„ 
J:'A4A|! 4i:fiSir'i 0-9 mow.(DX 

z z 

fSi'-jec L i L i 7„ 

4 t (.' 7 4 t ^BASICfi^IcaoeOtt-a-lf, 
PiX I) rffi5i|j 11^5 C t i:4 y i t<. 




1 tfr C Sd5i) © 1 ini 7 1 OOOtif 

©ScIit^^LA'Itnif 
DIM X(999) 

iXXP'yXisL'X, X(0)IXlCOiX, X 

( 1 ) Iil0©fi, ., X (999) ©li 

^im-n-MXX 7 i:1-nif4A t**4 9 
^7ir'1-„ zniriiXt; 10000 4ftAL 

i:i.'A©4'^S«X(4)4 1 i:, ftk^Oi: 
1" 4©ir'i'„ 

c nir'lgc©i!?iwii4 A t *'4 9 ^ 7 Xto 

ikr. r.iIM 1 :4 4 © iiiimr't„ c n i r'li, 
f: i 

A=A-3 

t i.'oA<"*i.'t: t< A't)ir J:*'-o4©i:' 
t*f. ^)tli;^7fli)'l*-i:li'.'ii i-ti-Ao id 
^IkiiioXitiki^lPlfz HXi'^yX i,, i 
ix li W- 1: ft 4 h © 1511-^, My in > t: 

t A4©li);il-o4c tir'li4i.'©ir’ 
i"o r© k'^'k-tz ^ i tm li' C 

4i>il?:©-Ai£{) # X 4 < TU4 9 i -a-Ao 
t -oA-J: 7 4>Ii^i:li 
i'ji5?:4-ii:i!ifi'Ji: t x 1 : < i.'©ir't*>', ^ 
|n|©efc 7 4$Mj!4iii^ i'ytzi^iXb^) i 
hi)' 9 i.'ir'L J; 7 » ijii-P:©i£4^ t () I.' 
X 4 PL|llij!^-i;4 f Ii4=-!SI| C A©f-ltw©^ 

9y/4^©i i-7f i.'©ir'i‘„ 

•tm 

i X'-f UiPr. (, -o t fc fifj'iU 7 4in??., 


X( )=X( )+Y( ) 

4#xfAiLi7o 
-HW-r'Ii f 7 ^o Air' L i 7 *>„ ^ 7 , 
T©Wf*’i;.liii:S.Li:4 LT, I£^*>'104 

®xAii-h©tfTi:tIf±lf4Li:.„ eft 

^y”ny"7Ai:-r 4 t f 7 4 4ir'L i 7o 

— ^?A"lti:, Ao^SsEll©^ ■fbC-^oi: 
I.' 4 4 t L wffii: L 4ltftlf4 9 i -a-A„ 
^©4 t A'lttl^oitTflS'oirAi L i 7o 
1000 CARRY = 0 
1010 FOR 1 = 0 TO N 
1020 X(I)=X(I)+Y(I)-1-CARRY 
1030 IF X(I)> = 10 

THEN X(I)=X(I)-10 : 

CARRY=1 
ELSE CARRY=0 
1040 NEXT I 

'&m,(Dnb1jf£ l:'l^^®iti.'li^)4 t.S 
lilf4A4!§L(:?#t,^<-r’L i 
7 „ 1 OOOlf * •-5t li f i.' ^ A '■iffiSiiiij © i\i'X 
X'to ZCOXaXy z.X'lXTt'C,0m±<:r 

4 CARRY 11' 7 '^1: 1 : L T i' 4 ©TT 
fll£Tfi:©tfT4ft®ct4 t 111;liT*-1 ;>com 
h*‘9 li* 9 ^-a-A*‘iiCARRY= or'-To 
44 .^, 


X(0 )=X(0)+Y(0 ) : IF X(0)>=10 
THEN X (0)=X(0)-10 : CARRY 
0 1 K5IJ4rffioTllg[fi^rSil 


12 , 376, 495 



X(0) = 5 
X(l)=9 
X(2)= 4 

X(7)= I 


8 «T<7)affl 5-X ( 0 ) - X ( 7 ) o TR-r 
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= 1 ELSE CARRY = 0 
t LXikcOFORXcommfi.^i Ctnii'J; 

•) f-HtScjfi; < 4‘ i> <DX^ L i i t\ 7°n 
7 A t LTiiteat I.'7riL‘*a i to i 
k, h**!) cliyL-C {., t 

ii W<D h^r- iitff-tif*“* i> *'S*-CsIcO 

4' oL11' s t &u' 11 *3 

> t ?! fi r 0 cDtfT-htfj 

ttiitttlj r|!, to lit) 

t i t Lio 

•Mm 

Mmiiffllicofli h L Titmt 5 li -5 *'ct 
•) 3 > —1L i.'0-r L i 7 *4 

tsftmtc'xit5(7)r', 

#i: LTAito 

1000 CARRY = 0 
1010 FOR 1 = 0 TO N 
1020 X(I)=X(I)-Y(I)-CARRY 
1030 IF XdXO 

THEN X(I)=X(I)+10 ; 

CARRY=1 
ELSE CARRY = 0 
1040 NEXT I 

rCARRYJ; ')BORROW®ii7*H'i.'AL' 

'PA'i.'CD ? J t,g.ofAH:4*-4-*-^0^ 

O Aft Lio ttr htf cMt i 4- 4IfrTlf t 
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< h*‘4-r'L i 7o 
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Panicj <D / — iTi L X Halt L T L 

i t' i t(* I COM23)o i tiilli <" 

11:, 3p9;-r>of tx-T«i4.'d).i','h l x 
A i L J; 7 o 

|xl 3 i:5 t |! 1 A 

L Ao lll)i;,n4Sc 

4±Otff*■ 4 IficlRo f i' i! (fliJ-C'ii 4 ^ 
45^456), AX Z-r'iSf (0 

~9) 0 4 {) 11: L TWO'SX 

nsgc*X&'t4 t of < 4., tl.'o 

AtT^4^*)jSttof'ttao 

TACtS t ?! t’t,ltA^o*'i'4cDiJ:''i&]' 

44?* 4 J ti.'7fts*-ft, »)4Sc**3gS 

11[*l f t * 1 jr 4 n (i f A t' L A 4 t « * 9 
itA*4 7 lit'?! i tAo 

t'At'A#if t'4 7 4, "iJ'JSlgcgt' 
f * o A 3? 4 4-11). t' ,t, L i L Ao 

4 nii^^-f—4'f-f'll] Lf 204 t < i;.t'®j!ip 
7 T JW44iftm«f't„ t-f'4 
<, ^-t-f®j*'t '■•fttttt.miSj {)* 


o A t *‘i'7iS I) * 0 i to y w-Ai:te 
i 1, 4'5!! • $il: • ift'ltng • 4-iI 
jSc^oA«^®i='*-lff, tSt'lIjIifcA 
3!)‘7#&$ X. {) i; n*' It f i' A 4? 4 t" 

-H-»«*i4 A 4 t 4 AffSliito t ii-„ 
4? 4 t'-ttm«®^»:iiT-3l-mi:fi:if i' 
f, '■t"-4?4:77 h L4AX5I < j4 tf 
ift'ito f 

|'Oi^4lHlt t tt>t*W;L, Sc**4l 
*'LL4(^)f', ^tlifO®i;i:L.'lt4i»)4 1 
4f5}?*4 i:t'7f^^llli '■?llt4A'tt']|^rc 
0 4j f^#i:4 1, iSi'li^|t'Al!3l»ti'7 
4 11:4 4 0f to 3tli t' A t, mo) 
'■3j 4^*4 01:^'> hOi^4 3|iiI, lAct" 
— t4i>Yl'Lf > t®J 

*'Lf) lAcOriS '"Tj 44?* 40i:^'> K 
31^4711], ftioinililt 4 tf |■37J tl'7 
tft'4^#ito 4tDt ?!fi)iin4l!(0IL7 I: 
tfif I'4®*‘^1f't„ 

'■i8j44?*4j4 t 4 '■^lH4A'tt!}| < J 
tt'7)Ifefi^4il5*t:ilA;tnii'<-ot7“ 

nf'TA-ILL^t < 4 1 ito Pjl?!mii:t 
f i;f1sof ^) 9 i t*X^) t liiLKA'Itf 
tfao 4nii®iH-o _hOtfT*Xlii:]:b^f 

t'of, -i5:L4*'oAi;>4(7)t ligct® 

A?!t'li7*‘ ''A?!t'iS[j 40f'to 
1000 CARRY = 0 
1010 FOR I = N TO 0 STEP -1 


1020 IF X(I)=Y(I) THEN 1050 
1030 IF XdXYd) THEN 
CARRY=1 
1040 I=-l 
1050 NEXT I 

)>=Y( )4‘iCARRY 
=0, j@!t:X( KYI )4‘iCARRY = l i;4 
•lito 1040^Tli C ai§4 I?) break ;SCCffl 
mt4I)0f, FORO^i—7 °*'i;,7jAX i: 
l&lNl'.t A * i:1to AtWXfto AtlW 
#.*'‘fln;]LAii4nj; ')T®tff43i4coii 
M-ILf t *• f>, t <" 4 li*“ 4 lb Of 

to 

4 bf il:i:lifflu t' i L 74 o 7° n T t a ii 
< 4 1 i t ( !1 X h 1 )„ 1150tf Cy 
liitll 1230ft*' li li^li t' 0^1 ?! mf t 
bo 1070ft *' c>*fiSi4 1 tffTR* 4 t 4 Af, 
^^4liANSi:4?*f Yd) iXI 

^i®Lf t'ito 

t^'^f ©tlfl^'^t'f 4?* 4 7 j*0^i^— 7° 
*d000ftni!%f to 1010ft*' I|> 1030ft0/1- 
— 7°, is X (/1040ft** '■^D477hLf 

tet44i:fiJiib4»:4Ab4j t4Afto 

4 b.4:^Xfi*' i f 4 b L f iiii4 

MpJ?* 4 to 4 bfX(0) *' liX(KETA) 
0 t-<f i:iSi**Ao f t 4 1 4 t„ 

•sm 

jftSXot'f lilt!Si:L4 Li 7o « 
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a) 


( 0 I I 0 ) 
12 3 4 
+ ) 5 6 7 8 
6 9 12 


b) fpy7A(N=3)CJ:Stt» 
■ 0 A^ffinx I'4 14 2: 7a Alt L't’Tt' 

CARRY= 0 


X ( 0 ) + Y ( 0 ) +CARRY= 4 + 8 + 0= 72=>X(0)=2 
X ( I ) + Y ( I ) +CARRY= 3 + 7 + I =!> X ( I ) = I 

X (2)+Y(2)+CARRY= 2 + 6 + =i> X ( 2 ) = 9 

X (3) +Y (3)+CARRY= I + 5 + 0 = 6 =!> X ( 3 ) = 6 
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I 2 3) 4 5 6 7 




I 2 3) 4 5 6 7 




0 0 


I 2 3) 4 5 6 7 


0 0 3 

I 2 3) 4 5 6 7 
3 6 9 


8 7 


I 2 3j 


0 0 3 
4 5 6 7 
3 6 9 
8 7 7 


0 0 3 7 
I 2 3) 4 5 6 7 
3 6 9 


8 7 7 
8 6 I 


I 6 
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WM(Ol i 

FaT i> '.'(D'C\ tFr-iilf** 1 i'*t; 


mmm^sfmuj:3 


cnrizgiiJiiiwii-r'i- txir.T^>)iL 

fZo z 7 tilBmii.U'.'-f)' 

^Ix K'f: c^ % X 5 E X ^ i 7 Uf!ijf^ 
>) i L/Jo Zz^ nU fcDisas-r'i-o ¥ 
:^ffit:oi.’TiinBrjl3^L/C(^)-r'^lE]li ;r 
L J: 7o 

TT11' 7 cDIJ'>^^o*>i.'/j;®Sc-r'1-o 

t i f ii 2 )t#HJ S t * & 

I- S h (■' 'y fx (" S !•' (J;° ^ h. 'o i. 

c>iM>0-Ctf3\ tKSOJrb 

1 1.'7 

T^4’?goTfi$5fli|o'Ci,'S J; 7 
fto mm'C.mmu'^c^ixi.'< tt 
<" i:^:^tI0fc'ttlS!: 4 5 c 11: -o T L 

i' ©ft *> li ¥:^tsii o 

^ ::r, ^>^it L i.'sSi: fx i) i 
(Dismir.Uiz 11: L i L i 7o''a!Sl^c 
A.'C5iIffi< !:l'7AiiM 

AfRIS'L-C < 

c?)4<-i.') 4^tll?J}Rllkiisin, cosCDlft 
Set LT-Stc t*^'-r'|! S0-r'«4H'*-o 
CC7):: t ^atm!:if§!£L4®*s7-!; 
§4 (1768-1830^1^) -r'to 
^ t {'••— F') 4 A4 X < 

0, '(r.ii'kix 

ScoiA^*'t'0 < iti'Aoi:i.'5*-j ?fs^ 

'<6 h ;^7 A 7 ^ -<f't e' 7 

EneSc'^ti^JC^^coii'y—D 
i®F#I t i' 7 iCDX'to 

I'i, X *• —;r*’It + ^rCOFnl'T’, 

3.0 ” 

f (^) =-z + S(an cos nx + bn sin nx) 

Z n=l 

an “^X^;jf(^)cos nx dx 
bn sin nx dx 

m^it^ i. 

an=—/ f(^) cosnx dx = 0 

n J—n 

bn =— / f(^) sin nx dx 

7t J—7L 

= — / f (x) sin nx dx 

7tJ 0 


L 1z 1y o T an IX 51 ^' i T 
f(x) = 2 bn sin nx 




ZZX\ <k<DX 7 4I1S: 

I 0(x=±;r) 

4) cnii^-TO-C', 

hn=— f^{(x) sinnx dx 
7t J Q 

= —I X sin nx dx 

TtJ 0 

_ 2 /T—xcosnx]^, I fTt \ 


=z{ 

4{zr-) 


=f(-i)"^' 


X z>X 


f(x) = 2 bn sin nx 

n=l 

= Ssin nx 

n=l n 


= 2i: (-1)"+! 

n=l 


Sin nx 

n 


= 2(sin X 


^ h 1 u ^ {±mm) 


1010 

1020 

1030 

1040 

1050 


1070 


Long divide routine check 
d e f in t A-Z 

print "♦♦♦♦♦ A/B ♦♦♦♦*" 

input "A = '';A$:A-len(A$) 

input "B“";B$:B-len(B$) 

if A>B then KETA=A-1 else KETA=B-1 

dIm S (KETA) ,0 (KETA) ,A (KETA) ,Y (KETA) 

for I=A to 1 step -1 

S (A- I) ’va1 (mid$ (A$, 1,1)) 
next 

for I-B to 1 step -1 

0(B-I)-val(mid$(B$,I,l)):J = J+ l 

next 

gosub 2070 
print “A/B-": 

F = 0 

for I*KETA to 0 step -1 


^8^ E LSE(7)^^ 4'' B AS IC T'fi 
G0T0^X'^iiLT</z?l' 


1090 
1100 
1110 
1120 
1 130 
1140 
1150 
1160 
1 170 
1 180 

1190 next 
1200 print "..."; 

1210 F-0 

1 220 for I’-KETA to 0 step -1 
1 2 30 if A {I)<>0 then F»1 

1 2 4 0 if F then print r i ght$ (str$ (A (I) ) , 1) 

1250 next 
1260 end 


♦♦DIVIDE 


if Y(I)<>0 then F-I 

if F then print right$ (str$ (Y (I)) , 1) ; 


2 0 0 0 

■ /♦. 




20 10 




2020 

. Ail > 


< EfJ * > 


20 30 

. KETA .. 

. tfrIS 

y{) . ffi 


2 0 4 0 

. SO .. 

. m 

AO . ^ ^ 


2 0 5 0 

. 0() .. 

. S'! S R 



2060 





2 0 7 0 

for 1-KETA to 

0 step - 1 



2080 

for J-KETA- 

1 to 0 step -1 



2090 

A (J+1) -A (J) 



2 100 

next 




2 110 

A(0) =S(I) 




2 120 

gosub 2170 


♦♦Long divide 


2 130 

next 




2140 

return 




2 150 

'- Long 

divide routine ( get 

1 decimal ) y - a / o - 


2 160 

■ AO/OOteJ; 


. n Hi 


2170 

ANS = 0 




2 180 

gosub 2260 


'♦♦Long compare 


2 190 

i f CARRY- 1 the 

n 2220 

..If a < 0 then end 


2 2 0 0 

gosub 2350 


'♦♦Long sub 



♦/ 


Jeopy answer: 


22 1 0 ANS ANS+ 1 :goto 2180 
2 2 2 0 Y ( I) A N S 
2230 return 

2 2 4 0 . - Long compare a >- o ? - 

2 2 5 0 • A 0 t 0 0 iO it IS $• tr ^ -f . A 0 <0 0 ^ CARRY - 1 hZ ^ ^ t . 

2260 CARRY-0 

2270 for ZI-KETA to 0 step -1 
2280 if A(ZI)-0(ZI) then 2310 

2290 if A (ZI)<0 (ZI) then CARRY-1 

2 3 0 0 ZI - 1 

2310 next 
2320 return 

2330 - - Long substruct a - a-o - 

234 0 • AO 0 0 ^ ^ ^ ^ ;e. A() (C A 0 ^ -r . 

2350 ZCARRY-0 

2360 for ZI-0 to KETA 

2370 A (ZI)-A (ZI)-0 (ZI)-ZCARRY 

2380 if A(ZI)<0 then A (ZI)-A (ZI) + 10:ZCARRY-1 else ZCARRY-0 
2390 next 
2400 return 
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) 

z zr'x.=^Itn\£ 

f=2(i-o+^-o+y-.) 

J; '^T, 


C ZX'i£7ti}^mi^'<D'C' 


t u 5 O ito 

Jpi^, ^ fx^.i:X'to 

tcf:\ z 1 $ 

nr I'4 (2n-i) hi 

y-c'li.h >) itA,o L*'L, i:i:*'< 

%tc£,i3'Z Z i -C'lpo i (D 

mMtz^-o-CS^iZ ilzLi Li Po 
• ;r4rj}cA 5 7'‘n ^’*7 A 
Jr, BSi.'g5f3''!;3''i;L^C*%7°n^" 
7 AC Lr.^i L/i(y X L 2)„ 

r LfifL < {^o/iC7)iili/rcr)^'Lr't*'ii 

MtfCDii^^r'tfeo 
A^)*5*?-no/it,RUNLrA^ L i 5o 
'■KETA= ?jtMi.’r < 60 -c'mm^An 
r</i'J(.'„ h 

t J t' J ribtf ;i L i 5o 

l^Ar'L*'l)X*L^^l.'0r', iEL 
i.'fi!:ja'r< 0 cb#PbT*?*‘*> I) ito fzA\ 
C07°ni!'"7 A4-I,rn*‘4 J: 5 i:, ttw 
iiibte t JpMmA'itr’*)* j nr I'«. or', 
r-t>7-xr'*i=ii;t® «>n •) tw^rt 
*■?>, •^®:^[S]r'©ii{ttr i> ar'L i 7„ 
r X'a*> S iCf f>, l)7::i-'L 
<A3gc®ifti.'^:4'£o(t2, c tr’-fo y—'J 
itnt£ 

an=-|-y^f(a:) cos ni di, bii = 0 
t) 

f(a;)=^ + 2 a„ cosnx 

t I), c n ?r 

f(x) = x2 (-;r<a:^;r) 

tt.'7ffiMS(:iifflLr^nif 

^^-14-1 4- 1 + 1 4- 1 . 

-g-l+^+^+JI+gJ 
t I' C t **r'|! i to 

;r C -7 I,' r li ^ ttR® A * *• 

*■4')?ffsi£{)ffnnrij •), ^®ij*-c?) 

I.'Ai'A^cS*** *5 i-fo linA®*S:^ii 

Bg^Ar^^ttai'r'i^orAs t®& 
i.'^r'ti^ci.’r'L 17 *‘o 
BASIcrmWWrOi^SC^-J-ti-J; 7 11' 7 
() < hAiZi^i-ot, ;rlf3R* s t c i 
r'^or^i Lfzo h< 


t 6 Z i IZ ZfSbx'fZfZh, i.'iO'ton 
vt°3.-^®i!r'/j: <, iiit®*r''i:'-f L 
< i^r'IiJb *) i-ti-A*"', ?iA 

t *>fij< Li'y-b'yi -Clift iff: i 7 r't 


n-ii-CDh iAU 2 M'!£C'9mt 5 j; 7 C L 
rAi Li 7 , ffi4’^*s0*fjtKi0r' 

fi)!)#ii(t-oC 7ji< 

r’Li 7o 
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i«e« 

i«ie 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 


';x h 2 






(2000fT/-(i'J h 1 t® L') 


/t --- 

Stitle ( Calc PAI ) by kuwtnyan 

-- 

' ... S{KETA),0(KETA)35: if 1 , s (KETA-l)ii 0, ICO a t 0 < T t . 

del int A-Z 
cIsHocate 0,8 

input "KETA - '';KETA: KETA-KETA-1 

dia S (KETA),0 (KETA).A (KETA),X(KETA),Y (KETA) 

' /♦ ... 

. KETA 

. SO iz a m^ti6».zzT a 
. o() zzT(i2-f-:>mitt. 

' . AO tea .M r. 0 :6'A 0 ^ .IIIKtcfj c: iMT'-t . . 

' . YOl::.AO/0()coitMl^mi:Atir^^^i- 

. x() PAI . 

...*/ 

for 1-0 to KETA 

S(I)-0:O(I)-0:A(I)-0:X(I)-0:Y(I)-0 
next I 

S (KETA)- 4:0 (0)-1 

/♦. 

. W 0 » m ^ tL 7 ;: » ^ O T PAIc^ If n: ^ tf i 

. a-M^^UXOtZA 0 t i- 4/1-4/3+4/5-4/7+4/9-4/11. 

.♦/ 

gosub 1720 'atDivide 

if FLAG-0 then gosub 1500 else gosub 1570 '*#Long add / sub 

FLAG-l-FLAG: C0UNT-C0UNT+1 

/♦.. 

. COUNT. mtOMLfzlBlR . Y() . . 

. x() . PAI con-mmM . co3-?Tt. 

.♦/ 

locate 0,105print "Count - ";C0UNT 
locate 0,12:print "Syou .... 
for I-KETA to 0 step -1 

print rightS (str$ (Y (I)), 1) ;:if I-KETA then print 
next I 

locate 0,14:print "Pai . 

for I-KETA to 0 step -1 

print right$(str$(X(I) ) , 1) ; ; i f I-KETA then print "."; 
next I 
print 

A (0)-0:0 (0)-0 (0)+ 2 : i f O(0)>-10 then 0 (0)-0 (0) - 1 0 : CARRY-1 else CARRY-0 
for I-l to KETA 

A (I)-0:0 (I)-0 (I)+CARRY:if O(I)>-10 then 0(I)-0(I)- 10;CARRY-1 else CARRY-0 
next 1 
goto 1250 

'-Long addition x - x + y- 

'X()^Y()«:fiLi'r.^;e.«iX()t3A0i'r 

CARRY-0 

for 1-0 to KETA 

X(I)-X(I)+Y(I)+CARRY:if X(I)>-10 then X (I)-X {I) - 1 0 : CARR Y-1 else CARRY-0 
next 1 
return 

'-Long substruct x - x-y- 

' X 0 Y 0 ^ i -f . i. (i X 0 A 0 ^ ^ 

CARRY-0 

for 1-0 to KETA 

X(I)-K(I)-Y(I)-CARRY:if X(I)<0 then X (I)-X (I) +10 : CARRY-1 else CARRY-0 
next I 
return 


4t« 6S 
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t:^ 4 t°-tS (-7 

i h rx^Mj -r^)S) 

• [X] 44ft t A®ffi4^ 4 
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$-C, 4®li*‘t: ?) 4i:t>ii:g^$n'C 
^'S*^ ^4^*‘K«Hl■^■^)So ff'otui 
BULtfe< k, 


CLR 

= ®->Ji®CA-—1:14 lit 

HOME 

= -®tH®CE4r-i:14S 

K : 1 /x 

= J$& 

L:LOGn 

= gS?14S 

M : SIN 

= SINra*!c 

N : COS 

= C0Sf®Kc 

P : PAI 

= PAI (x) 

R : SQR 

= SQR (x) 

S : +/- 


T : TAN 

= TAN(®1: 

U : INT 

=^o y^T 

V:ROUND 

=pq4#XA 

W:FRAC 


X:CUTUP 

= iy) y htf 

Y : EXP 

= e®x^ 

Z : RND 

= 0 la L1 *iSfj®fiL» 


t4o-ri.'So ^LklXli, W*)^X, izg 
4^.5.A, t&g(i'9-®flitymL. tjji) hlf4 
k li'lifi i:S -S » 4't S.O T t' S ® 
X'1-hffzbitX'Sto (:''7i:S1.4}-*U I'o 
$ X, i®!!S:4'i4-ra4 < raHiJi^-i:4 k {, 
liiBHt4ali'4S ii'o fyi)li5rn^4 h ® ii + 
- X-r, 5-n*'i;>'<it^'r'^)So 
4k1K7j; C, ijr 4(!67^I>4'*\ yny" 
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(¥IS (4 %jS+<01, <OT t) 


. 7446699142456055 


2. 302585092994046 



CLR=CLR CE-HOHE 
K:1/'x L:LOQn 
M:SIN N:C0| 
P:PAI R:SOR 
S:+/- T:TAN 
U:INT V: ROUND 
W:FRAC X:cutup 
V;EXP ZsRND 


i; ^ h A #ltiit^ilC.BASIC-M^ 


100 CLS 

110 DEFDBL A-J,L-Z:T=0:FF=0:DIM R(10) 

120 FOR K=ASC( "A" )T0 ASC (’’J" ) : GOSUB 820 : NEXT^ V 

130 LOCATE 0,13:PRINT'’CLR=CLR CE = H0ME 

140 LOCATE 0,14 :PRINT"K: 1/x L: LOGn" : ’ W Jj: ^ 

150 LOCATE 0,15:PRINT"M:SIN NiCOS" 

160 LOCATE 0,16:PRINT"P:PAI R:SQR" 

170 LOCATE 0,17;PRINT’'S:+/- T:TAN" 

180 LOCATE 0,18:PRINT"U;INT V;ROUND 
190 LOCATE 0,19:PRINT"W:FRAC X:CUTUP 
200 LOCATE 0,20:PRINT"Y:EXP Z:RND 
210 T=0:T1=0:OP$="+" 

220 S = 0:GOSUB 900 :’ ^ ^ it 

230 ’ 


240 

GOSUB 860 

:’INKEY 





250 

IF 

(ASC("0" 

)<=K)»(K<=ASC("9")) 

THEN 

GG=0 

:GOTO 370:’ 


260 

FF= 

:0 






270 

IF 

(ASC("»" 

)<=K)»(K<=ASC( ) ) 

THEN 

400: 



280 

IF 

KS="=" THEN 400 




2 

290 

GG= 

:0 






300 

IF 

(ASC("A" 

)<=K)*(K<=ASC("J")) 

THEN 

580: 

' ^ 

e> 

310 

IF 

(ASC(’‘a" 

)<=K)»(K<=ASC("j")) 

THEN 

600: 



320 

IF 

(ASeC’K" 

)<=K)*(K<=ASC("Z")) 

THEN 

630: 




330 IF K=12 THEN 210 :'CLR 

340 IF K=ll THEN 220 :’CE=t>^0®M 

350 GOTO 240 r'LOOP 

360 

370 IF FF THEN LOCATE 0,0:PRINT SPACES(25):LOCATE 1,0 

380 PRINT K$;:FF=0:GOTO240 

390 

400 IF K$<>"." THEN 430 

410 IF CMA=0 THEN CMA=1:GOTO 370: ’ fj[ A ^ 

420 GOTO 240: »CMA=1 * 6 /h » ^ ^ «l) 

430 IF (GG=1)»(K$ = " = ") THEN 480 :» " = *’{C J; -5 « ig b If" » 

440 IF GG=1 THEN OP$=K$ : FF= 1: GOTO 240:* ^ U ^ $t 3^ 

450 * 

460 T1=VAL(SCRN$(0,0,30) ) :FF=1 :GG=1 t 

470 Q=ASC(OP$):IF K$<>"=" THEN OP$=K$ 

480 ON Q-ASC(”*")+1 GOTO 500,510,520,530,540,550 
490 STOP 

500 T=T*T1:G0T0 560 
510 T=T+T1:G0T0 560 
520 T=T"T1:G0T0 560 
530 T=T-T1:G0T0 560 
540 ’ 

550 T=T/T1:G0T0 560 

560 S=T:GOSUB 900:GOTO 240 

570 » 

580 S=R(K-ASC( "A" ) ) :GOSUB 900 : FF= 1: GOTO 240:’ «; -*>6 

590 ’ 

600 R(K-ASC("a"))=VAL(SCRN$(0,0,30)) * > ^ ^ 

610 K=K-ASC("a")+ASC("A"):GOSUB 820:FF=1:GOTO 240 


620 


630 

Tl = 

:VAL(SCRNS(0, 

,0,30)) 


640 

IF 

KS=”K" 

THEN 

S=1/T1:G0T0 790 

650 

IF 

KS="L" 

THEN 

S=L0G(T1):GOTO 

790 

660 

IF 

KS="M" 

THEN 

S=SIN(T1):GOTO 

790 

670 

IF 

KS="N" 

THEN 

S=C0S(T1):GOTO 

790 

680 

IF 

KS = "P'’ 

THEN 

S=PAI(T1):GOTO 

790 

690 

IF 

KS="R" 

THEN 

S=SQR(T1):GOTO 

790 

700 

IF 

KS="S" 

THEN 

S=-T1:G0T0 790 


710 

IF 

KS = "T'' 

THEN 

S=TAN(T1):GOTO 

790 

720 

IF 

KS="U" 

THEN 

S=INT{T1):GOTO 

790 

730 

IF 

KS="V" 

THEN 

S=INT(Tl+.5):GOTO 790 

740 

IF 

KS="W" 

THEN 

S=FRAC(T1):GOTC 

1 790 

750 

IF 

KS="X" 

THEN 

S=CINT(T1):GOTO 790 

760 

IF 

KS="Y" 

THEN 

S=EXP(T1):GOTO 

790 

770 

IF 

KS = *’Z" 

THEN 

S=RND(1):GOTO 790 

780 

GOTO 240 




790 

GOSUB 900 

:FF=1; 

:GOTO 240 


800 

»T = 

:0:T1=0 

:OPS=' 



810 

’ 


^ ^ tin 


820 

Kl = 

:K-ASC( 

"A") 






830 LOCATE 0,Kl+2:PRINT CHR$(K)+SPACE$(25) 
840 LOCATE 3,K1+2:PRINT R(K1):RETURN 
850 ’KEVIN 

860 K$ = INKEY$:IF K$<>'”’ THEN 860 
870 K$ = INKEY$:IF R$ = ’”’ THEN 870 
880 K=ASC(K$):RETURN 
890 ’S ± {C 

900 LOCATE 0,0:PRINT SPACES(25) 

910 LOCATE 0,0-.PRINT S 
920 LOCATE 1,0:CMA=0 
930 RETURN 
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1»9 BEM - 

lie PBIHT ■» BBS-PTIll 

ize PBINT ' #0*V'#-K<7««S:EALT<«fSn. " 
ise PRINT - «T^rA [.J ■ 

140 PRINT 
150 DIH F$(10) 

160 INPUT '♦ l9ja6TOa«T-r75>' [y/n] ';BS 

170 IF BS-'y' OR B$-'Y” THEN OPEN '0',#1,'BBS-MENU':CLOSE 
160 X-1 

190 OPEN "I',#l,"BBS-HENU" 

200 WHILE NOT EOF (1) 

210 INPUT «1,F$(X) 

220 PRINT F$ (X) :X-X+1 

230 WEND 

240 CL0SE:FH-X 
250 ' 

260 PRINT 

270 INPUT '♦ BOARD NAME->’;ANS$ 

280 IF ANS$-'.' THEN 330 
290 OPEN "O'.iH,ANS$:CL0SE 
300 OPEN “O',#!,ANSS+"-IDX':CL0SE 
310 F$ (FH)-ANSS.'FM-FH-^l :G0T0 260 
320 ' 

330 KILL 'BBS-HENU" 

340 OPEN '0",JJ1, "BBS-HENU" 

350 FOR X-1 TO FM-1 
360 PRINT 1»1, F$ (X) 

370 NEXT 
380 CLOSE 


^)7.Y 2 AiS~P>< ^ >pu (HuBASIC>BASIC-M25) 


1000 REM -----.BBS-P; 

1010 TS$-TIHE$ 

1020 CLS 

1030 DIM F$(10),BUNS (100) 

1040 RFULL-100 

1050 DIM RV(RFULL),RA$(RFULL),RB$(RFULL).RCS(RFULL) 

1060 X-1 

1070 OPEN '1",#1,"BBS-MENU" 

1080 WHILE NOT EOF(l) 

1090 INPUT «1,F$(X) 

1100 X-X+1 

1110 WEND 

1120 CL0SE:FM-X-1 

1130 REM.aain 0 : 

1140 CLS 

1150 W$-" ID CODE ->":G0SUB 2830 

1160 GOSUB 2940 

1170 W$-" PASSWORD ->":G0SUB 2830 
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WELCOME TO BBS-P < Version 0.1 > 

«< MAIN »> 

1 : MZ80K-700 

2 : M21500 

4 * Miiiii®® 

5 : XI 

6 s Xl-turbo 

C MAIN 3 Input No-<0* Log o-ff):? 5 

<« XI >» 

Xl-> ? w _ 

‘TITLii ■ 


^T'V^ tlSIl:' < t X is 

*1^0^ •) L ± 7 o 

mmompj 

“flS” y 7 
A, t C'O-C 
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S'®li«^g|5A}-®7”n A{12 0 
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i T'y X h 1 ©y-ju—f1s^ffl7°ni!'"y 

i'Pl&LtZ^'7-^ — 7 7 'i 
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4 li y X h 2 0 BBS-P ?? 

ifaiJL 4 to4 n®^'°y 



1180 Pff$«''ps':GOSUB 2940:PRINT “ " 

1190 PW$-”“:PRINT:PRINT 

1200 W$-" RELCOHE TO BBS-P ( Version 0.1)” 

1210 GOSUB 2830:PRINT:PRINT 

1 220 PRINT: W$-”<« MAIN >>>" 

1230 GOSUB 2830: PRINT: PRINT 

1240 FOR X-1 TO FM 

1250 W$-STR$(X)+" : ”+F$(X): GOSUB 2830: PRINT 

1260 NEXT X:PRINT 

1270 R$-”[ MAIN ] Input No.(Q:Log off):” 

1280 GOSUB 2830:INPUT ZS 

1290 IF {Z$-”q”) OR (Z$-”Q”) THEN 1330 

1300 Z-VAL(Z$) 

1310 IF (Z>e) AND (Z<-FM) THEN 1460 

1320 GOTO 1270 

1330 REM. end: 

1340 ff$-”logon tiae : ”+TS$: GOSUB 2830: PRINT 

1350 W$-”logoff tiae : ”+TIME$: GOSUB 2830: PRINT 

1360 PRINT 

1370 W$*” Thank you for accessing.” 

1380 GOSUB 2830: PRINT 

1390 W$-” See you again...” 

1400 GOSUB 2830: PRINT: PRINT 

1410 Disconnected.” 

1420 GOSUB 2830:PRINT:PRINT 

1430 FOR X-1 TO 3000 + RND (1)♦ 1 000 :NEXT 

1440 PRINT CHR$ (31 + RND (1)»224) ; 

1450 GOTO 1430 

1460 REM-BBS: 

1470 OPEN 'I”,#l,F$(Z)+”-IDX” 

1480 X-1 

1490 WHILE NOT EOF(l) 

1500 INPUT #1,RV(X) 

1510 INPUT iH,RA$(X) 

1520 INPUT #1,RB$(X) 

1530 INPUT #1,RC$ (X) 

1540 X-X+1 

1550 WEND 

1560 CLOSE: REND-X-l: PRINT 

1570 PRINT: W$-”«< ” + F$(Z)+” »>”: GOSUB 2830 : PRINT 

1580 PRINT: W$-F$(Z)+'-> ”: GOSUB 2830 

1590 INPUT J$ 

1600 IF (J$-”u”) OR (J$-”U”) THEN 1650 

1610 IF (J$-”r”) OR (J$-”R”) THEN 2250 

1620 IF (JS-'a”) OR {J$-”W”) THEN 1760 

1630 IF (J$-“e”) OR (J$-”E”) THEN 1220 

1640 GOTO 1580 

1650 REM-Up Load; 

1660 INPUT ”> :”;UP$ 

1670 X-1 

1680 OPEN ”I",#1,UP$ 

1690 IF EOF(l) THEN 1750 

1700 LINE INPUT #1,BUN$(X) 

1710 PRINT BUN$(X) 

1720 INPUT ”> (y/n):':A$ 

1730 IF A$-”n” THEN 1690 

1740 X-X+l:GOTO 1690 

1750 CL0SE:EL-X-1 

1760 REM-writing; 

1770 W$-” :-:” 

1780 GOSUB 2830:PRINT 

1790 WS-” ”:GOSUB 2830 

1800 GOSUB 2940;T$-W$ 

1810 IF {J$-"u”) OR (J$-'U”) THEN 1880 

1820 W$-”sentence:":GOSUB 2830:PRINT 

1830 FOR X-1 TO 1000 

1840 GOSUB 2940 :BUN$ (X)-W$ 

1850 IF BUN$(X)-".” THEN 1870 

1860 NEXT X 

1870 EL-X-l:PRINT 

1880 W$-” [1] read again [2] cancel [3] OK 

1890 GOSUB 2830:INPUT ”[1-3 ]”;A 

1960 ON A GOTO 1920,1578,2000 

1910 GOTO 1880 

1920 REM-read again: 

1930 W$-T$+SPACES (4 8-LEN (TS))+DATE$ 

194 0 W$-W$+SPACE$ (10-LEN (DATES))+TIHES 

1950 GOSUB 2830:PRINT:PBINT 

1960 FOR X-1 TO EL 

1 970 WS-BUN$ (X) :GOSUB 2830 :PRINT 

1980 NEXT X 

1990 GOTO 1870 

2000 REM- file addition; 

2810 FOR X-REND TO 1 STEP -1 

2020 RV (X+1)-RV (X)+EL 

2030 RAS(X+1)-RAS (X) 

2040 RBS (X+1) -RBS (X) 

2050 RCS (X+1)-RCS (X) 

2060 NEXT X 

2070 REND-REND+1 

2080 RV (1)-EL:RAS(1)-TS 

2890 RBS(1)-DATE$:RC$ (1)-TIMES 

2100 NAME F$(Z) AS ”daaay” 

2110 OPEN "1”,#1,"daaay" 

2120 OPEN ”0”,#2,FS(Z) 

2130 FOR X-1 TO EL 

2140 PRINT #2,BUN$(X) 

2150 NEXT 

2160 WHILE NOT EOF (1) 

2170 LINE INPUT «1,D$ 

2180 PRINT #2,D$ 

2190 WEND 

2200 CLOSE 

2210 KILL ”daaay” 

2220 KILL F$(Z)+”-IDX” 
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2230 

2240 

2250 

2280 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 


GOSUB 3180 
GOTO 1460 

REM .. read RECORD' ; 

Y-0 : PRINT 

IF REND>0 THEN 2290 

W$-"no file!":G0SUB 2830:PR I NT:GOTO 1570 
FOR X-1 TO 10 
U-Y*10+X 

IF U>REND THEN 2340 
GOSUB 3130 
NEXT X 

PRINT: W$-’[ '• + F$(Z)+‘ ] Input File No." 

GOSUB 2830: INPUT A$: PRINT 
A-VAL (A$) :U-Y*10 + A 

IF (A$-‘n‘) OR (AS-'N") THEN Y-Y+1:G0T0 2290 
IF (A$-"d") OR (A$-'D") THEN 2520 
IF (A$-“e") OR (A$-"E') OR (A$-‘.") THEN 1570 
IF (A<X) AND (A>0) THEN 2420 
GOTO 2340 
GOSUB 3130: PRINT 
OPEN 'r,#l,F$(Z) 

FOR X-1 TO RV{U-1) 

LINE INPUT #1,A$ 

NEXT X 

FOR X-RV(U-l) +1 TO RV(U) 

LINE INPUT #1,W$:G0SUB 2830:PRINT 
NEXT X 

CLOSE: PRINT 
GOTO 2340 

REM - delete record: 

W$-"Input No. ->":G0SUB 2830 
INPUT A 

IF A>X THEN 2530 
A-Y*10+A 

NAME F$(Z) AS "da.ay" 

OPEN "I",# 1,■da*By" 

OPEN "0",»2,F$(Z) 

FOR X-1 TO RV(A-l) 

LINE INPUT #1,D$ 

PRINT lt2,D$ 

NEXT X 

FOR X-RV(A-1)+1 TO RV (A) 

LINE INPUT #1,DS 
NEXT X 

FOR X-RV(A)+1 TO RV(REND) 

LINE INPUT »1,D$ 

PRINT #2,D$ 

NEXT X 

CLOSE 

FOR X-A TO REND-1 

RV (X) -RV (X-1) +RV (X+l) -RV (X) 

RA$ (X) -RA$ (X+l) 

RB$ (X)-RB$(X+l) 

RC$ (X) -RC$ (X+l) 

NEXT X 
REND-REND-1 
KILL "dasay" 

KILL F$(Z)+"-IDX" 

GOSUB 3180 
GOTO 1460 

REM. flashing; 

W-LEN (W$) 

FOR S-1 TO W 
GOSUB 3080 

FOR V-1 TO 100 :REM --- wait XI -> 20 
NEXT 

WZ$-MID$ (W$,S,1) : WZ-ASC(fZ$) 

IF NZ>-*H80 AND WZ<-4H9F OR lfZ>-&HE0 THEN WZ$-MID$ (W$, S, 2) : S-S+1 
PRINT 1fZ$; 

NEXT 

RETURN 

REM ---------- inkey: 

W$-"":Z$-"" 


GOSUB 3080 

Z$-INKEY$:IF Z$-"" THEN 2970 
WZ-ASC (Z$) 

IF WZ-13 THEN PRINT " ":RETURN 

IF WZ>-4H80 AND WZ<-&H9F OR WZ>-&HE0 THEN Z$-Z$+INKEY$ 
IF WZ<>8 THEN 3060 
IF W$-"' THEN 2970 
PRINT CHR$ (32, 29. 29) ::G0SUB 3080 
WS-LEFT$ (W$,LEN (W$)-1) 

GOTO 2970 

W$-W$+Z$:IF PW$-"" THEN PRINT Z$: 

GOTO 2960 

REM- 

CREV 1 

PRINT CHR$ (32, 29) ; 

CREV 0 
RETURN 

REM-headi ine: 

ff$-STR$ (U)+" " + RA* (U)+SPACES (6 0-4-LEN (RA$ (U))) 

W$-W$ + RB$ (U)+SPACES (10-LEN(RBS(U)))+RCS(U) 

GOSUB 2830:PRINT 
RETURN 

REM- Bake index-file: 

OPEN "0",#1,FS (Z)+"-IDX" 

FOR X-1 TO REND 

PRINT »1,RV(X) 

PRINT #1,RAS (X) 

PRINT #1,RBS(X) 

PRINT #1,RCS (X) 

NEXT X 

CLOSE 

RETURN 


70 Oh! MZ 1986.10. 












c+A+e, L^5L^5;^:i®^^$■^rLA5=fc0r■r4ao -Eur 

3z;-ctt^A(ciorBL\fcorK 


7°n r 7 A ?r|IA-r'^ 5 7 t S 9 C t 
7o L*'LS^;j0^^t'io'') (:7“n7"7A 

c s Aii::i''4i.'o ^)5A0 

MZiJ:;l^=i y *2,A0Xl(ir'- 

A7 i/> t {tL Tl'< o 
-1S AFbI/j; i:' i- < i n-T', k 0f1feA^li 
')^)t0iti.'C^*nBASIC7°n^'"7 
-^-C'Sio 

A'l'Ai', '••fy3 73-—iF—** aa:Ci;7 

■t77'y alf?r D LA’ii, 

I ^^'7;!7-A'i;>(ti:/j:o-r^ < c t li 
t o t {>^'7;*—t I'oT {) 2aS 
*D, i (—^SrPSCsfe®^*' 

It i'-''7 ;</—) 4’P'’'7:*—, ^<.’'''7 
;& —5f S-''7 :*—11'7 o 

''' 7 *—7 :*— 11' S ©//(S'!.' 

2O)®JilA0 Ac L*“6*‘S i !.')„ 
$ r mffifrga, ASC A5 7 o - w f'ti 
BASIC7°n7"7-7^4i-C.-t:, 
i' T i.' S » ?<<: -Y y ^ A' •; 5 C * (f, ,@. i' f 
iJA C7°Dy"7 < -CBo-Ci.'5 

A0ffijin; {>/j; I), i At*RiiUi%’gl;L 
Ai'S Ac t 7 T L § J 5f' 
*A7aS^LAt.'t,f.7o aEitf'fcl.o*- 
li I.'*'!) ti{> *>'iiSjl-r'^) 

oTi’-S (I'A) 

L Af, L -r li L I'o 

/j;fe, -tyyVUit *x-fMZ-2500ffl 
r* f. iiit L TI.' A-A'^ AI'o 



fc*5:S1i;jC{1S'5Afii.' (ti'-^-C t A*- 
*n00ft< <ii.'A'**^B#0^AC LTlift*- 
o A0A') ^ y -7'•A^^7°^7'7 Aliy—A 
A'-oAo f 7-ti-Bg?fl.otAr#5 0A f.r' 
-A%-ii^'0*n'i.'<, pt,*sL, Bifc® 


ft*?) 1567 o L*‘LA**li7'n7"7 AAA 
A?-7ffi^cffl*5 {)0f«Al'L, ttA 
A1tJtB07'-A t Anti'Afe^ c,-r'^) 5„ 

L 7 *> y L Aftit t 3 -r"^ 77"A L "Tli 
t i $nAi.'0A'„ 

^LT, 5 C t0A>.'7°B 

7-7 A?fJSiAA(iA < ? A, ^'A < t {) 
I#fi{:'ijy0y7 h ^-f^nsAJ: y iiA < 
$Ai.'40-C^)S„ A t xif.o 

z7t.'7-Y7*n>AifA*y*^At', 1 
C-C'{)^1g*»*So 7^ r"7A'g*^5fe^-o 
7Li70-!r'*S„ LT g^07'^T"7 
ciiixAL^i.', #5^^0y 7 
S t t A*fii, ^|!A**ii-r' 

A-7 7 7 - W A c |g 

(tJS7 7i'5 0A'„ ^)(f < 0^-CCii, ^ 
acAoTi'f. 1) 

57y7|'0Zt 
L i yblf-rf)io 

7°n7"7^lii A'lff 
i.'Ai’o C t 1) At.'A'A 7o 

2 oti'*-y f.ns„ CFtoCii 

Aiar-C g'9-07”n7'7 5 77" 
L i t„ t70t 

o ii sl0+-r'!Sm * ?r 11 f, i -ti- -r g ^0 li!: 

^CiiiAA L i 7 t, gi9-Ct^TM^A 

0J;i,'7-7ji'**y#17 Li 70-r', ?■ 

n^t.'3."J^C L J; 7 11 5 

If aa*7 a y X l - y 

ts-o A y LT, r'-Aitt s cii*‘A y» 

y < a c t r* s, i a c 

7 l.'7ii'g-{)i>S„ S®04''r'g^07'—A 

L AB^^-TiS^^g. L 7 L i 17 7° 
B7'7 5 77"t SHljCte^ 7 L i 7o 
®ii0#®:li, D'tc074T"7*^**'b5. 


t A A0 R* t A L C t <"1A0«?JC|5( y 
*-*‘o TLi7CtC*S„ A < i 
Li.'0lfi.'i.'0A'*L Blif*- 
«)*• s AI.' t L T mi.m t A y. 

i 6 y *>(i^A7'7 t-©)b<x5 0-r^?r'7 

gAli 7 *H'(,'„ 

se^l:l-|S2(R#^i:lz'jy 

ztxliT^ T"7A'(tf1so -caf. ^ 7 -Y-y 
(7)-’^y i—7 3 7A't.©'5 7 j: !.'„ ::07 
^7°0!^®i:g, ^)SLT L t.'A'.'y7 60 
7 -f t" 7 ^ g^0slc L i o 7 if < A’g-T' 
ii)iJE-r'i!-r, ^7Ao-tc ri,>i, cn 
7 >.'7 7 '—aAHsoT^AA'j tL 
‘p'^'y'CibZ Z iC^Zo >.'*‘C<)L7 

■f <"^^7 4 **0 J: 7 c (AAIiAi.'7>.' 
^ 0 MA'':> A y t S 0 A'*^) c6570 

■Cm< Ii7 L y 77 L ii.', t liCIi 
^ eg:: 7 L Ali 7 *’'®&i.'j A t't 
PAg5A7'L i 707'*S„ 

7', 1#*lfAaA«L^-^'5.e tCio 

T^ >i-r^ li 70 7 ■6. CM*'ll> t ^ 

5ia?-ii-T L i ).', t.'O0ic*>?-0y7 
A>.'i < 07 

iioffloAetC, AiAli).' 

-70 i c*'JAC-f^S 7^07^77 71#^ 
t L y 5 0A'o 

i >b y ce 7 >.'7 PA'ggii^AAFtB*^ 
I'T {)'i^L7#liLTg>.'gA>.'„ miik 
L777 AiiA>.'7).'5 >bg7«Ai'0A'*' 
1^0 7'A< t {)ftfe,AC7.1 T"7?f L 
•C>.'S t &Cg2ls:^7.6 07^r"7 77°B 

7' 7 A Ibt S M71' S g 7 A 0 A", A A", 
y’‘vi^yu i LT^^7S e t C ioTl# 
Sii£J:y, Ac|gL7l#5)^J£0g7*5 
5feC|! 7 L i 7 A'it A0 A'„ 7 -f 77 A'g 
7 77 AF6|g]fl^ t >.' 7 A g*. 
e-t.iigni^6^t>.'xSA'A7o 


fo'A'LAfc'!l)'LA7n777 7i 






Gos u B 

z0^f^7°ti, T'trrfSiH'^-oxm^ 
x'^ic y^oy'y-i^i-L ji 7 i i'y MSka 

y 'I i 

GOSUB^t, REMi, 
fShlX^io tz<.'X<.'iim^f£^ 
EM*'ol'■rl.'S*^7°n;!''•7 a5?^T i, f 
A.^j;y 7 h X, ■t7> 
t«-rt, i//-r’i!-C(.' 
^'.'ti.'Po 44.®:; t #14® 

*’'®ffiJ#-9-7V—t i fc L i: LT 

4®*‘6*‘o'C(.'4*'G, *t(i-')-7V- 
7 ^ 1 o O t os* T tt ii'i'I.' t $'ll> 
LTLii', S^c®y7 h 4 a®S4fi. 
4 4 t lii-f 4:1.'. •t7>— 
i:=iT&i£i-9A(), iSc^?a*s£lT L i 
oT^4m%-4: < LA f) 41-4. i#, 3 
—r"/f 77'L ■tf'f i i:, 4:fc*‘ox 
r ^ i:# G#ci" i ■fi:ilc.®#J£ 
i'® iiJti'-C'* 4. 

4®#®#fiA#i:’tinT(.'4At:4:4 t, 
t> y t RETURN A(t®-f7" 

^t< L-ci.'4. 4 7i-nifmi i cf-^n 

4 LT"^^'y7"L^-r#4. Lott, 

4:^1—^vA'ttti-r# 4 L^ftLT {>3^y 
-iiai4:i.'®A'*^ t 

I.' 5*Slli:4: 4 4 LXibi>0X 

Ji^LTi'A'A'l! Ai'„ 

i:o??l,'7t, fit 3—T"/f 77'%-L A 

< Ai.' t A < Ao 

At §iii®#i£?rSfflLTi'4. .tnf 
4A*‘, Bg7°n t:lJ:;®#??irtT*, t 
i-ri.'i.'JiCoTMI'lioA D tt4®-C'* 
4. 

^-3^=>CniSIZ 1^;!? <0 

Mtii-yy y/i'-^y^ifi>X'y0Mi 

^IX h Ja tSG**y ^ 77^—^7® 

JA c 5 ® A ^ - 7”- 7 7'jiiffi-r * 

4 4 t t 

Ai.'®A**i t'7L-C:t 
?;u:7T ^.'^^il®A^^4®A'^ 7. 
y 7 t 4 tSf?Ji:im4®U:7T 

^>'^A'. A'*'?. tt.'o-cl^stcl-n.A'f'^f. 
AUfL(fAGAi.'*'ti.'7 t.t5-niAi.'. 
7 T 7®7"n7'y 4 i-rA^ t .'i.' 


mSAATfal^A 0® t®-r'i.'i.'®A% A 
i.'At.'4 7 i.'^ A'7i:pgoTi|it)'l4'C', M 
®tlBJ)^t7°n7'y aAI'L < OibLA 
A G 7°3 77"@®tf*' *) i'py) Xi'i0 
■C'# 4. 

fi®^ *) 'S’l.'l- t 4 7 i' 7 A'7*H' 4 ® 

A**s, Aii: '■ffLi.'®*5-r# Aij ti.' 
6nTilC;i:ff< t, ?fil#-A:t-7”-7 7" 
jiiffiA#^(fAM-r'£-ti-T < <X4. !■ fii' 
Al^i:7-7 t f & 4®-ir. 4 

nfise?-7 A't@i®i:*4 thit spa 
CE KEYjt:fiEo-CX-4-xA--Aff-rt, 
t A-rt Ai.'4 11: OK irnm^bXl^h 
o-r Li 7®-r'*4. '■4©^|iij:?jtH 
< t, ^itSzM'Cyj t¥^tt:i4®A'o 
Lli'G < LTi AjSAi:fi-< t, 4®fi® 
*5^t:AG A*‘o A t (.'oT7 7 7.'i^—f- 
7Aflfft-r'l>Ti.'Ai.'®C, iAT-- 
7°- 7 7"il® A T t.' A •) t 4. 

C 7 L'C?fcf-A^-7°-v7"AI^4 Alt 

0T7-'y7 t1Em*«#4 < ti-i:, 


-•A f D O < rnr.mix^XX L i 5 ®A. 

L'7i:^;t:-C*4. 

7" —7°— y 7''ti'** 0 T t.' 4 A '7 t ® 

T:i.'4*i :^jl£A'ii4 G®7 ^ 7°®li 7 
*^^ 1 't,©l)n4„ PCG®#i,'A^'”y 3 7 
*>t§lT(t i.'oT tMZtXl < Gi'A**), 
iiAtf-gt:A-77 77-*5{'^n4 J; 7 i: 
rj:-ot:ij'C,tSb7o 

4®7 7 7Tir'—A 7 t-Si'jilo 

t Wi •) t i-f A-7 7 7 7D t:®A) *> 
*>4®r’*4, iS^A3-T"/( 7**#>.'Ti.' 
4 i='*>tfA", i' t,ii'A A'7'3.7L 
<, AiJ*>07°n 7'7 5 77"ftg# AA < T 
t A A- 7 7 7 7 i' 1 ; A 

o T L i 7 ® A*. 

^Ji:loTffl-o A4 t 1 :, ®GliA-77 
77-AI^4 t .tnAsI®'f®WA'illJr 
■tt-i^!*4®A*4. g:9-®-tB:#i:ftilj? 1 


El 1 GOSUB Alt® 7 -c 771 —^y (MZ-2500) 


le 

9eg 

920 

950 

960 

970 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 


kill “PLANET_WAVE":SAVE "PLAMET.WAVE / 
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♦ 

♦ ♦ 
t********t**t****$:*t*t**t*******t*t****t**t:t*t*********t*tt**tttt**t**** 

GOSUB ^INITIALIZE 
GOSUB ♦G.SET 

*HAIN 

K$-1NKEYS 

ON INSTR (CMD$,K$)-1 GOSUB ♦LEPT_H0VE,*RIGHT_M0VE,♦UP.HOVE,♦DOWN.HOVE,tSHOO 


1130 ' 

1140 GOSUB *MISILE MOVE 
1150 GOSUB ♦HIT.JUDGE 
1160 GOSUB ♦ALIEN_M0VE 
1170 ' 

1180 GOSUB «STAGE JUDGE 
1190 ' 

1 200 ' 

1210 IF LEFT_PLAYER-0 THEN ♦FIN 
1 220 ' 

1230 ' 

1240 GOTO ♦MAIN 
2001 END 
5000 ♦LEFT MOVE 

5499 RETURN 

5500 ♦RIGHT.MOVE 

5999 RETURN 

6000 ♦UP MOVE 

6499 RETURN 

6500 ♦DOWN MOVE 

6999 RETURN 

7000 ♦SHOOT 

7999 RETURN 

8000 ♦MISILE MOVE 

8499 RETURN 

8500 ♦HIT JUDGE 

8999 RETURN 

9000 ♦STAGE JUDGE 

9499 RETURN 

9500 ♦ALIEN MOVE 
9999 RETURN 

10000 ♦INITIALIZE 
10010 CLS 3 

10020 CMDS-'Z4828 TLEFT PLAYER-3 

11999 RETURN 

12000 ♦G SET 
12999 RETURN 
15000 ♦FIN 
15999 END 
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112 t) J:-7 i:S-7 A:t-^^-7 7'(BASIC-M25) 


leeee ' 
leeie ' 

10020 ' Let's T9hA'-> OPENING 
10030 ' 

10040 ' 

10050 ' 

10060 'OPENING 
10070 ' 

1 0080 INIT ''CRT2; 640, 200, 16" : INIT "CRT:,,,!" 

10090 CLS 3:T$-"O3L4T128S0"rPLAY ,,,TS+" 114000",T$+"H10000",T$+"M10000" 

10100 ' 

10110 COLOR-(6,0) :C0L08-(7,5) :FOR I-l TO 5:COLOR-(1,0) :NEXT 
10120 CIRCLE (320,38),50,6:PAINT (320,38),6,6 
10130 ' 

10140 SYMBOL (222, 20),'L e t 's ",3,1,7 

10150 SYMBOL (182, 40) , “r »> h -'N'- y ", 3, 1, 7 

10160 SYMBOL (220, 20),"L e t 's ",3,1,5 

10170 SYMBOL (180, 40) ,'7 h /N'~ 3, 1, 5 

10180 ' 

10190 LINE (0, 90)-(639, 90), 5 :G0SUB 1 0420 
10200 FOR I--32 TO 31 

10210 XUP-(1 + 32)♦10:XDOWN- ((I + 32)-20)*25 :LINE (XUP,90)- (XDOffN,199),5 
10220 IF I MOD 10-0 THEN GOSUB 10420 
10230 NEXT 

10240 FOR I--32 TO 31 

1 0250 IF I<--3 THEN PAINT ((I + 32)♦10-(I/1 0),9 1), ((I + 32) MOD 4)+l,5:G0T0 10280 

10260 IF I>-3 AND I<6 THEN PAINT ((I + 32)♦10+3,92), ((I + 32) MOD 4) + l,5:G0T0 102 

80 

10270 PAINT ((1 + 32)*10+(1/4),91),((1 + 32) MOD 4)+l,5 

10280 IF I MOD 4-0 THEN GOSUB 10420 

10290 NEXT 

10300 GOSUB 10440 

10310 FOR I--32 TO 31 

D*4)^!i ^^P‘^* + 32)*10:XDOWN-((I + 32)-20)*25:LINE (XUP, 90) - (XDOWN, 199) , ( (1 + 32) MO 

1 0330 NEXT:LINE (0, 90)-(639, 90),0 
1 0 340 COLOR- (6, 2) : COLOR■= (5, 4) : COLOR - (0, 1) 

10350 CFLASH ^LOCATE 28,22:PRINT "HIT SPACE KEY!" 

10360 FOR 1-0 TO 1000 

10370 COLOR-((I MOD 4) + 1,2) :COLOR-(((I + 2) MOD 4)+l,4) 

10380 COLOR-(( (1 + 3) MOD 4) + 1,4) :COLOR-(( (I + 1) MOD 4)+l,2) 

10390 ST$-INKEYS:IF ST$-" " THEN CFLASH 0:END 
10400 NEXT 
10410 GOTO 10360 
10420 'MUSIC 

10430 PLAY ,,, " (CCC)",'E-“,"G":RETURN 
10440 •MUSIC2 

1 0450 PLAY ,,, "C", "E-", "G" .'RETURN 
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1000 

PCG 

1010 

DATA 

1020 

DATA 

1030 

DATA 

1040 

DATA 

1050 

DATA 

1060 

DATA 

1070 

DATA 

1080 

DATA 

1090 

DATA 

1100 

DATA 

1110 

DATA 

1120 

DATA 

1130 

DATA 

1140 

DATA 

1150 

DATA 

1160 

DATA 

1170 

DATA 

1180 

DATA 

1190 

DATA 

1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

FOR I 

2000 

END 


for 5 ? • O'*-X" 


0030,003C66666666663C0038444444444438003C66666666663C 


0036,003C66607C66663C0038444078444438003C66607C66663C 


101F1793D1F1FD50101F1793D5F1F7F 


, 007086691 0E 106*00708060I6E908090670806016E9080906 


TO 36 :READ C$,D$;DEF CHR$ (VAL ("&H" + C$))-HEXCHRS (D$) :NEXT 
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56 

BTX 

"RPG.Ver0.1" 

'86/07/27 

12 

30 

DIR* 

”. . " 

' 86/08/21 

1 5 

56 

BTX 

"RPG.Ver0.2" 

'86/07/27 

15 

12 

BTX 

“ lioa" 

'86/04/08 

22 

45 

BTX 

"RPGoniJ $ t tl] " 

'86/07/27 

15 

12 

BTX 

"leeB. 2 " 

'86/04/10 

23 

4 1 

BTX 

"SAIKORO" 

'86/05/22 

18 

16 

BTX 


'86/05/06 

16 

27 

BTX 

"SHELLSORT" 

'86/08/07 

17 

46 

BTX 

“ATTACK.G" 

'86/08/20 

01 

28 

BTX 

"SKI.15LL" 

'86/08/20 

21 

10 

BTX 

"ATTACK.T" 

'86/08/07 

17 

30 

BTX 

"SKI.25' 

'86/08/20 

03 

25 

BTX 

"ATTACK_Ver0.1“ 

'86/08/07 

17 

24 

BTX 

"SKI.X" 

'86/08/20 

03 

35 

BTX 

"FOR.NEXT" 

'86/08/07 

17 

55 

BTX 

"SKI.XX' 

'86/08/20 

20 

54 

BTX 

" GAL i nTfj ir^ 

'86/08/18 

21 

45 

BTX 

"SORTl• 

'86/08/07 

17 

41 

BTX 

"GAME UFO" 

'85/12/18 

21 

53 

BTX 

"S0RT2" 

'86/08/20 

01 

30 

BTX 

"GOLF" 

'86/01/11 

18 

02 

BTX 

"SRI" 

'85/12/18 

13 

23 

BTX 

"GOSUB SAMPLE" 

'86/08/18 

21 

52 

BTX 

'UF0_CHR1" 

'85/12/18 

21 

27 

BSD 

"GOITER" 

'85/1 1/J 0 

0 1 

07 

BTX 

"F M #aS[XT 4 ^ " 

'86/01/09 

21 

38 

BTX 

'G CHRl" 

'85/12/18 

1 4 

05 

BTX 

" e X F ;l/ y - A " 

'86/06/02 

23 

35 

BTX 

"G UFO" 

'85/12/18 

14 

04 

BRD 

"if DATA" 

'86/01/09 

21 

26 

BTX 

"G UF02" 

'85/12/19 

01 

29 

BTX 

"m ^ “ 

'86/04/08 

01 

47 

BTX 

"G.UFOZr 

'85/12/21 

02 

09 

BTX 

'S » ft . ' 

'86/05/24 

03 

19 

BTX 

"KEY.INP" 

'86/04/11 

01 

1 7 

BTX 


'86/07/21 

19 

07 

BTX 

"Let' s7>>h^'' 

'86/08/19 

23 

4 1 

BTX 

'¥if L y-A II" 

'85/11/18 

00 

45 

BTX 

"Let 's7^hA' ->.V2 

" '86/08/20 

22 

59 

BTX 


'86/08/20 

04 

08 

BTX 

"MOVE TEST" 

'86/08/08 

03 

'54 

BTX 

OPENING" 

'86/08/21 

17 

18 

BTX 

"H0VE_TEST.A' 

'88/08/19 

23 

21 

BTX 

"7’>Fa' OPN" 

'86/08/21 

18 

27 

BTX 

"PLANET IfAVE" 

'86/08/21 

15 

15 

BTX 

OPNX" 

'86/08/21 

18 

42 

BTX 

"PLANET WAVE.1" 

'86/08/20 

21 

28 

BTX 


'86/08/20 

22 

48 

BTX 

"RACE Ver0.1" 

'86/08/08 

15 

42 

BTX 

"■^‘ -7x Ay" 

'86/02/01 

23 

49 
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900 

' 1010 tr 74=* 3Fn7.<S: K o T 



1000 




1010 

CMD$-‘*Z4628" :TIME-0:'goto 1060 

10 

' TS' 7' It • :/- h 

1020 

FOR 1-0 TO 1000:A$-INKEY$ 

20 

DIM N (100) 

1030 

ON INSTR (CMD$,A$)-1 GOSUB 2008, 21 00, 2200, 2300 

30 

FOR I-l TO 100:N (I)-INT (RND (1)*100) :NEXT 

1040 

NEXT:PRINT TIME 

40 


1050 

END 

50 

TIHE-0 

1060 

FOR 1-0 TO 1000:A$-INKEY$ 

68 

FOR J-1 TO 1-2 

1870 

IF A$-"4" THEN GOSUB 2000:GOTO 1110 

70 

FOR K-J TO 1 STEP -1 

1080 

IF A$-"6" THEN GOSUB 2100:GOTO 1118 

80 

IF N(K)<-N(K+1) THEN 100 

1090 

IF A$-'’2" THEN GOSUB 2200:GOTO 1110 

85 

SWAP N (K),N (K+1) 

1100 

IF AS-'B" THEN GOSUB 2300 

90 

NEXT 

1118 

NEXT:PRINT TIME 

100 

NEXT 

1999 

END 

110 


2000 

'L 

120 

PRINT "TIME- ";TIME 

2010 

PRINT "tJt'r 

130 

FOR A-1 TO I-l 

2020 

RETURN 

140 

PRINT USING " #lt" ;N (A) ; 

2100 

'R 

150 

NEXT.-PRINT 

2110 

PRINT " 

160 

END 

2120 

RETURN 



2200 

'U 



2210 

PRINT "' 71 - 



2220 

RETURN 



2300 

'D 



2310 

PRINT 


117- B '> X ;i/ y (HuBASIC,MZ-2500) 

2320 

RETURN 




me GOSUB0y^|(^(HuBASIC,MZ-25OO) 


lett ’ 

1»1» ■ GOSUB X‘')XK 

1 » 2 » ’ 

1»3« ’ 

]a4« TiHE-a 

lasa FOE i-a to laaaa 

laaa gosub saaa 

ia7a KEXT 

laaa feint tine 

2aai END 

saaa *a 

Saia EETUEN 

siaa ' 

Slia 'N-25 TU 
52aa ' laaa u ir tosub 
52ia saaa ft i aosub 
522a 'Bu Tli 
523a ' laaa fi i (osub 
S24a 'saaa ff i tosub 


'XI LABEL -A" 


*A or aAAAAAAAAAAAA K. 

<AAAAAAAAAAAA IT) k ^ li 4AAAAAAAAAAAA C£ 
■A' or 'AAAAAAAAAAAA' C 

■AAAAAAAAAAAA' <7 t S « LABEL 'AAAAAAAAAAAA' 


iz-r i 


] 0 'yl A ' 'J- F 
20 DIM N (100) 

30 FOR I-l TO 100:N (I)-INT(RND (1)*100) :NEXT 
40 ' 

50 TIME-0 
60 C“100:ST-C 
70 ST-INT(ST/2) 

80 FOR L-1 TO C-ST 
90 FOR U-L TO 1 STEP -ST 
180 IF N (U)<-N (U + ST) THEK 130 

110 SWAP N(U),N (U+ST) 

120 NEXT 
130 NEXT 

140 IF ST>1 THEN 70 
150 ' 

180 PRINT "TIME- ";TIME 

170 FOR A-1 TO 100 

180 PRINT USING " ;N (A) ; 

190 NEXT :PRINT 
200 END 
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I ) XV 2 jsssiIam; 


10 ^ 5555 ^ (1 390 - 1 600 imm 

1130 init "CRT:,,,0'': init -CRT2 : 320, 200, 5 1 2 :color ,,,, 
1 340 gosub ♦A^SUB 

1350 pen 4:pset (X,Y), XC,xor : p s e t (X,Y), XC,xor : re t urn 
1 360 ♦A:^SUB 


): Bou s e 0 


1370 

1380 


"iY"(E or D) and (BOuse(2,l) or ■ouse(2,2)) then gosub 1 350 :goto 1370 
E-0 :D-0:X-«ousc(0):Y-BOuse(l):E-BOuse(2,l):D-BOuse(2,2) treturn 
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for SUPER HZ 
Copyright ^by 1986 




X- 1G0:Y-100JXC-511;W-319:L-199:X1-X:X2-XsX3-X:Y1“Y:Y2-Y:Y3-Y:LXX-X:LYY-Y 

init “CRT:.,,0": init “ CRT2 : 32 0, 2 0 0, 5 1 2 ' : c o 1 o r ,,,,0 _ 

di. liS$(16),««$(7).-fe$!(7),T$(7),S(7),U$(7),B^$(20.2),a7i:(585),fe£(1285 

option angle degrees:k1ist 0:on error goto ♦ERROR 

gosub ♦||^||:||“7 : gos ub • 8 o * “ , 

:fe-511 l:HY-0:OY-L:CM-24:CS-0: VY - 1 6 : VYS-0 : VYE - 183 - 1 • 

get* (0,CS) - (W,CS+15) ,fe£:gosub gos ub 

goto 

restore 1240:for 1-0 to 15:read A$: ||S$ (I) - h e x c h r $ (A$) : n e x t 
pen 5,hexchrS (“8244281028448200“) :pen 4,hexchr$ (“d6921 0ee 1 092d600“) 
pen 3, hexchrS (“ 0000001e lelele00“) : pen 2, ||S$ (6) : r e t u r n 
data '3c7effffffff7e3c',“387cfefefe7c3860“,“00183c7c7e3cl800' 
data “0010387c38100000“,“0000163c3c180000“, “0000103810000000“ 
data “0000001818000000“, “00000010000®0®G0''»''59928A21 AC40294C“ 
data “8A28864A34810AA9“,“800A5005A08A2014“,“A400104208A40840“ 
data '0080080024000148',“8008000024810000“,“8008000020020000“ 
data “8000000008000000“ 

for 1-0 to 7(I)-hexchrS (“ 0000000000000000') : next:re turn 
Bain ------------ 

♦ A* '- 

gosub sAli^lSUB 

pen 4:pset (X,Y),XC,xor : pset (X,Y),XC,xor:return 

♦ A*SUB 

AS-inkeyS:A-Va I (AS) 

if (E or D) and AS-““ then gosub 1350:goto 1370 
i f A>0 and A<10 then 

S-S+l:on A gosub 1490, 1500, 1510, 1520, 1 530, 1 540, 1 550, 1 560, 1 570 :E-0:D-0 : 

1580 

else if AS-“ “ then 
repeat off:E--l 
else if AS-“ “ then 
repeat off:D--l 
else 

repeat on ,4:S-0:E-0:D-0 
end i f 
return 

X-X-S:Y-Y+S:return 
Y-Y+S:re turn 
X-X+S:Y-Y+S:return 
X-X-S:return 
return 

X-X+S:return 
X-X-S:Y-Y-S:return 
Y-Y“S:return 
X-X+S:Y-Y-S:return 

if X<0 then X-0 else if X>W then X-W 
if Y<0 then Y-0 else if Y>L then Y-L 
return 

gosub ♦A:^Uosub ♦#^$ 55 ill 2* gosub #^^55 
if D then cistgosub ♦^O'goto 1620 
if E-0 then 1620 

XI- X:Y1-Y 
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► 9 R^P.730^^^, 6MHz t t'7 - t li Z 80 B ;L b 7 Z t 

(17) 











1 660 on gosub ♦ftH, »7'tA’♦R, ♦SISl, ♦iSKc, ♦BOX, ♦BOX, *T00L, *1*^, 

♦ l£^, ♦te^, ♦Ife^, ♦IS^, ♦lE^, ♦le^, ♦ROLL, ♦LUPE, ♦SAVE, ♦LOAD 

1670 goto 16]0 

1 680 '- 

1 690 creve (MX,MY)-(MX,MY),0 

1 700 if ((5E‘^0 and X>31) or ({5B”36 and X<288) then return 

1710 MX“XY8:MY-YY8: crev« (MX,MY)-(MX,MY) , 1: if E-0 then return 

1 72 0 EX- (X-{iia^8) Y16:EY-YY8 

1730 if EX-0 and EY-0_then 

1740 gosub ♦7Y7>|^7 In** go 1 0 1880 

1 750 else if EX-1 and EY-O and then 

1760 gosub ♦^^:^;^:goto 188 0 

1770 eIse if EY>0 and EY<9 then 

1 780 iE-EY + 8^EX-l :gosub 

1790 else if EY>8 and EY<18 then 

1800 ^^-2^ (EY-9) +EX+1 

1810 else if EY>17 and EY<25 then 

1820 ^^-EY+1 

1830 end if 

1840 cflash® ({SB, sgn (EYY9) ^9) - ({58+3, 8+sgn (EYY9) ♦16) , 0 

1850 if EY>0 and EY<18 then cflash# ({5B+2^EX, E Y) - ({5B+2^EX+1, E Y) , 1 

1860 if EY>17 and EY<25 then cflash# ({SB, EY) - ({5B+3, E Y) , 1 

1870 if (#^<11 or ^^-19 or #^-21) and fe£aj-0 then get® (0, C S) - (W, C S+1 5) , 

^:gosub ♦^^||;js2 else if ^-^>10 and ^-^<>19 and ^^<>21 and then view:put@ 

(0, CS) VYS-0: VYE-L 

1880 return ♦^^{#'<3 

1890 ♦fe^H '- 

1900 if CS>Y or Y>CS+15 then return 

1910 if (CS-0 and {4B*8<X and {5B*8 + 31>X) or fe^£il-0 then return else view 
1 920 gosub E or D then 1 930 else gosub ♦VlElfJgoto 1900 

1 930 gosub ♦A]^*if E then gosub ♦PUSINGJgoto ♦i|!^T 

1940 If X>159 and X<288 and Y>-CS and Y<CS+16 then gosub 1980 else gosub 1960 
1950 goto 1930 

I 960 ^BlU-e^fe-point (X,Y) :PU-24:gosub ♦POSING 

1 970 for 1-0 to l:line (I♦288,CS)-(I♦288+31,CS+15),pset , fe, BF:next:return 
1 980 T- (X-160) Y16:«tt--1 

1990 for 1-0 to l:line (I ♦ 288, C S) - (I ♦ 288+31, C S+1 5) , p s e t , fe, BF, (T) : n e x t: r e 
turn 

2000 ♦^O '- 

2010 V i ew5A-po i nt (X,Y) Jgosub ♦VIEW 

2020 if then paint (X, Y) , ^^8$ (T) , n 0 1 A else paint (X,Y),fe,not A 

2030 D-0J return 

2040 ♦ffitSl'- 

2050 gosub ♦Ali^'Pen 1: if E then ♦♦I^T 

2060 line (X,Y)-(X1,Y1),pset , fe:X1-X:Y1-Y:goto 2050 

2070 ♦7'^v '- 

2080 gosub ♦Aii^'pen l:if E then ♦Sl^T 

2090 if abs(Xl-X)>7 then Xl-X:pset (Xl,Yl),fe 

2100 if abs(Yl-Y)>7 then Yl=Y:pset (Xl,Yl),fe 

2110 goto 2080 

2120 ♦A* > '- 

2130 gosub 

2140 gosub i f D then ♦i^^T 

2150 gosub ♦Al^SUBJpen 0:if E then ♦IIT 

2160 if then line (X, Y) - (X + LX, Y + L Y) , p s e t ,fe,BF:goto 2150 

2170 line (X, Y) - (X + LX, Y + L Y) , p s e t , fe, BF, ^^1$ (T) : go to 2150 
2180 ♦R '- 

2190 gosub ♦A:^J X2-X: Y2-Y: i f D then ♦#^T 

2200 X3-abs (X1-X2) :Y3-abs (Y1-Y2) :if X3-0 then X3-.001 

2210 ifc$-Y3/X3: i f X3>Y3 then ^S-X3 else 

2220 gosub ♦RXORtgosub ♦RXOR 

2230 if-E then gosub ♦RXOR else 2190 

2240 gosub ♦A:^=jf D then gosub ♦RX0R:goto ♦I^T 

2250 if E-0 then 2240 else pen 5: pset (X,Y),XC,xor:X2-X:Y2-Y 

2260 gosub mihn~n ^ vo v vo v 

2270 gosub ♦A^'iJ E-0 then 2270 else pen 5:pset (X, Y) , XC, xor : X3-X: Y3-Y 

2280 gosuh ♦A«ff3|[:#^Tft-^|Jpset (X2, Y2) , XC, xor : p s e t (X3, Y3) , XC, xor 

2290 if then ^T^-ffii6^+360 

2300 if then ||TII-|?tT^+36 0 

2310 pen 0:gosuh ♦RXORiX-X1JY-Y15pen 1 

2320 gosub ♦A:tl-'if D then ♦IIT 

2330 pen Itcircle (X, Y) , XC, xor 

2340 circle (X, Y) , XC, * 0 r 

2350 if E-0 then 2320 

2360 circle (X, Y) , fe, it^» P s e t : go 1 0 ♦i^T 

2370 ♦RX0R:pen 0:circle (X 1, Y 1) , XC, , , Jt^, x 0 r : r e t u r n 

2380 ♦^J^|f-J|::0-X-Xl:P-Yl-Y 

2390 if 0-0 and P<0 then :ft--90 

2400 if 0-0 and P>-0 then ^-90 

2410 if O<>0 then :ft-atn(P/0) else return 

2420 if ft<0 and O<0 then ^-^+1 80 : r e t u r n 

24 30 if and O>0 then :ft-|^+36 0 : r e t u r n 

2440 if |^>0 and O<0 then ||-:ft+1 80 : r e t u r n 

2450 return 

2460 ♦itti '- 

2470 gosub ♦A^-pen l*if D then ♦I^T 

2480 line (X 1,Y 1)-(X,Y) ,xor ,XC:line (X 1,Y1)- (X,Y) ,xor ,XC 
2490 if E then line (X1, Y1)- (X,Y),pset ,fe:goto ♦I^T else 2470 

2500 '- 

2510 gosub ♦A^’pen l:if D then ♦I^T 

2520 line (X1,Yl)-(X,Y),xor ,XC,,&HCCCC:1 ine (X1,Y1)-(X,Y),xor ,XC,,&HCCCC 
2530 if E then line (X1,Y1)-(X, Y) , pset , fe, ,4HCCCC:goto else 2510 
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2540 *BOX - 

2550 gosub l:if D then *^7 

2560 if ^^“7 then line (X 1, Y1) - (X2, Y 2) , p s e t , fe, B else if then line (XI 

,Yl)-{X2,Y2),pset , fe, BF else line (X 1, Y1) - (X 2, Y 2) , p s e t , fe, BF, (T) 

2570 goto *^^7 

2580 ' - 

2590 CM-5:gosub ♦CON SOLE:cIs:HY-40:0Y» 1 9 1 :gosub ♦R|L 

input '':^^^A:tiLTT$v^, i f then :^:^$=ffj:Sc^$:goto 2050 

input 
input 

locate 4,3:print " A^ LTT^ 

locate 4,4:input ” 0* —0, 90*-»1 , 1 80* —2, 270* ~»3 '',ftj^:if ^J^<0 or ^^Jg>3 the 


2600 
2610 
2620 
2630 
2640 
a 2640 
2650 
2660 
2670 
2680 
2690 


gosub aRIU 

gosub ♦A^*»f D then goto tUT 

if E then sy.bol (X, Y) , fe, : go t o *^^7 

gosub 2690:gosub 2690:goto 2660 

sy»bol (X, Y) xor :return 

2700 *1001 '- 

2710 LXX-8:LYY-8:gosub i f D then *1^7 

2720 I-Y3*40:TT$-"': for J-0 to 7:U$(J)-''“ 

2730 for K=0 to 3:S(K)-peek®(&H20+2#K,I+X3V8+J*40) 

2740 S(K+4)-peek@(&H20+2*K+l,I+X3Y8+J*4 0) :next 

2750 for H-0 to 7:if S(H)<16 then T$ (H) - " 0 “ + h e x $ (S (H) ) else T$ (H) « h e x $ (S (H) ) 

2760 U$ (J)-U$ (J)+T$ (H) :next:TT$-TT$ + U$(J) :next 

2770 view: HY“8:gosub ♦^L'print " LTT$ 

2780 gosub ♦A^^'if D then 2820 
2790 if E-0 then 2780 

2800 if X<160 or X>287 then 2780 else TX-(X-1 6 0) Y 1 6 : (TX) - h e x c h r $ (TT$) 

2810 line (TX* 1 6+1 6 0, C S) - (TX* 1 6+1 7 5, C S+1 5) , p s e t , fe, BF, ^^5$ (TX) 

2820 goto 

2830 '- 

2840 gosub i ( D then 

2850 LX-X2-X1:LY-Y2-Y1:gosub ♦BX 

2860 gosub *fi^^:X3-X:Y3-Y:gosub ♦BXtif D then *#^7 
2870 if X1<X2 and X3+LX>W then 
2880 LX-W-X3 

2890 else if X1>X2 and X3+LX<0 then 
2900 LX-X3:X3-0:X1-X1-LX 

2910 eIse if X1>X2 then 
2920 X1*X2 

2930 end if 

2940 if Y1<Y2 and Y3+LY>L then 
2950 LY-L-Y3 

2960 else if Y1>Y2 and Y3+LY<0 then 
2970 LY-Y3:Y3-0:Yl-Yl-LY 

2980 else if Y1>Y2 then 
2990 Y1-Y2 

3000 end if 

3010 if LX<0 then X3-X3tLX 
3020 if LY<0 then Y3-Y3+LY 
3030 LX-abs (LX)+1 :LY-abs (LY)+1 

3040 if #^-11 then wove (X1, Y 1) , LX, L Y, (X 3, Y 3) , , 0 else wove (X 1, Y1) , LX, L Y, (X 3, 
Y3) ,, 1 
3050 goto 

3060 '- 

3070 gosub ♦Tgj«#&^:if D then 
3080 i f 13 then 

3090 LXX-LX*2:LYY-LY*2:U-2 

3100 else if then 

3110 LXX-LXY2:LYY-LYY2:U-..5 

3120 else if d^^-15 or d^^-16 or d^‘^-18 then 
3130 LXX>LX:LYY-LY 

3140 Q-abs(sgn (#^- 16)) : R - s g n (d^"n - 15) :U-sgn(l-2*Q) :T*sgn(l-2*R) 

3150 else 

3160 LXX-LY:LYY-LX 

3170 end if 

3180 gosub ♦BX: gosub ♦^^^igosub SBX: if D then 
3190 if d^^~ 13 then pen 2 
3200 if d&‘^”13 or d^^“14 then 

3210 for I-l to LY-l:for J-1 to LX-1:C-point (X1 + J,Y 1 + I) 

3220 pset (X3+J*U,Y3+I*U),C:next:next 

3230 else if d^-^*17 then 

3240 for I-l to LY-l:for J-1 to LX-1:C-point (X1 + J,Y 1 + I) 

3250 pset (X3+I,Y3+LX-J),C:next:next 

3260 else 

3270 for I-l to LY-l:for J-1 to LX-1:C-point (X1 + J,Y 1 + I) 

3280 pset (X3+LX*Q+J*U,Y3+LY*R+I*T),C:next:next 

3290 end if 
3300 goto *1^7 

3310 ♦fe3S$m '- 

3320 for 1-0 to 7 : ^fe (I) - 0 : n e x t : N-0 : go s u b * g o s u b »BX:if D then gosub aB 

X:goto ♦117 

3330 HY-8:gosub ♦RgL*view: for G-0 to 7 

3340 for J-0 to l:if J-0 then print “ IHfe^rle^ LTTi? else print 'jPrfeSr^B^L 

TT$V^. “ 

3350 console 23,2, f^S, 4 

3360 gosub ♦Al^'if D then 3400 

3370 gosub 1 960 :|f E then gosub aPUSING:G•G+J: ^fe (G)-fe else 3360 

3380 CM-3:gosub ♦CONSOLE:next:for K-G to 7: ^Ife (K) -fe: next 
3390 next 

3400 gosub ♦VIEW:gosub aBX :gosub 
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34 10 color replace (X 1, Y 1) - (X2, Y2) , (0) , (1) ) , (^'fe (2) , (3) ) , 

(5)), ($fe(6) ,^fe(7)) :goto tm 

3420 ♦ROLL - 

3430 console :cls:view@ 

3440 gosub ♦A^*«f E then gosub #7 Y3>^^2: go t o ♦I^T 
3450 roll® Yl-Y:Yl-Y:goto 3440 
3460 ♦LUPE '- 

3470 view:EE--l:LXX-15:LYY“15:if X<160 then XP-180 else XP-60 
3480 X1 =XP-1:X2-XP + 64:Yl-79:Y2»144:get» (XP,80)-(XP+63, 1 43), @ 7 C Jgosub tBX 
3490 gosub ♦l^^rif (XP-60 and X<160) or (XP-180 and X>159) then gosub tPUTtgot 
0 3470 

3500 if X3-XX3 and Y3-YY3 then 3520 

3510 for I"0 to 15:for J-0 to I 5 : C-po i nt (X3+J,Y3+I) :pen 3:pset (XP + 4^J,80 +4^ I) 
,C:next:ncxt:XX3-X3;YY3-Y3 

3520 if D then gosub ♦PUT:goto ♦ill^T else if E then 3530 else 3490 

3530 gosub D then gosub ♦PUT^goto ♦^T 

3540 if X<XP or X>XP+63 or Y<80 or Y>143 then 3550 else 3580 

3550 if E and EE then EE-0:gosub ♦FUSING else if E then EE--1 

3560 if EE then gosub 1960 

3570 goto 3530 

3580 if E then LPX-(X-XP)Y4:LPY-(Y-80)Y4 else 3530 

3590 pen 3:pset (LPX^4 +XP,LPY^4+ 80),fe: pen 0:pset (X3 + LPX,Y3 + LPY),: goto 3530 
3600 ♦PUT 

3610 put§ (XP,80), Stc* gosub ♦BX^return 

3620 ♦LOAD '- 

3630 gosub ♦7rY4-:if RN-0 then ♦I^T 

3640 color print " | 7 T ^ | | I " 5 

3650 for I-l to RN t print using " |& & | | It## | !9^$(I,0)i 

val (@^$(1,1)) ;val (@^$(1,2)) I : next 
3660 X-160:Y-8:N-1:YS-1 

3670 gosub ♦A>^*if D then ♦iJi^T 

3680 if Y<8 then Y-8 else if Y>RN^8+7 then Y-RN^8+7 
3690 if E then 3720 

3700 HY-YY8:N-MY: i f YY-HY then 3670 else crev® (4,YY)-(35,YY),0 
3710 crev« (4, IIY) - (35, MY) , 1 : YY-HY : go t o 3670 

3720 clstcolor ,,, , 0 : LXX- v a 1 (M:fe$ (N, 1) ) - 1 : LY Y- v a 1 (B^S (N, 2) ) - 1 

3730 gosub D then ♦J^T else gload (N, 0) , (X3, Y3) : gosub ♦7Ya>^7i>2:g 

oto ♦I^T 

3740 ♦SAVE '--- 

3750 gosub ♦^iSt&^:gosub ♦BX : H Y-31 : 0 Y-1 8 1 : go s u b ♦^t 

3760 Input A5:A:^LTT$‘V^, "tNAMES 

3770 print " s a v e L ^ f YE y 1 . NO y 2 " 

3780 gosub D then ♦#^T else if E-0 then 3780 

3790 gosub aBX:LL-Ien (NAMES) :if LL<24 then M-24-LL :NAME$-NAME$+space$ (M) 

3800 X3-X2-X1+ 1 :Y3-Y2-Y1+1:gsave NAMES, (X 1,Y 1)-(X2,Y2) 

3810 open " R ' , # 1, “ BffiS^2 “ , 32 : f i e I d #1,24 as ^KfS,4 as «:^S, 4 as B;^S 
3820 RN-lof (#1)+1 : i f RN>20 then close #l:cls :print •/h V^'': 

goto 3770 

3830 (RN, 0) -NAMES :@^S (RN, 1) - strS (X3) (RN, 2) - strS (Y3) 

3840 Iset ^M5-NAMES:rset fl|:^S-s t r S (X 3) : r s e t B;^S-s t r S (Y3) 

3850 put #l,RN:close #l:goto ♦I^T 
3860 ♦7r-r# 

3870 open " R ” , # 1, “ g®g||2 ' , 32 : f i e 1 d #1,24 as :fe^S, 4 as fl|:gS, 4 as 
3880 RN-lof (#1) :for I-l to RN:get #1,1 

3890 B:feS(I,0)-:feKr$:S^!5(M)-«l;^$*B^«(I»2)-B:^$:next:close #1 Creturn 

3900 sub routin ------------ 

3910 ♦««^^ '- 

3920 viewtpute (0,CS), if CS-0 then CS-184:VY-0 else CS-0:VY-16 
3930 get® (0,CS) - (W,CS+15) ,fel. 

3940 ♦««^.t^2 

3950 line (0, CS) - (W, CS+1 5) , p s e t ,0,BF 

3960 for 1-0 to 3:for J-0 to 7 :for K-0 to 7 

3970 line (!♦ 4 +I♦32 +32,2 +CS)-(;♦4+I♦32+34,2 +CS+1),pset ,I♦2+J^8 + K^64,BF 
3980 next:next:next 

3990 for 1-0 to 7 :line (I♦ 1 6+160,CS)-(I♦ 1 6+ 1 75,CS+1 5),pset , fe, BF, ^ftS(I) :nex 


4000 for 1-0 to Itline (288^I,CS)-(288^I+31,CS+15),pset ,fe,BF :next 
4010 -feMfU--!Jgosub ♦VIEW:VYS-VY:VYE-VY+183:return 

4020 ♦7'/3>^7rc - 

4030 if {)iliC-36 then {5g-0 else {4S“36 
4040 ♦7-^7>^^2 

4050 gosub aRJ L • c on so I e 0, 2 5, 0, 4 0 : c I s : kaode 0:console 0,25,(iff,4 
4060 cgen l,l:for I-&H40 to &HF7 step 2:print chrS (I) ; : next 

4070 if B<8 then cflash® ({ilff, 1+ig) - (^!I+1, 1+ «) , 1 else cflash# ({ia+2, 7) - ( 

(48+3,11-7) , 1 

4080 if #^>0 and ^^<19 then if i n t (#^/2) <>#^/2 then cflash# ({58, « n t (d^^/2 
)+9) - ({58+1, int (d&<^/2)+9) , 1 else cflashe ({58+2, i n t {^^/2)+8) - ({58+3, i n t (d^^/2) + 
8) , 1 

4090 if ^^>18 and ^^<25 then cflash« ({58, 1) " ((58+3, 1) , 1 

4100 cgenJgosub aPUSING!kaode iJgosub aCONSOLE!return 

4110 '- 

4120 gosub aA^^’pen 0:X2-X:Y2-Y 

4130 if Y2<VYS then Y2-VYS else if Y2>VYE then Y2-VYE 
4140 gosub aBXigosub aBXJif E or D then 4150 else 4120 
4150 if d^^-11 or ^^-12 then 4180 
4160 if X1>X2 then swap XI,X2 
4170 if Y1>Y2 then swap Yl,Y2 

4180 LX-X2-Xl:LY-Y2-Yl:LXX-LX:LYY-LY:X-Xl:Y''Yl:return 

4190 ' - 

4200 gosub ♦A^SUB:pen 0:if E or D then return 
4210 X3-X: Y3-Y: i f ^^-11 or ^^-12 then 4 250 
4 220 if d^^-10 or ^^-21 then X3-(X3Y8)a8 
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4230 if X3+LXX>W then X3=W-LXX 

4240 if Y3<VYS then Y3-VYS else if Y3+LYY>VYE then Y3“VYE-LYY 
4250 gosub 4260:gosub 4260:if ^^“21 then return else 4200 
4260 line (X3,Y3)- (X3 + LXX,Y3 + LYY),xor ,XC,B,&HAAAA:return 
4270 tiller ' - 

4280 HY-0:OY-L:color ,,,,0:gosub ♦CONSOLE:gosub ♦VIEW tgosub ♦RgL ^pen 4:cls:D 
= 0:E“0Jif ER then return else return 
4290 ♦BX '- 

4300 pen 0:line (X1,Y1)-(X2,Y2) ,xor ,XC,B:return 
4310 ♦R8L '-- 

4320 cls:if {i5:iff-0 then HX = 32:0X-W else HX»0:OX-287 
4330 view® (HX,HY)-(0X,0Y) :HY-0:OY-L:return 

4340 ♦CONSOLE '- 

4350 console 0,CM,4,32:CM-24:return 

4360 ♦VIEW '- 

4370 if then view (8, VY) - (W, VY+1 83) 

4380 return 

4390 '- 

4400 pen 1, (3(E) J p e n l^return 

4410 ♦FUSING '- 

4420 console 2 3, 2, {5S, 4 : 1 o c a t e {5S,PU:print using " : PU-2 3 : r e t ur n 

4430 ♦ERROR '- 

4440 HY»16:gosub 4® t • E $ = s t r $ (e r r) 

4450 Z»instr (“ 00000 3 6 40 4 1 46 53 54 65“,E$)¥3 

4460 restore 4490:for I-l to Z^read M$:next:print M$ 

4470 gosub ♦A^’if E or D then ER"-l:gosub ♦IIT else 4470 

4480 if Z<3 then resume else on Z resume ,, ♦LOAD, 3760, 3760,3760, 3760, 3 

720 
4490 

45 0 0 data “ ^^7 T ^ h^y T ^ Ity h ^ 

4510 data ' 7 r ^, "yr-'?"/ ^ “ 

(PWW-o f f, of f I i ne) ' 
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1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1158 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1378 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 


rem PCG EDITER DATA FILE 

data FFP9F1E1C1810181,8141A1D1E9F7F9FF,FF3FIF0F07030101, 
data FDFAF4E8D0A0A0FF,A0A0D0E8F4FAFDFF,3F1F0F0 7 0 30 1 0 IFF, 
data FFFFFFFFFCF8F0F0,F0F0F8FCFFFFFFFF,FFFFFFFF3F 1F0F0F, 
data 1102A00508488114,4002002000880208,1102A00500488114, 
data FFFFFFFFFCF8F0F0,F8F8FCFFFFFFFFFF,FFFFFFFF7F3F IF IF, 
data 5192A1 1532 489194, 688A15A4 09A8520A,5192A 1 1 532489 1 94, 
data FFFFFFFFFFFEFCF8,F8FCFEFFFFFFFFFF,FFFFFFFFFF7F3FIF, 
data 55D6A5D5724DB197,68BB15E659EB525A,55D6A5D5724DB197, 
data FFFFFFFFFFFCF8F8,F8FCFFFFFFFFFFFF,FFFFFFFFFF7,F3F3F, 
data 5DF7B5DF7ADDB5DF,6CFF95FE59EF725B,5DF7B5DF7ADDB5DF, 
data FFFFFFFFFFFFFEFC,FCFEFFFFFFFFFFFF,FFFFFFFFFFFF7F3F, 
data 5DFFF5DF7BFFB5FF,6DFFD7FF5DFFF7FF,5DFFF5DF7BFFB5FF, 
data FFFFFFFFFFFFFCFC,FCFFFFFFFFFFFFFF,FFFFFFFFFFFF7F7F, 
data 7DFFF7FF7BFFB7FF,7DFFF7FF7DFFF7FF,7DFFF7FF7BFFB7FF, 
data FFFFFFFFFFFFFFFE,FEFFFFFFFFFFFFFF,FFFFFFFFFFFFFF7F, 
data 7FFFF7FF7FFFF7FF,7FFFF7FF7FFFF7FF,7FFFF7FF7FFFF7FF, 
data FFFFFFFFFFFFFFFE,FEFFFFFFFFFFFFFF,FFFFFFFFFFFFFFFE, 
data 7FFFFFFFF7FFFFFF,7FFFFFF7FFFFFFFF,7FFFFFFFF7FFFFFF, 
data 55FF7FE75BF875ED,6DED6DED73FF7FAA,55FEFFFEC31CAFB8, 
data 55FF7FFF40C055D5,55FA4FF12FD37FAA,55FEFFFE0302FFFE, 
data 55FF7CFC7CFC7CFF,7CFC73E040FF7FAA,55FE5F5E5F5E5FFE, 
data 55FF7CF36FEF5FDF,5FDF6FEF73FC7FAA,55FE3FCEF7F6FBFA, 
data 55FF7FFF7FFF7FFE,7CF973E74FDF7FAA,55FEF3E6CF9E3F7E, 
data 55FF7FFF7FFF7FFF,79F97FCF4FFF7FAA,55FEE7E6FF3E3FFE, 
data 55FF7FE08FEF6FEF,6FEF6FE07FFF7FAA,55FEFF08F7F6F7F6, 
data 55FF7FE060E060E0,80E060E07FFF7FAA,55FEFF0607060708, 
data 55FE7EC05FF87FFF,7CFF60FF7BFC7FAA,55FEFF06F73EBF7E, 
data 55FF6BEB49C949C9,41E341D555C17FAA,5SFE87CE03121322, 
data 55FF55FF5DF858F8,54FE7CFF7DFC7FAA,55FE7FFE7FFE5F06, 
data 55FF40DF5DD850D8,44FE7CFF7DFC7FAA,55FE7F7E7FFE5F12, 
data 5 5FF4 0DE5DD844EE,6EEC6FEF6FE07FAA,55FEFF82FBDA1B1 A, 
data 5 5FF40DF5DD8 5CDE,5EDC5FDF40FF7FAA,55FE07F6F7D6 1 7 1 6, 
data 559F3FD70FC62AEC,60F078FC7BF67DAA,551EBF1E1FAEAFA6, 
data 55FA15AA00800080,65F575F878FD78AA,55BE6FDE3F1E0F06, 
data 559523F08BFD7EF8, 278027F87EFF7FAA,55FEFF7E3B1 60D0A, 
data 55FD76FB7CF870E0,6CAA468F57BF1FAA,555EA95401000108, 
data 55FF6AF56AF569F2,64E97FE07FE07FAA,55FFAF5FAF5F2040, 
data 55FFF5FA753A1902,04193F70FFF0FFAA,55FE27CA13A67F02, 
data 55FF60E065E281EF,6FEF6FEF6EE07FAA,55FF000054AB55AB, 
data 55FF1F3F3FFFFFFF,E1C3E7CF0F1FFFAA,55FE07760776077E, 
data 55FF78F364C850D6,46C043E070F87FAA,55FF1FCF27130B08, 
data 55FFFFFFFFFFFF00,FF00FFFFFFFFFFAA,55FEFFFEFFFEFF1E, 
data 55FF48CF4ECE4ECF,48C848C848C87FAA,55FF1FCF5F3778F8, 
data 55FFC0DFD0D03E3E,3E3ED0DFC0C0FFAA,55FE03FA0B0A0B0A, 
data 55FF48CF4ECE4ECF,48C848C848C87FAA,55FF1FCF474778F8, 
data 55FFC0DFD8DC2E2F,2F2EDCD7C0C0FFAA,55FE03FA0B0A0B0A, 
data 55FF7BF777F777F7,7FF870F575F57FAA,55FFFFEFC7EFE7C0, 
data 55FFFEE5CCCDCC0D,lEE1FC005455FFAA,55FE9F4EA758A756, 
for I-&H48 to &HFF:read D$:def chr$ (1, 1)-hexchr$ (D$) :nex 
run “SUPER PAINT 256“ 


03050B172FDF3FFF 

010103070F1F3FFF 

0F0F1F3FFFFFFFFF 

4002002000880208 

1F3F7FFFFFFFFFFF 

688A15A409A8520A 

1F3F7FFFFFFFFFFF 

68BB15E659EB525A 

3F7FFFFFFFFFFFFF 

6CFF95FE59EF725B 

3F7FFFFFFFFFFFFF 

6DFFD7FF5DFFF7FF 

7FFFFFFFFFFFFFFF 

7DFFF7FF7DFFF7FF 

7FFFFFFFFFFFFFFF 

7FFFF7FF7FFFF7FF 

FFFFFFFFFFFFFFFE 

7FFFFFF7FFFFFFFF 

B7B6B7B6CFFEFFAA 

FFFE3FFE7F7EBFAA 

1E1EDF3EFFFEFFAA 

FBFAF7F8CF3EFFAA 

FFFEFFFEFFFEFFAA 

FFFEFFFEFFFEFFAA 

F7F6F706FFFEFFAA 

07060706FFFEFFAA 

FF7E03BEBF7EFFAA 

432A2B0A3B02FFAA 

171617F6F706FFAA 

1B1A1BFAFB02FFAA 

1B1AFBFAFB02FFAA 

17027B7A7B02FFAA 

0100010055A85FAA 

375463F0EBFCF9AA 

056A050A070A03AA 

A7AEAF1E1FBE1FAA 

9020FF0FFF0FFFAA 

FF02AB56AB56FFAA 

BF0F9F1F0E00FFAB 

7F0677067706FFAA 

2360C3070F1FFFAB 

IFIEFFFEFFFEFFAA 

F87837170787FFAA 

0B0A0BFA6302FFAA 

787807071707FFAA 

0B0A0BFA6302FFAA 

00FF02005555FFAA 

071EDF1EDF1EFFAA 
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le •- 

20 ' PYRAMID WARS 

30 ' 

40 ‘ for MZ-2500 

50 ' 

60 ' by H A M I W A 

70 •- 

80 def int A-G,I-R,U-Z:kBode 9 
90 restore:MEN-0:SW-0:T-0:M-0 
100 repeat on ,4:PW-1500 

110 Ml$-“O3L4T200RC8RE8R8G8RC8RE8R8G8RA-8RG-8R8E-8RA-8RG-8R8E-8' 

120 M2$-'O5L4T200CR8ER8G8R8CR8ER8G8R8A-R8G-R8E-8R8A-R8G-R8E-8R8" 

130 M3$-'O5L4T200<GR8>CR8E8R8<G88>CR8E8R8E-R8D-R8<B-8>R8E-R8D-R8<B-8>R8" 

140 M4$-"03RC8RE8R8G8RC8RE8R8G8A-r 
150 H5$-'05CR8ER8G8R8CR8ER8G8R8A-1' 

169 M6$-'05L4T299<GR8>CR8E8R8<GR8>CR8E8R8E-r 

179 *■ain 

180 Kosub $GAHEN:X-19:Y-6:X1-19:Y1-6 
190 play '•0",'•0','•0' 

290 play ,,M 1 M2$,M3$:piay ,,U4$,M5$,M6$:pI ay wait 

210 *>>>>> key input & wove 

220 key 9, " : K-vaI (inkey$) :on K goto 399, 240, 309, 259, 1 240, 260, 468» 270, 409 
230 goto 289 

240 Xl-X:Yl-Y+l:goto 280 
250 Xl-X-1 :Yl-Y:goto 280 
260 Xl-X+1:Yl-Y:goto 280 
270 X1-X:Y1-Y-1:goto 280 
280 on BS goto 339 
290 goto 399 
300 on BS goto 339 

310 BS-l:BY-Y:BX-X-l:if K-3 then BX-X+1 

320 SC2$-scrn$ (BX,BY) :if SC2$<>' " then BS-0:goto 399 

339 BK-BK-i^l:on int(BK/19) goto 349, 340, 349, 349, 350, 350, 359, 369, 369, 379 

340 locate BX,BY:cgen l:print ' 9 ' : :cgen : goto 380 

350 locate BX,BY:cgen Imprint " : ' • :cgen : goto 380 

360 locate BX,BY:egen l:print ':' : : egen : goto 380 

370 locate BX,BY:cgen Imprint "<";:cgen 

389 if BK-199 then locate BX,BY:print ' ‘::BK-0:BS-0 

390 SC$-scrn$ (XI,Yl) :if SCS<>' ‘ then 930 

400 locate X,Y:print " ";:|oeate Xl,Yl:cgeD Hprint " 1 " ; icgen:X-X1sY-Y1 

419 PW-PW-1:locate 32,7:print PW::if PW-<0 then 1139 

420 on FS goto 440,450,469 

439 PS-l:F0-chr$(52)rgoto 470 

440 FS-3:F$-ekr$(52) .'goto 529 
459 FS-2:F$-ehrS(53):goto 520 

469 FS-0:F$-ehr$(53) tgoto 520 

470 FXl-FX+sgn (X-FX) :FYl-FY+sgn (Y-FY) :SC-asc (scrnS (FX1,FY1)) :if SC-32 or SC-50 
then 520 

480 if SC-49 then PW-PW-100:p1 ay 'T25503L32G + E':goto 520 
490 SC-asc (sernS (FX1,FY)) :if SC-32 or SC-50 then FYl-FY:goto 529 
500 SC-asc (scrnS (FX,PY1)): i f SC-32 or SC-50 then FXl-FX-'goto 520 
510 FX1-FX:FY1-PY 

520 locate FX,FY:print ' ';:cgen l:loeate FX1,FY1:print FS;:egen:FX-FX1:FY-FY1 

530 on ES goto 550,569,570 

540 ES-l:ES-chr$(53):goto 580 

550 ES-3:ES-ehrS(S3):goto 639 

560 ES-2:ES-ehrS(52):goto 630 

570 ES-0:ES-chr$ (52) :goto 630 

580 EXl-EX+sgn (X-EX) :EYl-EY+sgn (Y-EY) :SC-asc (scrnS (EX1,EYI)) :if SC-32 or SC-50 
then 639 

590 if SC-49 then PW-PW-1 00 : p I ay ‘'T25503L32G + E': goto 630 
690 SC-asc (scrn$(EXl,EY)) :if SC-32 or SC-S0 then EYl-EY:goto 630 
610 SC-ssc (sernS(EX,EYl)) :if SC-32 or SC-50 then EXl-EX:goto 630 
620 EX1-EX:EY1-EY 

630 locate EX,EY:print ' '::cgen IMocate EX 1, EY 1: p r i n t E$e g e n : EX-EX 1: EY-EY1 

640 if GX-9 then 760 

650 on GS goto 679 

660 GS-1: GD-i n t (r nd (1) #4-1-1) 

670 on GD goto 689,690,700,710 

680 GXl-GX+I:SC-ase (scrnS (GXl,GY)):if SC-32 then GYl-GY:goto 740 else 729 

690 GYl-GY-l:SC-ase (sernS(GX,GYl)) :if SC-32 then GXl-GX:goto 740 else 720 

790 GXl-GX-l:SC-ase (sernS(GXl,GY)) :if SC-32 then GYl-GY:goto 740 else 729 

710 GYl-GY+l:SC-ase (scrnS(GX,GYl)) :if SC-32 then GXl-GX:goto 749 else 720 

720 if SC-49 then play ‘T120L32O8CGCG':PW-PW-500:GX1-GX:GY 1-GY:goto 749 
730 GS-0:play 'T129L3208C':GXl-GX:GY 1-GY:goto 749 

740 locate GX,GY:prlnt ' ';:locate GXl,GYl:egen l:print '3';:cgen:GX-GX1:GY-GY 


750 for 1-0 to 59:nezt 

760 if LX<>0 then goto 780 

770 if GX-0 then pause l:goto 229 else 229 

780 on LS goto 810,800,809,899,809 

790 LS-l:LH-int (rnd (1)*4+1) :LI-int (rnd (1)*3+1) 

809 LS-LS+l:if LS-6 then LS-l:goto 889 

810 on LH goto 820,830,840,859 

820 LXl-LX+l:SC-asc (scrnS(LXl,LYl)) :if SC-32 or SC-62 
830 LYl-LY-nSC-asc (scrnS(LXl,LYl)) : i f SC-32 or SC-62 
840 LXl-LX-l:SC-ase (sernS(LXl,LYl)) :if SC-32 or SC-62 
850 LYl-LY+1:SC-aac (scrnS (LX1,LY1)):if SC-32 or SC-82 
880 LS-0:LXl-LX:LYl-LY:goto 889 
870 LK-LK-l:if LK<1 then LS-0 else LS-2 
880 locate LX,LY:print ' '':egen IMoeate LX 1, LY1: p r i n t 
90 else 919 


then 879 
then 870 
then 870 
then 879 


else 860 
else 860 
else 860 
else 860 


'-'•'egensif LS-2 


then 8 


890 LR-int (rnd*12+l) :if LR>4 then 919 

900 play ' 0 4T1 2 9L 30CE': c g e n IHocate LX,LY:print '>":cgen 
910 LX-LXl:LY-LY1 

920 for I-l to 190:next Hgoto 229 

930 C-asc (SCS)-47:on C goto 940, 949, 950, 1 100, 400, 490, 980, 1010, 499, 940, 949, 949, 
949, 1219 

940 Xl-X:Yl-Y:goto 409 

950 locate X,Y:print " ''::loeate Xl,Yl:cgeo l:print 'I'scgen :X-X1:Y-Y1 
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960 pity wtit:for I •• 1 to 25:plty ,,,”05A32":PW“PW+30 5 Ioctte 32,7:print PWi^nex 
t I 

970 T-T+500:goto 410 

980 loette X,Y:print ' ';:locttB Xl,YlJcfen Imprint "1":cgen:X-X1JY-Y1 
990 T-T-i-100: locate 32,5:priot T::plty ' L 2 SO 7ABABAB': II-H+1: i f H-8 then loette C 
X,CY-l:priBt ' ';:goto 410 


1000 goto 410 
1010 'sen clear 

1020 loette X»Y:egen : print ' ■;:loctte Xl,Yl:cgen irprint ' 1"5cgen: IIEN-MEN+1 
1030 i f llEN-20 then ^ENDING 

1 040 play ‘'05T126L15CDEGEGEGEG>C2':p I ay irait:color 6:els 
1050 locate 6,8 :print " ROUND ';yEN:' CLEAR' 

1060 locate 6,12:print " BONUS ';icolor 7:print " 1000";:eolor 6:print " p 
ts.color 7:T-T+1000:S»-0:H«0:BS-0:BK-0 


1070 cflash IMocate 6,16:print ' push any key !':cflash 
1080 I$-inkey$:i{ 1$-" then 1088 
1090 goto 170 

1100 locate X,Y:print ‘ ';:|ocate Xl,Yl:cgen Sprint ' 1 ' : egen:X-Xl:Y-Y1 
1110 play 'T120L32O8CGCG':PW-PW-1000 
1120 goto 410 
1130 GAME OVER 

1140 play 'T120L9O3CECDRFEDEGCR<BAB>C1" : locate Xl,Yl:cgen l:print '8";:cgen 

1150 play waitipause 50:cls:if HS<T then HS-T 

1160 locate 10,18:color 2:print 'YOU DIED...' 

1170 locate 12,16:color 7:cflash Imprint 'try again (Y/N) ?':cflash 
1180 I$-inkey$:if 1$-" then 1180 
1190 if I$-'Y' or I$-'y' then 10 

1200 if I$“'N' or I$-'n' then:repeat on^init 'CRT:,,,1':end else 1180 
1210 locate X,Y5print ' ';:|ocate Xl,Yl:cgen liprint '1';:cgen:X-X1:Y-Y1 
1220 PW-Pff-2000:play 'O5T120L25CDECDEF':goto 410 
1230 '- break block - 

1 240 play ,,,'05T200L25A':PW-PW-500 :if PW<0 then PW-PW+500 : goto 1330 

1250 BBX-X-l:BBY-Y-l:gosub 1340 

1260 BBX-X ;BBY-Y-1tgosub 1340 

1270 BBX-X+l:BBY-Y-l:gosub 1340 

1280 BBX-X-1:BBY-Y rgosub 1340 

1290 BBX-X+1:BBY-Y :gosub 1340 

1300 BBX-X-1:BBY-Y+l:gosub 1340 

1310 BBX-X :BBY-Y+l:gosub 1340 

1320 BBX-X-i-l:BBY-Y+l:gosub 1340 

1 330 play «rait:goto 230 

1 340 SC-asc (scrn$ (BBX,BBY)) : i f SC<>62 then return 

1 350 for I-l to SMocate BBX,BBY:egen l:print '>"t:play 'O5T120L30C>C" : egen:p 1 a 
y wait:color 5,0:print ' IK ;:for J-0 to 90 :ne*t J 
1 360 next IMocate BBX, BBY : p r i n t ' ';:return 
1370 ^ENDING 


1380 play on 

1390 c I s : egen : i n i t 'CRTl: 40, 20, 0, 0'•* co I or ,7:cls 3:crev iscflash l:color l:|oca 


te 7,4 
1400 
1410 
1420 
1430 
1440 
1450 
1460 

0 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

print 

1870 

1880 

1890 

1900 

1910 


print "ttt CONGRATULATIONS f : crev : cf I ash:coI or 6:Iocate 7,7 

print YOU GET TWENTY CRYSTALS ':Ioeate 7,10 

print '--- AND HEALTHY LIFE !' 

egen l:|oeate 18,13:print 'I'scgen 

gosub ISlOipause 50:color 7,0:els 2 

locate 7,15;print ’[ YOUR SCORE-Tpts. ]' 

color ,C0:cIs 2:play P1$,P2$,P3$:p1 ay P4S,P5S,P8$:C0-C0+1:if CO-8 then CO- 

I$-inkey$:if I$<>"" then color ,0:cls 2:repeat onSend 
on play gosub 1500 
goto 1470 
goto 1460 

'-ending ausie 

option base Ordia PAx (4,9),PBX(4,9),PC«(4,9) 
tone copy 0,PAx:tone copy 18,PBx:tone copy 17,PCX 
tone PAX,PBX,PCX 

P1$-'O4L4T170CC16C16C16C16C2EE16E16E16E16E2FA8. G16F8E8D8C8' 

P2$-'O3L8T170CGCGCGCGEGEGEGEGF>C<F>C<DADA' 

P3$-'O5L8T170RRRRREDCRHRRRGECRRRRRERR' 

P4$-'O4L4T170D2.' 

P5$-'O3L8T170DGDGDGDG' 

P6$-'O5L8T170GGGGRGAB' 

P7$-'O4L4T170D.C8C.88' 

P8$-'O3L8T170DGDCC4. R' 

P9S-'O5L8T170DGDCCR>C.C16C" 

play Pl$,P2S,P3S:play P4$,P5S,P6$:pI ay P1$,P2$,P3$:pI ay P7$,P8$,P9S 
return 
♦ PCG 

data 0030,0990000600000000FBFBFB09DFDFDF00FBFBFB00DFDFDF00 

data 0031,006008FFBD3C2400183C18FFBD420066000018FFBD426000 

data 0 0 32, 00 18183C7EFF7E3C3C000000000000003C00000402020000 

data 0 0 33, 3E4949 4 97F2A2A3E3E4 94 949 7F2A2A3E3E49494 9 7F2A2A3E 

data 0034,00000000000000001224296BFEFE7E3C00000020287C3C00 

data 0035,00000000000000000008123E7C7C38000000000018380000 

data 0036,00080404000000000008040400000000183C7E7E7E7E3C18 

data 0037,183C7EFFFF7E3C1818387CFDFF7E3C180004020200000000 

data 0 0 38, 187E7E1818180000187C781010103CFF187E7E18181829C0 

data 0039,7EFFFFFFFFFFFF7E00000000000000007EF3F9FDBF9FCF7E 

data 003A,001052FAFBFFFF7E0000000000000000001052FABB9FCF7E 

data 003B,000010S0F0FAFF7E000000000000000000001050F09ACF7E 

data 003C, 000000002034FE7E0000000000000000000000002014CE7E 

data 0 03D, 00000000000000000000041C3C7CF8009898FB21 0101046C 

data 003E,0000000000000000FBFBFB00DFDFDF060000000000000000 

for I-l to IS^read CS,D$:def chrS (va I ('4H'+ C$))-hexchr$ (DS) :next: return 

*GAMEN 

init 'CRTl:40,25,0,0':klist 0:if HEN-0 then gosub *PCG 
locate 19,4:cgen l:prlnt '0';:locate 18,5:print '000"; 

for 1-6 to 23:locate 23-I,I:print " 00'; : egen : pr I nt s p c ( (I - 5) ♦ 2-1) • : c g e n 1 •' 
'00';:next I 

locate 0,23:cgen l:for J-0 to 38:print '0';:next J:cgen 
for 1-6 to 22 
KT- (1-5)*2-1 
for J-0 to KT-1 

gosub »WALL:if G-0 then 1920 else locate 25-1+J,I:egen l;print "0";:cgen 


► X1016k"-;/ h Z8000 t t' 9 (Di)'^ 
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1920 next J 
1939 next I 

1949 locate 3,2ieolor 6,9:print ^ JKJJcolor 2,9:print 'Y 

RAMID WARS'tlocate 26,2:print 'HI SCORE-';:coI or SMocatc 26,5:print 'SCORE- ' 
;:color 7:locate 32,5:print T^locate 26»7:color 6,9:print ”POWER-'^co1or 7:|ocat 
e 32,3:print HS 

1959 locate 27,9:print 'ROUND ';IIEN+1 

1969 read CX,CY:locate CX-1,CY-1:c«en Sprint '090':locate CX-1,CY:print '070': 
locate CX-1,CY+15print '000';Jcgen 
1979 'EHELARUD & BOTTLE 

1989 for I-l to 8:read EX^EYMocate EX,EY:cgen I-'print '8';.'next I 
1999 for J-1 to 3:read BX,BY:locate BX,BY:print '2';:next J 

200 0 read FX,FY,EX,EY,GX,GY,LX,LY:PX1-FX:FY1-FY:EX 1-EX:EY1-EY:GX1-GX:GY 1-GY:LX 1 
-LX:LY1-LY 
2919 egentreturn 
2929 aWALL 

2939 if SW-1 then 2959 

2949 SW-l:read G$:G2S-bin$ (va 1 ('iH'+ G$)) :L- 1 en {G2$) :KT2-9:if L<8 then G2$-strin 
g$((8-L),'0')+G2$ 

2059 KT2-KT2+l:if KT2-9 then 2940 
2969 G-val (■id$ (G2S,KT2,1)) 

2979 return 
2989 'GAHEK.DATA 
2090 *>>>>> 1 sen 

2199 data 9 2, 99, 36, 9 5, 99,D8,9B, 68, 98, 98, 8F, 57,82,F7,7A, 99, 41, 09, 39, 7F,4£, 1C,C7, 
1 9, C3, 9D, 9 5, CE, 9 9, FC, IF,89,3E, 9 9, 9 9, 3E, 9 9, 19, 22, 1 7, 1 1,21, 1 1, 1 1, 15, 2 7, 1 5, 15, 29, 23 

, 29, 3, 22, 35, 22, 19, 1 5, 19, 22, 28, 22, 12, 17, 26, 17, 0, 9, 9,9 

2119 *>>>>> 2 mtn 

2120 data 92,1C,08,98,82,DA,IB,6C,3B,6E,99,09,93,E5,3E.07,36,79,12,77,24,8E,3D, 

E3, 82, 49, 94, 9 2, 1C, 79, 97, 1C, 3E, F8, 9F, BE, 0 9, 1 9, 22, 18, 1 1, 29, 1 1, 18, 1 5, 22, 15, 3, 22, 19, 

22, 28, 22, 35, 2 2, 19, 15, 7, 19, 31,19, 19, 16, 28, 16, 9, 9, 9, 9 

2139 *>>»> 3 Ben 

2149 data 92, 99 , 2A, 99, 92,AA, 99, 9 9, 28, 9A, 99, 90, 9 2,A9,2A, 9 9, 99, 99, 2A,AA,AA, 9 9, 9 9, 
99,92,AA,AA,AA,99,99.99,99,2A,AA,AA,AA,99,19,15,18,19,29,19,12,18,26,16,3,22,16, 
22,22,22,35,22,18,12,29,12,19,21,19,19,28,19,19,19,9,9 
2159 '>»>> 4 Ben 

2169 data 9 9, 77, 14, 9D, 82, 8A, lA,AC, 32, 26, 7D,DD,F9, 95, 99,IF,5 5,7C, 39, 41, 9 6, 9D,DD, 
DD, 82, 55, 9 5, 5 2, 7D, 5C, ID, 5F, 99,4 9, 91,9 9, 99, 19, 22, 1 1, 14, 27, 14, 5, 29, 13, 29, 25, 29, 33, 
29, 3, 22, 35, 2 2, 19, 12, 15, 29, 2 3, 29, 9, 17, 2 9, 17, 9, 9, 9,9 
2179 '>»>> 5 Ben 

2189 data 92,99,22,95,9D,55,CS,51,54,95,15,95,49,55,59,IE,55,3C,20,55,92,9B,E2, 
3E, 89, Cl, 9 4, 18, 1C, 38, 9E, 1C, 99, E9, 93, 89, 99, 19, 22, 1 1, 14, 27, 14, 19, 19, 28, 19, 15, 29, 23 

, 2 9, 14, 22, 24, 22, 19, 18, 2, 22, 35, 22, 16, 9, 21,9, 9, 9, 9, 9 

2199 *>>>>> 6 Ben 

2 299 data 9, 14, 14, 5, 9, 59, 14, 94, 1 5, 54, 1 5, 55,41,55, 54, 14, 94, 94, 15, 41,54, 1 5, 55, 55 
,42,55,5,52,15,55,D5,54,9,81,49,89,99, 19, 22, 15, 16, 23, 16, 15, 18, 23, 18, 8 

, 29, 39, 29, 3, 22, 35, 22, 19, 12, 7, 21, 31, 21, 11, 14, 27, 14,9,9,9,9 

2219 '>»>> 7 Ben 

2229 data 9 , 14,14,12,41,54,5,59,34,16,9,79,9,95,48,17,5D,74,12,41,24,£,3A,E3,8 
2, 49,24, 92,ID, 24, 92, 5C,9,71,C7, 48, 99, 19, 18, 15, 14, 23, 14, 18, 19, 29, 19, 3, 
22, 11, 22, 27, 22, 35, 22, 19, 19, 8, 22, 39, 22, 13, 19. 25, 19,9,9,9,9 

2239 '»>» 8 Ben 

224 9 data 9, 14, 14, 9, 2, AA, A, AS, 29, 2, 8, 59, 82, 15, 42, 9, 41,48, 21, 55, 42,8, 45, 19,82, 1 
5,5,42,8,55,D5,8,21,45,51,42,99, 19, 22, 18, 12, 29, 12, 12, 16, 26, 16, 16, 19, 

22, 19, 11, 22, 27, 22, 19, 29, 3, 22, 35, 22, 14, 14, 24, 14, 19, 17,9,0 

2259 '»>>> 9 Ben 

2269 data 9 , 9 , 9, 19, 2, 51,9, 74, 9, 59, 1, 95, 9 , 9, 9,8, 88, F8, 2D, 14, 12, 1 A, A2, 8, C9, 82, 1, 
8,7A,89,CF,2F,2,1,40,29,99, 19, 22, 15, 11, 18, 15, 18, 19. 29, 19, 11, 29, 27, 

21, 3, 22, 35, 22, 15, 18, 25, 29, 33, 29, 15, 15, 23, 15,9,9,9,9 

2279 *>»> 10 Ben 

2289 data 9,14,8,15,49,9,15,54,2,29,15,55,49,89,8,15.55,54,9,8,9,14,55,51,49,9 
2,2,48,15,15,D4, 54, 29, 41,41,2, 99, 19, 22, 17, 15, 21, 15, 12, 16, 28, 16, 15. 21 

, 23, 21. 3. 22, 35, 22, 19, 11, 19, 29, 28, 29. 15, 12, 23, 12,9,9,9,9 

2299 '>>>> 11 Ben 

2399 data 9, 14, 9, 1 7, 4 3, 56, ID, 5C, 9. 9, 1 5, DD, 41, 5 5, 5 4, 17, 55, 74, 9, 9. 9, 1 5, 77, 7 5, 43, 
55, 5, 56, ID,D5,D5, DC, 38, 1,49, E, 99, 19, 22, 13, 16, 17, 16, 21, 16, 25, 16, 15, 29 

, 23, 29, 3, 22, 35, 22, 19, 12. 11, 29, 27, 29, 15, 14, 23, 14,9,9,9,9 

2319 '>>» 12 Ben 

2329 data 5D,89,B6,AD,A8,29,FB.6F,IB,6C,56,3,51,6D,B4,5D,B6,DD,5,88,D9,7F.8D.B 

7, F9,8,3,9,8A,DB,ED,AB, 9, 43, 61, 9, 99, 19, 22, 14, 1 1, 19, 11, 24, 1 1, 19, 13, 1 1, 

18, 27, 18. 3, 22, 35, 22, 19, 17, 17, 18, 21, 18, 18, 15, 22, 15,9,9,9,0 

2339 >>>> 13 Ben 

2 349 data 59, 5D, 8, 5F, D1, 4, 5F, 7D, 1,49, 7D, DD, F9, 89, 8, 8F, DD, FB, 4, 14, 1 9, 5F, B7, 8F, D 
9, 9, 4, 89, 7B, B7, F6,EF, 9, 89, 9, 89, 90, 19, 18, 17, 14, 21, 14, 12, 16, 26, 1 6, 13, 1 

8, 25, 18, 3, 22, 35, 22, 17, 12, 21, 12, 19, 29, 13, 14, 25, 14,9,9,19,29 

2359 >>>> 14 Ben 

236 0 data A, 88, 22, 7A, F8, 0, AF. FA, 28, A, 1 A, DA, C1,8, 84, 1 7, F7, F4, 19, 0, 4, F, DF, DF, 8 2, 

21,4,22, IE, FD, DF, BC, 2, 1,49, 29, 90, 19, 22, 15, 19, 23, 19, 12, 13, 26, 13, 12, 29 

, 26, 29, 8, 22, 30, 22, 19, 10, 18, 16, 20, 18. 14, 18, 24, 18,0,0,19, 18 

2379 '>>» 15 Ben 

2380 data 3, D8, C2, 7F, DC, 44, 75, 5D, 4, 41, DF, FF, F1, 11, 11, DD, 55, 57, C1, 11, 10, 7P, PF, F 

F,D9,44,44,44,5D,55,55,5D,D4,44,44,48,99, 7, 22, 22, 9, 18, 12, 20, 12, 18, 16, 

22, 18, 28, 16, 18, 22, 26, 22, 29, 7, 5, 22, 35, 22, 29, 18, 22, 22,9,9,0,0 

2390 '>»> 16 Ben 

2490 data 55,55,D5,F5,7F,57,C5,51,D5,55,F5,55, 71,55,54,55,55,55,D5,55,5 5,F5,55 
, 55, 71, 55, 5, 54, 15, 55,D5, 54, 31, 1 1,44, 46, 99, 19, 22, 17, 8, 21, 8, 14, 13, 24, 1 3, 

3, 22, 12, 22, 28, 22, 35, 22, 19, 6, 5, 21, 33, 21, 19, 16, 28, 16, 19, 20,0,9 

2410 *>>>> 17 Ben 

24 20 data 0, 0, 3E, F, 89, F0, 3, E0, 3, C0, 0, 9, 1, F0, 3E, 6, C1, F0, 7, C3, 80, 1, F9, 7C, 9, IE, 3, 
C9,9,79, IE, 9, 9, 70,3C, 9, 90, 14, 17, 21, 14, 19, 16, 22, 18, 27, 17, 8, 20, 18, 20 
, 30, 20, 21, 21, 21, 12, 24, 18, 25, 22, 9, 20, 29, 20, 19, 19,0,0 

2430 '>>>> 18 Ben 

2440 data 9,0,0,10,40,20,0,0,0,0,0,70,0,25,29,0,1C,0,0,0,0,9,2,0,0,10,0,40,8,0 
,0,8,0,19,4,9,00, 19, 16, 18, 10, 22, 10, 15, 15, 23, 15, 12, 19, 28, 19, 7, 20, 
31, 29, 19, 18, 14, 21, 24, 21, 3, 22, 35, 22, 19, 14,9,0 

2450 '>>>> 19 Ben 

2460 data 2,1C,8,8,8D,DD,A2,22,88,88,F7,77,72,22,22,22,22,22,77,77,77,8,88,88, 
82,22,2,22,ID,DD,DD,DC,8,89,48,88,00, 19, 22, 7, 18, 15, 18, 23, 18, 31, 18, 8, 

22, 12, 22, 26, 22, 30, 22, 14, 11, 24, 11, 19, 20, 15, 13, 23, 13,0,0, 19, 17 

2470 '>>>> 20 Ben 

2 480 data 0, 1C, 36, 1 7, 40, 0, 1E, 3C, 3F, 7E, C, D9, 82, D, 9A, 18. 66, 6C, 39, C6, 66, 2, 61, 9A, 3 
,CF,DF,9E,16,BF,3C,B4,9,0,0,0,00, 19, 19, 17, 11, 21, 11, 10, 19, 16, 19, 28, 19 
, 20, 21, 3, 22, 35, 22, 19, 8, 11, 20, 27, 20, 11, 15, 27, 15,0,0,0,0 
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20 • PCG BASIC PROGRAM 

30 ■ by A.NAGASAWA 

40 > 


n7"7/^4rA* LT < A'?1'„ ?-LTf-i 
xt-tA^JSiSL A* t, 

SAVE “MASHINGO” 

&HD000, &HE72F 
t-t-7"L, ? lit; y X h 3 LT, 

SAVE “MAIN” 
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50 WIDTH 40:INIT:CLEAR AHD000 
60 LOC.\TE 10,12:PRINT ''favh vftAU" 

70 * 

80 FOR I=AH30 TO &H5A: A$=LEFT$ (CGPAT$ (I) , 8 ) :B$ = '‘" 


ZOONE 89 









































90 FOR J= 1 TO 8:A=ASC(MID$(A$,J,I)) 

100 B=A OR A*2:B$=B$-l-CHR$(B) 

110 NBXT:SP$=CHR$(0):Al$=LKFT$(B$,3) 

120 A2$=MID$(B$,4,2):A3$=RIGHT$(B$,3) 

130 B1$=A1$+STRING$(5,SP$):B2$=A1$+A2$+SP$+SP$+SP$ 

140 DEFCHR$(I)=B$-t^Bl$-»'B2$:NEXT 
150 READ A,B$:IF A=300 GOTO 170 
160 DEFCHR$(A)=HEXCHR$(B$):GOTO 150 
170 LOADM"MASHINGO":RUN"MAIN" 

180 » 

190 DATA 0,000000181800000000000000000000000000001000000000 
200 DATA 1,000000181800000000000010000000000000000000000000 
210 DATA 2,000000081800000000000010000000000000001000000000 
220 DATA 3,000000081800000000000010000000000000000000000000 
230 DATA 4,008080C0B0FF7F7E008080C0B0FF7F2E008080C0E0FF7C70 
240 DATA 5,0001030F7EFCF8700001030F7BFCF8700001030B7CF83060 
250 DATA 6,000103070F1B3C38000103070F1B3C38000103060C183030 
260 DATA 7,7FFFFFC7060B0B0D7FFFFFC7060B0B0C7FFB0604040C0809 
270 DATA 8,000103070F1B1C38000103070F1E1C38000103060C181030 
280 DATA 9,7FFFFFC7060E0B0D7FFFFFC7060E0E0C7FFE0604040C0809 
290 DATA 10,00183C3C3E3F7F7B00183C3C3B3F7D7A001038383C3B7773 
300 DATA 11,30787871B1E1E1E320707071E1B1B1E330686861C1C1C1C3 
310 DATA 12,1FFFFFB3C3FFFFFF1FFBFDB2C1FFFFF91FFFB383833FFEE6 
320 DATA 13,7C3F3F0F0F1F3E7D5C2F070F0F1F3E7D703B3F0F0E1C3871 
330 DATA 14,F0B0C0C0C7FFFCF8F0B0C0C0C73F1BCCB0C0800007DEB8F0 
340 DATA 15,7870F0F0F0F07F3F7870F0F0F0F07B386060C0C0C0C07F3F 
350 DATA 16,1F1B3C3870E0C0801D1B260C183060C01A1C383060C08000 
360 DATA 17,38707070707F3F0E38707070707F3F0E30606060607F3C00 
370 DATA 18,1F1B3C38F0E0C1011D1B260C1870C1011A1C3830E0800101 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 


DATA 19,7971F1F3F3B280007971F1F3F3B280006161E1B3C3C28000 
DATA 20,E3E3B7F787040000B3E3E7B70704O000C383C7C787040000 
DATA 21,E73FFFFEFC1C1C38B13BFDF2E4040408063FFEEC18181830 
DATA 22,FF7F3F0803FFFE00FF7F3F0C03FFFE00FF7F380003FFFFFF 
DATA 23,FCC60200FFFB0000B4E28000FFFB0000D8040200FFFFFF00 
DATA 24,0F000003FBO000000F000003FB00000000000003FFFFFF00 
DATA 25,000000FF00000000800000FF00000000000000FFFFF00000 
DATA 26,000000FF00000000000000FF00000000000000FFFF000000 
DATA 27,00001FF00000000000001FF00000000000001FFFF8000000 
DATA 28,0000FF00000000000000FF00000000000000FFFF00000000 
DATA 29,007FC00000000000007FC00000000000007FFFB000000000 
DATA 30,F080000000000000F080000000000000FFF0800000000000 
DATA 31,000000000000000000000000000000000000000000000000 
DATA 32,000000000000000000000000000000000000000000000000 
DATA 33,FFFFE7C3C3B7FFFFC3812418182481C3FFC3BDBDBDBDC3FF 
DATA 34,00000000000000000000002424422400FFFFFFFFFFFF7B3C 
DATA 35,FF7E7E3C3C1800007E0000000000000081FFFFFFFFFFFFFF 
DATA 36,40404040404040400000000000000000BFBFBFBFBFBFBFBF 
DATA 37,02020202020202020000000000000000FDFDFDFDFDFDFDFD 
DATA 38,005A3C7B7B3C5A000042241818244200FFA5C38181C3A5FF 
DATA 39,0000183C3C3C3C000000004242003C00FFFFE7C3C3C3FFFF 
DATA 40,407B487B407B487E000E080E000E080EBF8FB88FBF8FB88F 
DATA 41,027E127E027E127E0070107000701070FDF11DF1FDF11DF1 
DATA 42,00183B7C3E7C18000000000000000000FFE7D99BD99BE7FF 
DATA 43,00000000000000000000000000000000FFFFFFFFFFFFFFFF 
DATA 44,007C7C7C7C7C00000000000818000000FF8FBFBFFFFFFFFF 
DATA 45,81818181818199248181819999BDBD24FFFFFFFFFFFFE742 
DATA 300,"" 




10 ’ 

20 * MAIN BASIC PROGRAM 

30 * by A.NAGASAWA 

40 * 

50 WIDTH 40:INIT:PRW 254:CGEN 1:CLEAR &HD000:DEFINT A-Z 
60 » 

70 ’ TAITOL 

80 GOSUB 410:CLS 

90 LOCATE 1,3 .‘PRINT "SUCCES STORY"‘.CSIZE 3 

100 FOR 1=0 TO 2:FOR J=0 TO 8 

110 LOCATE J*2+2,I»2+6:PRINT#0 CHR$(I»9+J+4) 

120 NEXT:NEXT;CSIZE 0 

130 LOCATE 17,14:PRINT "FOR XI" 

140 LOCATE 11,16:PRINT "BY A NAGASAWA" 

150 LOCATE 5,18;PRINT "TENKEY JOYSTICK" 

160 LOCATE 5,19:PRINT "SPACE BUTTERNl" 

170 LOCATE 5,20:PRINT "H TAB BUTTERN2" 

180 CFLASH 1:LOCATE 3,22:PRINT "PUSH SPACE TO START" 

190 CFLASH 0:S=0 

200 S=S+1:IF S=5000 THEN 340 

210 IF STRIG(0) OR STRIG(l) ELSE 200 

220 * CALL 

230 GOSUB 670:GOSUB 440;GOSUB 410 
240 AD=AHF800:POKE AD+34,0:POKE AD+25,3 
250 FOR I=AD+15 TO AD+21:POKE 1,0:NEXT 
260 CALL AHD000:CONSOLE 
270 CLS4 

280 CFLASH l:FOR 1=1 TO 17 

290 LOCATE 1 + 3,12 .‘PRINT MID$(" GAMEOVER",I,l) 
300 BEEP:FOR J=0 TO 100:NEXT:NEXT:CFLASH 0 
310 S=0 

320 S=S+1:IF S=1000 THEN 70 

330 IF STRIG(0) OR STRIG(l) THEN 220 ELSE 320 
340 » DEMO 


350 CLS:GOSUB 410 

360 CSIZE 2:LOCATE 28,16:PRINT#0 "DEMO":CSIZE 0 
370 POKE &HF800,4 

380 POKE atHF800+34,l:CALL AHD000: CONSOLE 
390 CLS4:IF PEEK(&HF800+38) THEN 230 ELSE 70 
400 ’ 

410 ' SET AVRAM 

420 FOR I=&H2000 TO &H23E7;OUT I,39:NEXT 
430 RETURN 

440 * PRINT RIGHT 

450 FOR 1=0 TO 23 

460 LOCATE 26,1:PRINT "!":LOCATE 39,1:PRINT "!" 

470 NEXT 

480 FOR 1=27 TO 38 

490 LOCATE 1,0:PRINT "!":LOCATE I,23:PRINT "!"; 

500 NEXT 

510 LOCATE 28,6:PRINT "HI SCORE":GOSUB 580 

520 LOCATE 28,9;PRINT "SCORE":GOSUB 630 ;SCORE 0 

530 LOCATE 28,12‘.PRINT "LEFT": GOSUB 650 ;LEFT 3 

540 FOR 1=2 TO 4:FOR J=28 TO 36 

550 LOCATE J,I:PRINT#0 CHR$(9*(1-2)+J-24) 

560 NEXT .‘NEXT 
570 RETURN 

580 ’ HI SCORE PRINT 

590 AR=&HDB6D:AQ=0:FOR 1=31 TO 36:HS=PEKK(AR)+&H30:AR=AR+1 

600 IF HS=&H30 AND AQ=0 THEN 620 

610 LOCATE I,7:PRINT CHR$(HS):AQ=1 

620 NEXT:LOCATE 37,7:PRINT "0":RETURN 

630 ’ SCORE 0 

640 LOCATE 37,10:PRINT "0":RETURN 

650 ’ LEFT 3 

660 LOCATE 37,13‘.PRINT "3": RETURN 
670 ’ CONSOLE , CLS 

680 CONSOLE 0,25,0,25:CLS4:CLS:CONSOLE:RETURN 
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67 

A7 

5C 

31 

9C 

90 

09 

52 

22 

SUM: 

3F 

68 

37 

53 

CC 

80 

A0 

C3 ; 

;E0 

SUM: 

6C 

48 

18 

3C 

ID 

9E 

12 

04 ; 

;A9 

D180 

OA 

CB 

9A 

BA 

2A 

29 

F8 

E5 

4B 

0400 

lA 

3C 

18 

02 

lA 

30 

FE 

FA 

BF 

0680 

F8 

91 

13 

FE 

08 

30 

04 

lA 

F0 

D188 

C9 

21 

19 

F8 

7E 

06 

00 

06 

55 

0408 

38 

02 

3E 

01 

12 

13 

CD 

95 

00 

0688 

CB 

CF 

12 

IB 

lA 

3C 

12 

FE 

2D 

D190 

0A 

38 

03 

04 

18 

F9 

C6 

0A 

2A 

0410 

07 

06 

04 

7E 

09 

B7 

C4 

A3 

56 

0690 

18 

02 

A3 

08 

CD 

95 

07 

06 

A4 

D198 

32 

05 

F8 

78 

32 

04 

F8 

21 

F6 

0418 

03 

09 

23 

10 

F6 

CD 

76 

07 

EF 

0698 

04 

7E 

09 

B7 

C4 

A3 

03 

09 

25 

D1A0 

04 

F8 

01 

2C 

32 

16 

01 

C3 

35 

0420 

21 

A3 

DO 

22 

04 

F8 

C3 

F0 

72 

D6A0 

23 

10 

F6 

CD 

76 

07 

13 

lA 

70 

D1A8 

20 

09 

3E 

01 

32 

02 

F8 

32 

A3 

0428 

07 

21 

01 

01 

CD 

4E 

07 

13 

FF 

D6A8 

CB 

4F 

21 

0B 

E2 

28 

03 

21 

74 

D1B0 

21 

F8 

11 

00 

FA 

lA 

13 

13 

64 

0430 

lA 

E6 

0F 

30 

87 

6F 

26 

00 

68 

0660 

6B 

E2 

22 

04 

F8 

IB 

C3 

F0 

39 

D1B8 

EO 

53 

00 

F8 

2A 

09 

F8 

B7 

27 

0438 

01 

5B 

OB 

09 

IB 

IB 

lA 

13 

A3 

D6B8 

07 

13 

lA 

IB 

FE 

01 

28 

05 

4B 

D1C0 

EO 

52 

08 

21 

OB 

01 

E5 

FE 

C7 

0440 

86 

FE 

19 

02 

A3 

08 

IB 

12 

17 

D6C0 

3A 

20 

F8 

B7 

C0 

21 

02 

02 

EE 

D1C8 

FF 

C8 

21 

21 

F8 

34 

21 

07 

50 

0448 

13 

lA 

23 

86 

FE 

19 

02 

A3 

62 

D6C8 

CD 

4E 

07 

3A 

18 

F8 

B7 

20 

13 

D1D0 

OB 

87 

06 

00 

4F 

09 

7E 

23 

61 

0450 

08 

12 

CD 

95 

07 

06 

01 

7E 

A8 

0600 

04 

3C 

32 

18 

F8 

FE 

F0 

02 

42 

D1D8 

66 

6F 

E9 

21 

02 

F8 

34 

2A 

37 

0458 

09 

B7 

C4 

7E 

04 

09 

23 

10 

B2 

0608 

A3 

08 

lA 

3C 

FE 

0F 

30 

03 

11 

D1E0 

00 

F8 

23 

23 

EB 

18 

CE 

21 

30 

0460 

F6 

CD 

76 

07 

13 

lA 

CB 

67 

6F 

D6E0 

12 

18 

27 

13 

3E 

01 

12 

IB 

00 

D1E8 

02 

02 

CB 

4E 

07 

3A 

17 

F8 

3F 

0468 

20 

07 

CB 

E7 

21 

03 

DE 

18 

F3 

D6E8 

ED 

5F 

FB 

40 

04 

45 

08 

CD 

48 

D1F0 

B7 

28 

22 

13 

lA 

EE 

01 

12 

2F 

0470 

05 

CB 

A7 

21 

IB 

DE 

12 

22 

C5 

D6F0 

95 

07 

06 

04 

7E 

09 

B7 

C4 

48 

D1F8 

IB 

3A 

00 

00 

06 

04 

B8 

20 

07 

0478 

04 

F8 

IB 

C3 

F0 

07 

30 

6F 

40 

D6F8 

21 

07 

09 

23 

10 

F6 

CD 

76 

30 

SUM: 

2C 

B3 

05 

2A 

80 

B1 

10 

42 

61 

SUM: 

78 

9A 

15 

07 

F9 

46 

E8 

72 : 

;C7 

SUM: 

72 

AB 

13 

5B 

6F 

FA 

08 

40 : 

:3F 

D200 

02 

06 

02 

78 

32 

00 

00 

3A 

8E 

0480 

26 

00 

29 

29 

01 

00 

FA 

09 

7C 

0700 

07 

21 

CB 

E2 

22 

04 

F8 

C3 

86 

0208 

B4 

00 

06 

05 

B8 

20 

02 

06 

6F 

0488 

7E 

B7 

CA 

BF 

02 

C9 

21 

02 

7C 

0708 

F0 

07 

05 

01 

00 

30 

16 

19 

FC 

0210 

03 

47 

32 

B4 

00 

IB 

3A 

03 

58 

0490 

02 

CD 

4E 

07 

13 

lA 

IB 

62 

9E 

0710 

2A 

24 

F8 

7B 

ED 

79 

23 

03 

50 

0218 

F8 

2F 

E6 

0F 

C2 

76 

02 

3A 

60 

0498 

6B 

IB 

0F 

lA 

38 

0F 

C6 

03 

BF 

0718 

15 

20 

F8 

22 

24 

F8 

01 

18 

54 

0220 

00 

F8 

87 

21 

5B 

OB 

06 

00 

DC 

D4A0 

FE 

15 

38 

15 

34 

34 

23 

CB 

B6 

0720 

DO 

30 

26 

00 

6F 

29 

29 

01 

02 

0228 

4F 

09 

lA 

86 

FE 

FA 

38 

01 

29 

04A8 

C6 

3E 

17 

18 

0C 

06 

03 

FE 

16 

0728 

00 

FA 

09 

7E 

FE 

01 

C0 

09 

19 

0230 

AF 

FE 

18 

38 

02 

3E 

17 

12 

66 

D4B0 

03 

30 

06 

34 

34 

23 

CB 

86 

15 

0730 

05 

09 

01 

13 

lA 

IB 

B7 

C8 

46 

0238 

13 

lA 

23 

86 

FE 

08 

30 

02 

0E 

D4B8 

AF 

12 

13 

lA 

FE 

18 

02 

A3 

79 

0738 

3A 

23 

F8 

3C 

32 

23 

F8 

FE 

DC 

0240 

3E 

08 

FE 

18 

38 

02 

3E 

17 

EB 

D4C0 

08 

4F 

3A 

0C 

F8 

91 

FE 

06 

FA 

0740 

03 

08 

AF 

32 

18 

F8 

CD 

BF 

58 

0248 

12 

32 

0C 

F8 

IB 

lA 

13 

32 

C2 

D4C8 

CC 

45 

08 

CD 

95 

07 

06 

04 

2C 

0748 

03 

3E 

0C 

C3 

IF 

03 

22 

06 

FA 

0250 

0B 

F8 

CB 

95 

07 

06 

04 

7E 

C4 

0400 

7E 

09 

B7 

C4 

A3 

03 

09 

23 

44 

0750 

F8 

21 

00 

F0 

22 

04 

F8 

CD 

F4 

0258 

09 

B7 

C4 

A5 

02 

09 

23 

10 

07 

0408 

10 

F6 

CD 

76 

07 

13 

lA 

0F 

5C 

0758 

7B 

07 

C3 

B6 

07 

lA 

26 

00 

E2 

0260 

F6 

CB 

76 

07 

13 

lA 

21 

7B 

09 

O4E0 

0F 

E6 

03 

21 

03 

DO 

01 

60 

2A 

0760 

6F 

29 

29 

29 

E5 

29 

29 

Cl 

E2 

0268 

OB 

0F 

30 

03 

21 

OB 

OB 

22 

16 

D4E8 

00 

3C 

09 

30 

20 

FC 

22 

04 

C4 

0768 

09 

IB 

lA 

06 

00 

4F 

09 

ED 

89 

0270 

04 

F8 

IB 

C3 

F0 

07 

3E 

04 

E3 

D4F0 

F8 

lA 

C6 

02 

E6 

0E 

4F 

lA 

37 

0770 

4B 

04 

F8 

09 

13 

C9 

3A 

02 

68 

0278 

32 

00 

F8 

3A 

03 

F8 

47 

lA 

C0 

D4F8 

E6 

FI 

B1 

12 

IB 

C3 

F0 

07 

3F 

0778 

F8 

18 

01 

AF 

F5 

CD 

50 

07 

B6 

SUM: 

FO 

22 

50 

C6 

F8 

5B 

5C 

24 ; 

;08 

SUM: 

A6 

C4 

01 

09 

8B 

2F 

18 

F3 ; 

:D9 

SUM: 

F6 

DO 

42 

02 

09 

04 

70 

B0 : 

:14 

0280 

CB 

50 

20 

01 

30 

CB 

58 

20 

BC 

0500 

13 

lA 

CB 

5F 

20 

04 

CB 

OF 

25 

0780 

FI 

ED 

4B 

06 

F8 

C5 

E5 

77 

48 

0288 

01 

3C 

FE 

FA 

38 

01 

AF 

FE 

IB 

0508 

1‘2 

C9 

CB 

9F 

12 

IB 

21 

02 

95 

0788 

23 

10 

FC 

El 

01 

28 

00 

09 

42 

0290 

18 

38 

02 

3E 

17 

12 

13 

lA 

E6 

0510 

02 

CD 

4E 

07 

lA 

3C 

FE 

18 

60 

0790 

Cl 

00 

20 

FI 

C9 

CD 

50 

07 

A9 

0298 

CB 

40 

20 

01 

30 

CB 

48 

20 

9C 

0518 

02 

A3 

08 

12 

CD 

95 

07 

06 

9E 

0798 

05 

ED 

4B 

06 

F8 

11 

2B 

F8 

3F 

O2A0 

01 

3C 

C3 

3C 

02 

30 

6F 

26 

E0 

0520 

04 

7E 

09 

B7 

C4 

4E 

05 

09 

02 

D7A0 

C5 

E5 

7B 

23 

12 

13 

10 

FA 

7A 

02A8 

00 

29 

29 

01 

00 

FA 

09 

7E 

04 

0528 

23 

10 

F6 

CD 

76 

07 

13 

lA 

70 

D7A8 

El 

01 

28 

00 

09 

Cl 

00 

20 

01 

O2B0 

B7 

C8 

FE 

01 

C8 

FE 

0C 

C8 

18 

0530 

E6 

03 

21 

53 

OF 

01 

60 

00 

90 

D7B0 

EF 

01 

21 

2B 

F8 

C9 

F3 

01 

Cl 

02B8 

FE 

FF 

C8 

09 

IB 

IB 

EB 

Cl 

80 

0538 

3C 

09 

30 

20 

FC 

22 

04 

F8 

BC 

D7B8 

03 

lA 

3E 

0B 

ED 

79 

3E 

0A 

14 

O2C0 

36 

02 

23 

23 

23 

36 

00 

21 

F8 

0540 

lA 

3C 

E6 

03 

4F 

lA 

E6 

04 

92 

D7C0 

ED 

79 

01 

00 

00 

CD 

27 

08 

33 

02C8 

01 

BA 

CB 

9A 

DA 

3E 

06 

32 

62 

0548 

B1 

12 

IB 

C3 

F0 

07 

30 

6F 

14 

D7C8 

C5 

E5 

09 

Cl 

09 

09 

AF 

EO 

92 

0200 

1C 

F8 

C9 

21 

01 

02 

CD 

4E 

1C 

0550 

26 

00 

29 

29 

01 

00 

FA 

09 

7C 

0700 

79 

03 

09 

10 

F8 

7C 

C6 

08 

A7 

0208 

07 

lA 

30 

30 

FE 

FA 

02 

3C 

71 

0558 

7E 

B7 

CA 

BF 

02 

FB 

01 

C0 

4F 

0708 

E6 

38 

20 

04 

01 

28 

00 

09 

74 

O2E0 

03 

12 

CB 

95 

07 

06 

02 

7E 

A4 

0560 

Cl 

EB 

13 

13 

21 

01 

02 

22 

18 

D7E0 

47 

7C 

E6 

C7 

B0 

67 

Cl 

00 

55 

02E8 

09 

B7 

C4 

FB 

02 

09 

23 

10 

2F 

0568 

06 

F8 

21 

00 

F0 

22 

04 

F8 

20 

D7E8 

20 

DE 

3E 

FF 

OB 

00 

FB 

C9 

DA 

O2F0 

F6 

CB 

76 

07 

21 

3B 

DC 

22 

6A 

0570 

CD 

7B 

07 

CD 

B6 

07 

C3 

36 

72 

D7F0 

01 

00 

40 

CD 

27 

08 

C5 

E5 

B7 

02F8 

04 

F8 

C3 

F0 

07 

30 

26 

00 

E9 

0578 

03 

.13 

lA 

CB 

5F 

20 

04 

CB 

19 

D7F8 

C5 

E5 

09 

Cl 

09 

09 

7E 

23 

97 

SUM: 

05 

AC 

B2 

C5 

IB 

C0 

90 

12 ; 

;B2 

SUM: 

18 

63 

02 

37 

66 

41 

F8 

41 ; 

;94 

SUM: 

80 

A0 

C7 

60 

17 

43 

56 

28 : 

: IF 

0300 

6F 

29 

29 

01 

00 

FA 

09 

7E 

43 

0580 

OF 

12 

C9 

CB 

9F 

12 

IB 

21 

72 

0800 

ED 

79 

03 

09 

10 

F7 

7C 

C6 

8B 

0308 

FE 

01 

C8 

B7 

C8 

FE 

05 

C8 

11 

0588 

01 

01 

CD 

4E 

07 

lA 

3C 

FE 

48 

0808 

08 

E6 

38 

20 

04 

01 

28 

00 

73 

0310 

FE 

07 

20 

04 

Cl 

09 

18 

IE 

F9 

0590 

14 

30 

07 

12 

ED 

5F 

FE 

7B 

22 

0810 

09 

47 

7C 

E6 

C7 

B0 

67 

Cl 

51 

0318 

FE 

0C 

28 

27 

FE 

FF 

C8 

Cl 

OF 

0598 

38 

06 

CD 

45 

08 

C3 

A3 

08 

66 

0818 

00 

20 

DO 

El 

01 

00 

40 

09 

35 

0320 

E5 

6F 

26 

00 

29 

29 

01 

21 

EE 

D5A0 

CD 

95 

07 

06 

01 

7B 

09 

B7 

4E 

0820 

Cl 

09 

15 

09 

20 

00 

C9 

2A 

6B 

0328 

OB 

09 

CB 

01 

08 

El 

36 

02 

73 

D5A8 

C4 

A3 

03 

09 

23 

10 

F6 

CD 

09 

0828 

04 

F8 

E5 

ED 

43 

04 

F8 

CD 

DA 

0330 

23 

23 

23 

36 

00 

09 

21 

C2 

5B 

D5B0 

76 

07 

21 

33 

El 

22 

04 

F8 

A0 

0830 

50 

07 

ED 

4B 

06 

F8 

CB 

21 

56 

0338 

BA 

CB 

9A 

BA 

21 

08 

F8 

35 

71 

D5B8 

C3 

F0 

07 

21 

02 

02 

CD 

4E 

CA 

0838 

CB 

21 

CB 

21 

09 

El 

22 

04 

B8 

0340 

C3 

A3 

08 

EB 

13 

13 

C3 

33 

45 

D5Ce 

07 

lA 

4F 

3A 

0C 

F8 

91 

06 

15 

0840 

F8 

16 

03 

09 

C9 

05 

06 

05 

93 

0348 

07 

21 

02 

02 

22 

06 

F8 

21 

30 

D5C8 

01 

FE 

0F 

38 

03 

04 

18 

18 

70 

0848 

3A 

0B 

F8 

4F 

IB 

lA 

91 

CB 

ID 

0350 

00 

F0 

22 

04 

F8 

CD 

B6 

07 

68 

0500 

FE 

07 

30 

14 

FE 

03 

38 

33 

B5 

0850 

3F 

B7 

28 

07 

FE 

40 

30 

02 

95 

0358 

lA 

3C 

FE 

17 

02 

A3 

08 

12 

CA 

0508 

IB 

3A 

0B 

F8 

4F 

lA 

B9 

28 

A2 

0858 

05 

05 

04 

3A 

0C 

F8 

4F 

13 

AE 

0360 

13 

lA 

3C 

12 

IB 

FE 

04 

CA 

62 

D5E0 

06 

30 

02 

3C 

3C 

30 

12 

13 

12 

0860 

lA 

91 

CB 

3F 

B7 

28 

0C 

FE 

9E 

0368 

A3 

08 

21 

0B 

DC 

01 

60 

00 

E4 

05E8 

lA 

80 

FE 

18 

02 

A3 

08 

12 

0F 

0868 

40 

30 

05 

04 

04 

04 

18 

03 

9C 

0370 

09 

30 

20 

FC 

22 

04 

F8 

C3 

43 

D5F0 

CD 

95 

07 

06 

04 

7E 

09 

B7 

51 

0870 

05 

05 

05 

C5 

3A 

06 

F8 

47 

53 

0378 

F0 

07 

21 

01 

01 

CD 

4E 

07 

DC 

D5F8 

C4 

A3 

03 

09 

23 

10 

F6 

CD 

09 

0878 

05 

lA 

80 

4F 

IB 

lA 

47 

3E 

A8 
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SUM: 

D2 

4C 

C2 

B2 

1C 

C8 

72 

17 

FF 

SUM: 

8E 

3F 

B7 

94 

00 

EE 

37 

AC 

:E9 

SUM: 

DE 

C6 

8F 

38 

F7 

7D 

D8 

EC : 

A3 

D880 

05 

CD 

A9 

D8 

FI 

FE 

05 

20 

67 

DB00 

08 

00 

09 

00 

0A 

00 

FF 

E7 

01 

DD80 

94 

57 

02 

0A 

D9 

A5 

4C 

28 

E9 

D888 

02 

3E 

02 

77 

D1 

C9 

21 

00 

74 

DB08 

D1 

D3 

D2 

49 

D3 

7A 

D3 

DB 

BA 

DD88 

8C 

44 

86 

00 

18 

18 

18 

18 

B6 

D890 

F4 

18 

03 

21 

00 

F0 

0E 

19 

47 

DB10 

D3 

29 

D4 

8E 

D4 

00 

D5 

79 

80 

DD90 

18 

3C 

00 

00 

10 

10 

10 

10 

94 

D898 

06 

28 

36 

00 

23 

10 

FB 

0D 

9F 

DB18 

D5 

BB 

D5 

19 

D6 

58 

D6 

B9 

3B 

DD98 

10 

34 

18 

00 

18 

18 

18 

18 

BC 

D8A0 

20 

F6 

C9 

IB 

IB 

3E 

FF 

12 

64 

DB20 

D6 

00 

00 

00 

00 

00 

00 

00 

D6 

DDA0 

18 

18 

00 

60 

06 

70 

0E 

7C 

90 

D8A8 

C9 

F5 

C5 

21 

FC 

F9 

01 

04 

9E 

DB28 

00 

00 

00 

00 

00 

00 

00 

01 

01 

DDA8 

3E 

7F 

FE 

7F 

FE 

7F 

FE 

7F 

34 

D8B0 

00 

09 

7E 

3C 

20 

FB 

Cl 

FI 

90 

DB30 

00 

00 

00 

05 

00 

00 

00 

00 

05 

DDB0 

FE 

7F 

FE 

7F 

FE 

7F 

FE 

7F 
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20 

5B 

AE 

D8D0 

C9 

C5 

D5 
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DDD8 

90 

5B 

10 
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2C 

60 
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21 

7A 

DB 

B7 

lA 

4E 

89 

16 
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01 

FF 

00 

00 

00 

01 

00 

FF 

00 
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08 

10 

60 
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70 

0E 

78 

A4 
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05 

28 

0C 

FE 

0A 

38 

02 

D6 

51 
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FF 

00 
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01 

FF 

00 
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00 

FE 
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IE 
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IB 

2B 

18 

EE 

13 

BA 
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00 
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00 
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CA 

5B 
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CA 

5B 

84 
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21 

6D 
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06 

07 

lA 

4E 

B9 

97 
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00 

00 

11 

88 

0F 

F0 

07 

9F 
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5B 
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55 

AA 

56 

6A 

24 
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8F 

1C 

E5 

C6 

A1 

6C 

A8 

0B 
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98 

D8 

83 

18 

0F 

23 

C0 
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10 

E9 

04 

E5 
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84 
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27 
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E0 

07 

B4 

DE00 

24 

00 

00 

10 

10 

10 

10 

10 : 

74 

D908 

0F 

F8 

11 

6D 

DB 

ED 

B0 

18 

15 

DB88 
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A0 

78 

00 

82 

00 

BA 

03 

DE58 

DE 

FC 

6E 

FC 

76 

F8 

78 

30 : 

:5A 

D960 

ED 

5F 

FE 

20 

38 

14 

CD 

23 

A6 

DBE0 

00 

B8 

00 

B8 

08 

3A 

08 

3A 

F4 

DE60 

FC 

01 

FC 

03 

FC 

3F 

C0 

7F : 

;76 

D968 

DA 

6F 

26 

00 

01 

00 

30 

09 

A9 

DBE8 

4A 

19 

F3 

09 

F3 

09 

F3 

13 

61 

DE68 

BC 

DF 

7C 

DE 

FC 

6E 

78 

38 ; 

;0F 

D970 

44 

4D 

ED 

5F 

E6 

03 

ED 

79 

2C 

DBF0 

FA 

IB 

FB 

0B 

BA 

0F 

IE 

17 

19 

DE70 

30 

00 

00 

3C 

00 

7E 

IE 

FF : 

;07 

D978 

FI 

F5 

01 

B0 

33 

21 

FI 

FF 

DB 

DBFS 

0F 

13 

0A 

7C 

04 

FE 

04 

C6 

74 

DE78 

IF 

FF 

0F 

FF 

07 

FF 

03 

7E ; 

:B3 

SUM: 

18 

A4 

75 

7C 

64 

40 

39 

E4 

6E 

SUM: 

5B 

69 

A8 

48 

3D 

62 

79 

63 : 

:2F 

SUM: 

14 

71 

0A 

IB 

42 

72 

AE 

FA : 

;06 

D980 

E5 

D9 

El 

01 

D8 

33 

D9 

IE 

A2 

DC00 

04 

D4 

04 

8C 

04 

0C 

04 

3C 

B8 

DE80 

02 

3C 

00 

00 

00 

00 

00 

40 

7E 

D988 

18 

16 

19 

E5 

D9 

E5 

D9 

ED 

B0 

DC08 

A4 

1C 

06 

05 

C4 

05 

C4 

14 

6C 

DE88 

3C 

C0 

7E 

C0 

FE 

E0 

FE 

7C 

92 

D990 

78 

D9 

ED 

79 

0B 

D9 

0B 

15 

BB 

DC10 

C4 

1C 

07 

0F 

BE 

0A 

18 

10 

E6 

DE90 

FC 

38 

78 

38 

00 

7E 

3E 

FE 

9E 

D998 

20 

F5 

09 

44 

4D 

D9 

09 

44 

D5 

DC18 

08 

37 

8B 

78 

00 

FA 

00 

C2 

FE 

DE98 

3F 

FF 

IF 

FF 

0F 

FF 

07 

7F 

F0 

D9A0 

4D 

El 

D9 

El 

ID 

20 

E2 

FI 

F8 

DC20 

00 

D8 

00 

A8 

00 

2A 

00 

3A 

E4 

DEA0 

02 

3E 

3C 

1C 

FC 

01 

FE 

41 

D4 

D9A8 

C9 

2B 

7C 

B5 

20 

FB 

10 

F9 

49 

DC28 

AA 

19 

13 

0B 

FB 

0B 

FB 

10 

F2 

DEA8 

FF 

C3 

FF 

E3 

FF 

FI 

FE 

7D 

0F 

D9B0 

C9 

2A 

IE 

F8 

5E 

23 

56 

2A 

0A 

DC30 

E2 

13 

F8 

08 

00 

0B 

1C 

13 

2F 

DEB0 

FE 

38 

78 

38 

00 

78 

IE 

F9 

75 

D9B8 

lA 

F8 

B7 

ED 

52 

C0 

2A 

IE 

10 

DC38 

0B 

00 

00 

00 

00 

00 

00 

00 

0B 

DEBS 

DE 

FI 

EE 

63 

F6 

07 

F8 

0F 

24 

D9C0 

F8 

23 

23 

0E 

00 

7E 

CB 

57 

EC 

DC40 

00 

10 

04 

08 

08 

00 

00 

00 

24 

DEC0 

FC 

7F 

C0 

7F 

3C 

7E 

FE 

3E 

B0 

D9C8 

C4 

0F 

DA 

E6 

03 

28 

14 

3D 

0F 

DC48 

00 

00 

00 

00 

00 

00 

00 

00 

00 

DECS 

FE 

BD 

FC 

DD 

FC 

6E 

F8 

38 

2E 

D9D0 

28 

1C 

3D 

28 

2C 

18 

33 

2A 

4A 

DC50 

00 

10 

04 

08 

08 

00 

00 

00 

24 

DED0 

30 

00 

00 

38 

00 

7C 

IE 

FC 

FE 

D9D8 

IE 

F8 

23 

23 

23 

23 

22 

IE 

E2 

DC58 

00 

00 

00 

00 

00 

00 

00 

00 

00 

DED8 

IF 

FC 

0F 

F8 

07 

70 

03 

00 

9C 

D9B0 

F8 

18 

D1 

CD 

23 

DA 

47 

23 

15 

DC60 

00 

18 

0C 

18 

0C 

00 

00 

00 

48 

DEE0 

02 

00 

00 

00 

3C 

00 

FE 

00 

3C 

D9E8 

7E 

CD 

A9 

D8 

18 

E9 

CD 

23 

BD 

DC68 

00 

00 

00 

00 

00 

01 

02 

21 

24 

DEES 

FF 

81 

FF 

Cl 

FF 

El 

FE 

7D 

9B 

D9F0 

DA 

CB 

3F 

47 

3A 

0B 

F8 

FE 

66 

DC70 

4C 

08 

00 

20 

04 

10 

08 

20 

B0 

DEF0 

FE 

38 

78 

00 

00 

03 

9E 

07 

56 

D9F8 

0D 

78 

38 

03 

06 

0C 

80 

18 

6A 

DC78 

00 

C3 

90 

03 

8C 

C3 

89 

00 

2E 

DEF8 

CF 

IF 

C7 

3F 

E3 

3F 

F3 

7F 

88 

SUM: 

ED 

59 

68 

4C 

C3 

83 

F8 

CE ; 

106 

SUM: 

57 

4A 

4B 

IE 

2D 

29 

8A 

C0 ; 

:AA 

SUM: 

6D 

6D 

BF 

ID 

5B 

C9 

F9 

74 : 

:47 

DA00 

E5 

7E 

CB 

3F 

CB 

3F 

CB 

3F 

81 

DC80 

00 

20 

00 

40 

08 

08 

80 

01 

FI 

DF00 

FA 

7F 

FC 

7F 

FC 

IF 

FC 

0F 

lA 

DA08 

18 

DC 

3A 

0B 

F8 

18 

D7 

F5 

15 

DCS 8 

18 

00 

00 

00 

00 

01 

82 

61 

FC 

DF08 

FC 

CF 

F8 

E7 

F0 

FI 

E0 

78 

E3 

DA10 

CD 

23 

DA 

CB 

3F 

4F 

FI 

C9 

DD 

DC90 

CC 

3B 

D6 

3F 

FC 

IF 

F8 

2F 

5E 

DF10 

00 

38 

00 

00 

00 

07 

CE 

IF 

2C 

DAI 8 

CD 

23 

DA 

47 

0E 

00 

3E 

07 

64 

DCS 8 

F0 

DF 

D0 

7F 

FC 

FF 

FF 

5F 

77 

DF18 

F6 

3F 

F8 

7E 

1C 

79 

EC 

F7 

23 

DA20 

C3 

A9 

D8 

ED 

5F 

FE 

18 

38 

DE 

DCA0 

F8 

2F 

F0 

47 

78 

0E 

F8 

07 

E3 

DF20 

E4 

F7 

E2 

EF 

E2 

EF 

C2 

73 

B2 

DA28 

04 

D6 

18 

18 

F8 

C9 

21 

00 

EC 

DCA8 

18 

04 

00 

00 

00 

00 

00 

00 

1C 

DF28 

82 

B0 

04 

D8 

0C 

6E 

18 

07 

A7 

DA30 

FA 

06 

00 

36 

FF 

23 

10 

FB 

63 

DCB0 

00 

00 

00 

00 

00 

02 

80 

05 

87 

DF30 
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40 

03 
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05 
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DF38 

07 
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03 

00 

01 

01 

El 

07 

F4 

DA40 

ED 
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32 

03 
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F5 
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E6 

9C 
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40 
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00 

00 

00 

00 

00 

00 

42 

DF40 

F0 

07 
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0F 

F8 

0F 
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32 
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00 
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FE 
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20 

9B 
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D0 

05 

A8 

17 

A0 

06 

F4 

9C 

CA 
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FF 

IF 

FF 

IF 

FF 

3F 

F7 
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B0 
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FB 

01 

00 

19 

ED 

78 

FE 

20 

98 

DCE0 

A9 

03 

70 

02 

00 

00 

40 
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5E 

DF60 

F2 

3F 

F0 

7F 

E0 

3F 

C0 

5F 

DE 

DA68 

20 

F2 

FE 

20 

20 

03 

32 

01 

86 

DCE8 

01 

14 

20 

86 

34 

60 

D8 

77 
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DF68 

82 

E0 

02 

E0 

06 

F0 

0C 

7C 

C2 
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F8 

FE 

09 

20 

03 

32 
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F8 
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74 

3F 
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IF 

FC 

B6 

BC 

4F 
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7C 

38 

70 

00 
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00 
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07 

49 

DA78 

FE 

03 

20 

04 

El 

C3 

7E 

D1 

18 

DCFS 

F6 

B5 
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DAS 8 

F8 

3A 

22 

F8 

B7 

C8 

3A 

01 

06 

DD08 

55 

54 

20 

00 

00 

00 

00 

00 

C9 

DF88 

7C 

DF 

FC 

DF 

F8 

6F 
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00 

0C 

14 

0D 

0A 

FF 

07 

3F 

7C 

DD78 

02 

60 

8C 

14 

30 

0A 

01 

25 

62 

DFF8 

F8 

IF 

F8 

IF 

F8 

IF 

F8 

IF 

5C 
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E278 

9E 

38 

0E 

30 

06 

4E 

75 

06 

:E3 

E4F0 

09 

78 

00 

03 

03 

79 

00 

00 : 

:00 

SUM: 

2D 

0F 

79 

D6 

95 

7C 

39 

EE 

C3 











E4F8 

09 

82 

00 

01 

04 

84 

00 

03 : 

:17 











SUM: 

21 

DF 

A1 

CE 

A3 

32 

D2 

6B 

:81 











E000 

F8 

IF 

F8 

IF 

F8 

IF 

F8 

IF 

5C 











SUM: 

97 

4C 

20 

2B 

72 

6D 

20 

2E : 

;5B 

E008 

F8 

IF 

F8 

IF 

F8 

00 

00 

00 

26 

E280 

38 

18 

44 

42 

44 

24 

28 

40 

A6 











E010 

00 

00 

00 

00 

00 

00 

00 

7F 

7F 

E288 

04 

00 

00 

70 

1C 

38 

38 

06 

06 

E500 

03 

87 

00 

01 

09 

88 

00 

01 

ID 

E018 

FE 

7F 

FE 

7F 

FE 

3F 

FC 

3F 

72 

E290 

C0 

IB 

B0 

3B 

B8 

72 

9C 

72 

FE 

E508 

09 

96 

00 

00 

03 

A0 

00 

03 

45 

E020 

FC 

IF 

F8 

IF 

F8 

0F 

F0 

0F 

38 

E298 

9C 

00 

00 

00 

00 

06 

70 

06 

18 

E510 

03 

C8 

00 

00 

04 

C9 

00 

01 

99 

E028 

F0 

07 

E0 

07 

E0 

00 

00 

00 

BE 

E2A0 

38 

18 

44 

66 

7C 

3C 

28 

40 

lA 

E518 

09 

CD 

00 

01 

04 

El 

00 

03 

BF 

E030 

00 

00 

00 

00 

00 

00 

00 

55 

55 

E2A8 

04 

00 

00 

70 

1C 

38 

38 

06 

06 

E520 

03 

£6 

00 

01 

09 

F0 

00 

00 

E3 

E038 

54 

2A 

AA 

55 

54 

2A 

A8 

15 

B8 

E2B0 

C0 

IB 

B0 

3B 

B8 

72 

9C 

76 

02 

E528 

03 

FI 

00 

01 

04 

04 

01 

01 

FF 

E040 

54 

0A 

A8 

15 

50 

0A 

A0 

05 

lA 

E2B8 

DC 

08 

62 

33 

B6 

06 

70 

06 

AB 

E530 

04 

05 

01 

00 

06 

0E 

01 

01 

20 

E048 

50 

02 

A0 

05 

40 

00 

00 

00 

37 

E2C0 

38 

18 

00 

00 

00 

00 

00 

00 

50 

E538 

09 

0F 

01 

00 

04 

18 

01 

03 

39 

E050 

00 

00 

00 

00 

00 

00 

00 

7F 

7F 

E2C8 

00 

00 

00 

40 

40 

40 

42 

78 

7A 

E540 

03 

lA 

01 

01 

09 

2C 

01 

00 

55 

E058 

FE 

7F 

FE 

7F 

FE 

2A 

A8 

15 

DF 

E2D0 

42 

89 

E2 

B8 

BA 

C8 

8C 

88 

FB 

E548 

06 

36 

01 

03 

03 

40 

01 

62 

E6 

E060 

54 

0A 

A8 

15 

50 

0A 

A0 

05 

lA 

E2D8 

8A 

94 

89 

90 

09 

60 

06 

BC 

62 

E550 

07 

4A 

01 

62 

0C 

54 

01 

04 

19 

E068 

50 

02 

A0 

05 

40 

00 

00 

00 

37 

E2E0 

3D 

7E 

7E 

66 

66 

3C 

3C 

00 

7D 

E558 

08 

57 

01 

04 

08 

5E 

01 

04 

CF 

E070 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E2E8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E560 

08 

60 

01 

04 

08 

66 

01 

04 

E0 

E078 

00 

00 

00 

00 

00 

00 

00 

FF 

FF 

E2F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E568 

08 

72 

01 

04 

08 

74 

01 

07 

03 











E2F8 

00 

00 

00 

00 

00 

00 

00 

3C 

3C 

E570 

08 

90 

01 

03 

03 

9A 

01 

03 

3D 

SUM: 

74 

A4 

FE 

EB 

38 

D5 

74 

F3 

75 

SUM: 

B1 

21 

33 

IF 

87 

64 

E8 

78 : 

:6F 

E578 

03 

C2 

01 

00 

08 

CC 

01 

00 

9B 

E080 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

00 

F9 

SUM: 

5E 

B2 

0A 

79 

66 

4A 

0B 

85 ; 

:D3 

E088 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E300 

3C 

7E 

7E 

7E 

7E 

18 

18 

00 

64 











E090 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E308 

00 

00 

00 

BF 

BF 

BF 

BD 

87 

81 

E580 

08 

F4 

01 

00 

03 

FE 

01 

03 

02 

E098 

00 

00 

00 

00 

00 

00 

00 

55 

55 

E310 

BD 

76 

ID 

47 

45 

37 

73 

77 

FD 

E588 

03 

08 

02 

03 

03 

26 

02 

00 

3B 

E0A0 

55 

AA 

AA 

55 

55 

AA 

AA 

00 

A7 

E318 

75 

6B 

76 

6F 

F6 

IF 

F8 

3F 

11 

E590 

09 

2B 

02 

01 

09 

2C 

02 

01 

6F 

E0A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E320 

FC 

66 

66 

42 

42 

24 

24 

00 

94 

E598 

04 

3A 

02 

00 

04 

3C 

02 

01 

83 

E0B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E328 

00 

00 

00 

20 

20 

20 

20 

20 

A0 

E5A0 

09 

44 

02 

03 

03 

32 

00 

01 

88 

E0B8 

00 

00 

00 

00 

00 

00 

00 

FF 

FF 

E330 

20 

24 

22 

22 

22 

22 

2D 

2D 

26 

E5A8 

09 

46 

00 

01 

09 

48 

00 

01 

A2 

E0C0 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

00 

F9 

E338 

2D 

22 

22 

22 

22 

25 

20 

20 

lA 

E5B0 

09 

82 

00 

00 

06 

8C 

00 

00 

ID 

B0C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E340 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E5B8 

06 

91 

00 

00 

06 

C8 

00 

03 

68 

E0D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E348 

20 

20 

24 

28 

2A 

2A 

2B 

2B 

36 

E5C0 

03 

DC 

00 

03 

03 

FA 

00 

00 

DF 

E0D8 

00 

07 

E0 

07 

E0 

0F 

F0 

0F 

DC 

E350 

2B 

2B 

2C 

2B 

2B 

29 

25 

20 

46 

E5C8 

09 

04 

01 

00 

09 

0E 

01 

00 

26 

E0E0 

F0 

IF 

F8 

IF 

F8 

3F 

FC 

3F 

98 

E358 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E5D0 

03 

10 

01 

00 

03 

2C 

01 

01 

45 

E0E8 

FC 

7F 

FE 

7F 

FE 

7F 

FE 

00 

73 

£360 

20 

20 

20 

24 

28 

2A 

2A 

2B 

2B 

E5D8 

04 

5E 

01 

01 

04 

61 

01 

01 

CB 

E0F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E368 

2B 

2B 

2B 

2B 

2B 

2B 

29 

25 

50 

E5E0 

04 

72 

01 

00 

06 

77 

01 

00 

F5 

E0F8 

00 

02 

A0 

05 

40 

0A 

A0 

05 

96 

E370 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E5E8 

06 

7C 

01 

00 

06 

86 

01 

00 

10 











E378 

20 

20 

20 

20 

24 

28 

2B 

2B 

22 

E5F0 

06 

90 

01 

00 

06 

A4 

01 

03 

45 

SUM: 

3F 

4F 

IE 

FD 

69 

7F 

32 

A7 

6A 











E5F8 

03 

A£ 

01 

,03 

03 

C2 

01 

00 

7B 











SUM: 

CD 

21 

D6 

BB 

4A 

E8 

FF 

D0 : 

180 











E100 

50 

0A 

A8 

15 

50 

2A 

A8 

15 

4E 


SUM: 

5F 

78 

10 

0F 

53 

52 

0E 

0F ; 

;B8 

E108 

54 

2A 

AA 

55 

54 

2A 

AA 

00 

A5 

E3S^ 

2B 

2B 

27 

27 

2B 

2B 

2C 

29 : 

:4F 











E110 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E388 

25 

20 

20 

20 

20 

20 

20 

20 : 

;05 

E600 

09 

E0 

01 

04 

08 

EA 

01 

04 

E5 

E118 

00 

02 

A0 

05 

40 

0A 

A0 

05 

96 

E390 

20 

20 

20 

20 

20 

24 

28 

2B ; 

:17 

B608 

08 

EF 

01 

04 

08 

P4 

01 

00 

F9 

E120 

50 

0A 

A8 

15 

50 

2A 

A8 

15 

4E 

E398 

2B 

2A 

2B 

2A 

2B 

2B 

2B 

2B ; 

:56 

E610 

06 

F9 

01 

00 

06 

FE 

01 

00 

05 

E128 

54 

7F 

FE 

7F 

FE 

7F 

FE 

00 

CB 

E3A0 

29 

25 

20 

20 

20 

20 

20 

20 : 

:0£ 

E618 

06 

1C 

02 

03 

07 

IF 

02 

07 

56 

E130 

00 

00 

00 

2F 

00 

F4 

00 

00 

23 

E3A8 

20 

20 

20 

20 

20 

20 

24 

28 ; 

:0C 

E620 

08 

26 

02 

00 

03 

30 

02 

00 

65 

E138 

00 

00 

18 

10 

10 

00 

10 

30 

78 

E3B0 

2B 

2B 

26 

2B 

27 

2B 

26 

2B ; 

:4A 

E628 

03 

14 

00 

00 

04 

16 

00 

00 

31 

E140 

70 

78 

38 

10 

18 

08 

18 

3C 

A4 

E3B8 

2B 

29 

25 

20 

20 

20 

20 

20 ; 

:19 

E630 

04 

19 

00 

00 

04 

IB 

00 

01 

40 

E148 

7E 

7E 

24 

06 

60 

83 

Cl 

El 

AB 

E3C0 

20 

20 

20 

20 

20 

20 

20 

24 ; 

;04 

E638 

0B 

23 

00 

01 

0B 

32 

00 

00 

6C 

E150 

87 

F9 

9F 

9F 

F9 

07 

E0 

9F 

3D 

E3C8 

28 

2B 

2B 

26 

2B 

27 

2B 

26 : 

:47 

E640 

09 

34 

00 

00 

09 

37 

00 

00 

7D 

E158 

F9 

FB 

9F 

E3 

87 

83 

81 

01 

02 

E3D0 

2B 

2B 

29 

25 

20 

20 

20 

20 ; 

;24 

E648 

09 

3C 

00 

00 

09 

50 

00 

01 

9F 

E160 

80 

05 

A0 

01 

80 

02 

40 

01 

E9 

E3D8 

20 

20 

20 

20 

20 

20 

20 

20 ; 

:00 

E650 

03 

52 

00 

01 

03 

54 

00 

03 

B0 

E168 

80 

00 

00 

06 

00 

83 

01 

El 

EB 

E3E0 

24 

28 

2B 

2C 

2C 

2C 

2B 

2B : 

;51 

E658 

03 

5A 

00 

00 

04 

64 

00 

00 

C5 

E170 

07 

E3 

5F 

93 

79 

07 

60 

83 

3F 

E3E8 

2A 

2A 

2B 

29 

25 

20 

20 

20 ; 

;2D 

E660 

09 

82 

00 

00 

03 

84 

00 

00 

12 

E178 

41 

81 

01 

81 

01 

81 

01 

01 

C8 

E3F0 

20 

20 

20 

20 

20 

20 

20 

20 : 

00 

E668 

03 

87 

00 

00 

03 

8C 

00 

00 

19 











E3F8 

20 

24 

28 

2B 

2C 

2C 

2C 

2B ; 

:46 

E670 

03 

91 

00 

03 

03 

96 

00 

01 

31 

SUM: 

FE 

12 

4A 

F5 

34 

ID 

84 

82 : 

;A6 











E678 

09 

98 

00 

00 

09 

A0 

00 

00 

4A 











SUM: 

5B 

5A 

4F 

47 

45 

44 

4B 

52 : 

;71 











E180 

00 

05 

20 

05 

20 

00 

00 

01 

4B 











SUM: 

67 

A8 

07 

10 

5E 

16 

07 

11 ; 

;B2 

E188 

00 

00 

00 

06 

60 

83 

Cl 

El 

8B 

E400 

2B 

2A 

2A 

2B 

29 

2& 

20 

20 

38 











E190 

87 

F9 

9F 

9F 

F9 

07 

E0 

9F 

3D 

£408 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E680 

0B 

AA 

00 

00 

0B 

B4 

00 

00 

74 

B198 

F9 

BB 

DD 

A3 

C5 

83 

Cl 

01 

3E 

E410 

20 

20 

24 

23 

23 

23 

23 

23 

13 

E688 

0B 

BE 

00 

01 

09 

C3 

00 

00 

96 

E1A0 

80 

05 

A0 

01 

80 

02 

40 

01 

E9 

E418 

23 

23 

23 

23 

23 

23 

25 

20 

17 

E690 

09 

C8 

00 

01 

03 

E6 

00 

00 

BB 

E1A8 

80 

00 

00 

00 

00 

01 

80 

02 

03 

E420 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E698 

06 

EB 

00 

00 

04 

F0 

00 

01 

E6 

E1B0 

40 

01 

80 

05 

A0 

01 

80 

81 

68 

E428 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6A0 

09 

F5 

00 

01 

09 

FA 

00 

00 

02 

E1B8 

Cl 

El 

C7 

F9 

DF 

9F 

F9 

07 

E0 

E430 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6A8 

06 

0E 

01 

00 

03 

16 

01 

00 

2F 

E1C0 

E0 

9F 

F9 

F9 

9F 

El 

87 

83 

FB 

E438 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6B0 

03 

18 

01 

03 

03 

22 

01 

03 

48 

E1C8 

Cl 

06 

60 

00 

00 

00 

80 

00 

A7 

E440 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6B8 

03 

36 

01 

04 

08 

3B 

01 

04 

86 

E1D0 

00 

04 

A0 

04 

A0 

00 

80 

80 

48 

E448 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6C0 

08 

40 

01 

04 

08 

45 

01 

05 

A0 

E1I>8 

81 

80 

81 

80 

81 

82 

Cl 

06 

CC 

E450 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6C8 

08 

4A 

01 

07 

08 

54 

01 

00 

B7 

E1E0 

E0 

9E 

C9 

FA 

C7 

E0 

87 

80 

EF 

E458 

20 

20 

20 

20 

20 

20 

20 

20 

00 

. E6D0 

09 

5E 

01 

03 

03 

68 

01 

01 

D8 

E1E8 

Cl 

00 

60 

00 

00 

01 

80 

02 

A4 

E460 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6D8 

03 

74 

01 

00 

04 

7A 

01 

01 

F8 

E1F0 

40 

01 

80 

05 

A0 

01 

80 

83 

6A 

E468 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6E0 

04 

7C 

01 

01 

04 

81 

01 

00 

08 

E1F8 

Cl 

A3 

C5 

BB 

DD 

9F 

F9 

07 

60 

E470 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6E8 

09 

86 

01 

00 

06 

90 

01 

01 

28 











E478 

20 

20 

20 

20 

20 

20 

20 

20 

00 

E6F0 

03 

A4 

01 

62 

0C 

AE 

01 

04 

C9 

SUM: 

45 

0B 

6B 

83 

41 

94 

63 

22 ; 

;98 











E6F8 

08 

B3 

01 

04 

08 

B8 

01 

04 

85 











SUM: 

0£ 

0D 

11 

11 

0F 

0B 

08 

03 : 

;62 











E200 

E0 

9F 

F9 

F9 

9F 

El 

87 

83 

FB 











SUM: 

6E 

21 

0B 

7F 

67 

AC 

0B 

18 

:4F 

E208 

Cl 

06 

60 

IE 

78 

3E 

7C 

BE 

35 

E480 

20 

20 

20 

20 

20 

20 

20 

20 

00 











E210 

7D 

DE 

7B 

DE 

7B 

EE 

77 

6E 

02 

£488 

20 

0A 

00 

00 

04 

0B 

00 

00 

39 

E700 

08 

C2 

01 

04 

08 

CC 

01 

05 

:A9 

E218 

76 

7E 

7E 

3E 

7C 

IE 

78 

0F 

D1 

E490 

04 

0C 

00 

00 

04 

14 

00 

01 

29 

E708 

08 

D1 

01 

05 

08 

D6 

01 

00 

:BE 

E220 

F0 

07 

E0 

03 

C0 

03 

C0 

01 

5E 

E498 

03 

16 

00 

01 

03 

17 

00 

01 

35 

E710 

09 

E0 

01 

04 

08 

E5 

01 

05 

:E1 

E228 

80 

01 

80 

06 

68 

0E 

04 

8E 

0F 

E4A0 

03 

28 

00 

01 

09 

29 

00 

01 

5F 

E718 

08 

F4 

01 

00 

03 

08 

02 

03 

:0D 

E230 

04 

C6 

08 

C6 

08 

E2 

10 

63 

F5 

E4A8 

09 

2A 

00 

01 

09 

2B 

00 

01 

69 

E720 

03 

0D 

02 

03 

03 

12 

02 

01 

:2D 

E238 

90 

73 

90 

3B 

98 

IB 

98 

0F 

28 

E4B0 

09 

37 

00 

00 

04 

38 

00 

00 

7C 

E728 

09 

21 

02 

00 

0B 

26 

02 

00 

:5F 

E240 

B0 

07 

A0 

02 

00 

02 

00 

01 

5C 

E4B8 

04 

39 

00 

00 

09 

3C 

00 

01 

83 

E730 

0B 

30 

02 

00 

0B 

3A 

02 

00 

:84 

E248 

00 

01 

00 

10 

08 

2E 

74 

AF 

6A 

E4C0 

09 

50 

00 

00 

06 

51 

00 

00 

B0 

E738 

0B 

3F 

02 

00 

0B 

44 

02 

03 

:A0 

E250 

F5 

D7 

EB 

D7 

EB 

EB 

D7 

6B 

A6 

E4C8 

06 

52 

00 

00 

06 

53 

00 

00 

B1 

E740 

09 

00 

FE 

34 

CA 

4A 

E7 

C3 

:F9 

E258 

D6 

7B 

DE 

3B 

DC 

IB 

D8 

0F 

48 

E4D0 

06 

64 

00 

01 

04 

65 

00 

01 

D5 

E748 

13 

00 

E5 

C3 

F0 

10 

00 

00 

:BB 

E260 

F0 

07 

E0 

02 

40 

02 

40 

01 

5C 

E4D8 

04 

66 

00 

01 

04 

68 

00 

01 

D8 











E268 

80 

01 

80 

00 

00 

00 

00 

00 

01 

E4E0 

09 

69 

00 

01 

09 

6E 

00 

03 

ED 

SUM: 

5F 

04 

EF 

07 

F9 

9F 

F4 

D4 

:B9 

E270 

00 

03 

80 

3B 

B8 

73 

9C 

7B 

00 

E4E8 

03 

6F 

00 

01 

04 

73 

00 

01 

EB 
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NEW ON 20 
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BYEia 
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— B-7 > K t-Ol'T ii, -7 —a.T-'K?)B 
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BASIC^-e 
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^jin m 


U ^ h Jocose idohn 


All# 

C3 

17 

BF 

BB 

BB 

BB 

BB 

BB 

99 

A2AB 

06 

BE 

16 

26 

7F 

06 

06 

BB 

:DB 

AS4e 

ee 

BB 

BB 

BB 

ee 

BB 

ee 

BB 

:BB 

Alts 

1C 

28 

43 

43 

7F 

43 

43 

BB 

CD 

A2A8 

7F 

4B 

7C 

B6 

B3 

46 

SC 

BB 

:C8 

A548 

BB 

BB 

BB 

BB 

ee 

ee 

ee 

BB 

: BB 

All! 

7E 

43 

43 

7E 

43 

43 

7E 

BB 

86 

A2BB 

IE 

2B 

40 

7E 

43 

43 

3E 

BB 

:CB 

AS5B 

ee 

2E 

2A 

2A 

2A 

2A 

2A 

2E 

:2E 

Atl8 

IE 

23 

4B 

4B 

4B 

23 

IE 

BB 

42 

A2B8 

7F 

43 

06 

BC 

18 

18 

18 

BB 

: 1C 

A558 

BB 

EE 

AA 

AA 

AA 

AA 

AA 

EE 

:2E 

Ae2e 

7C 

48 

43 

43 

43 

46 

7C 

ee 

4D 

A2CB 

3E 

43 

43 

3E 

43 

43 

3E 

BB 

:C8 

AS6e 

ee 

77 

15 

IS 

75 

45 

45 

77 

: 17 

Ae28 

7F 

4B 

40 

7E 

40 

40 

7F 

BB 

7C 

A2C8 

3E 

43 

43 

3F 

B3 

B6 

3C 

BB 

:48 

AS68 

BB 

77 

55 

55 

55 

55 

55 

77 

:97 

Aese 

7F 

40 

40 

7E 

40 

40 

40 

BB 

3D 

A2DB 

BB 

BB 

BB 

7E 

BB 

BB 

BB 

BB 

:7E 

A578 

ee 

77 

15 

15 

75 

IS 

15 

77 

:B7 

Ae38 

IE 

23 

40 

4F 

43 

23 

IE 

BB 

54 

A2D8 

BB 

BB 

7E 

BB 

7E 

BB 

BB 

BB 

:FC 

A578 

BB 

77 

55 

55 

55 

55 

55 

77 

: 97 

A84e 

43 

43 

43 

7F 

43 

43 

43 

ee 

11 

A2EB 

7C 

6B 

6B 

6B 

6B 

6B 

7C 

BB 

:D8 











Ae48 

ec 

BC 

BC 

BC 

BC 

BC 

BC 

BB 

54 

A2E8 

3E 

06 

06 

06 

B6 

B6 

3E 

BB 

: 9A 

SUM: 

00 

F8 

A9 

A9 

69 

D9 

D8 

F8 

: SC 

Adse 

BB 

06 

08 

06 

06 

66 

3C 

BB 

CB 

A2FB 

BB 

03 

B6 

BC 

18 

39 

60 

BB 

:BD 











AeS8 

43 

43 

46 

78 

46 

43 

43 

01 

IB 

A2F8 

BB 

63 

36 

1C 

1C 

36 

63 

BB 

:6A 

A58e 

BB 

BB 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

Aeee 

40 

40 

40 

40 

40 

40 

7F 

BB 

FF 











A588 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

78 

ABBS 

43 

67 

5B 

5B 

43 

43 

43 

ee 

29 

SUM: 

IE 

E8 

F3 

DA 

C5 

AE 

C9 

BB 

: BF 

A59B 

ee 

ee 

ee 

ee 

BB 

07 

1C 

38 

5B 

Ae76 

43 

63 

53 

4B 

47 

43 

43 

BB 

11 











A598 

ee 

ee 

ee 

BB 

BB 

FB 

1C 

BE 

lA 

A078 

1C 

26 

43 

43 

43 

26 

1C 

BB 

4D 

ASBB 

03 

BF 

IF 

IF 

BA 

15 

BA 

ID 

96 

ASAB 

ee 

00 

ee 

ee 

BB 

07 

1C 

38 

SB 











A3B8 

CB 

FB 

F8 

FF 

A8 

SB 

A8 

58 

9F 

A5A8 

BB 

ee 

BB 

ee 

ee 

FB 

1C 

BE 

lA 

SUU: 

8D 

54 

54 

Cl 

BB 

76 

27 

BB 

43 

A3ie 

03 

BF 

IF 

IF 

BA 

15 

BA 

ID 

96 

ASBB 

ee 

ee 

ee 

ee 

ee 

BF 

3C 

78 

C3 











A318 

CB 

FB 

F8 

FF 

A8 

50 

A8 

58 

9F 

A5B8 

BB 

ee 

ee 

BB 

ee 

FC 

IE 

BF 

29 

Ae8e 

7E 

43 

43 

7E 

40 

40 

40 

BB 

42 

A32e 

93 

BF 

IF 

FF 

ID 

17 

17 

IF 

9A 

Asce 

ee 

BB 

ee 

BB 

ee 

07 

1C 

38 

SB 

Ae88 

1C 

26 

43 

43 

4B 

24 

lA 

BB 

51 

A328 

CB 

FB 

F8 

F8 

SB 

A8 

DB 

E8 

SB 

A5C8 

BB 

ee 

ee 

BB 

ee 

FB 

1C 

BE 

lA 

Aese 

7E 

43 

43 

7E 

4C 

46 

43 

BB 

57 

A330 

03 

BF 

IF 

FF 

ID 

17 

17 

IF 

9A 

ASDB 

78 

78 

78 

78 

78 

7B 

7C 

78 

C7 

Ae98 

3E 

43 

40 

3E 

03 

43 

3E 

BB 

83 

A338 

CB 

FB 

F8 

F8 

SB 

A8 

DB 

E8 

50 

A5D8 

ee 

ee 

ee 

BB 

ee 

F8 

IE 

BE 

24 

ABAe 

3F 

BC 

BC 

BC 

BC 

BC 

BC 

BB 

87 

A340 

93 

BF 

IF 

IF 

IF 

ID 

ID 

IF 

C8 

ASEB 

BB 

BB 

ee 

ee 

ee 

7B 

7C 

78 

6F 

AeA8 

43 

43 

43 

43 

43 

43 

3E 

BB 

DB 

A348 

CB 

FB 

F8 

FF 

F8 

B8 

B8 

F8 

07 

A5E8 

ee 

ee 

ee 

BB 

ee 

F8 

IE 

BE 

24 

Aese 

43 

43 

43 

26 

26 

1C 

1C 

BB 

4D 

A35e 

03 

BF 

IF 

IF 

IF 

ID 

10 

IF 

C8 

ASFB 

ee 

ei 

03 

07 

01 

11 

30 

7C 

C9 

AeB8 

43 

43 

43 

SB 

SB 

67 

43 

BB 

29 

A358 

CB 

FB 

F8 

FF 

F8 

B8 

B8 

F8 

07 

A5F8 

BB 

80 

CB 

EB 

88 

88 

BC 

3E 

72 

ABCe 

43 

43 

26 

1C 

26 

43 

43 

ee 

74 

A36e 

83 

BF 

IF 

IF 

BA 

15 

BB 

17 

91 











AeC8 

23 

23 

23 

IE 

BC 

BC 

BC 

BB 

AB 

A368 

CB 

FB 

F8 

FF 

B8 

E8 

E8 

F8 

27 

SUM: 

87 

08 

4A 

6E 

08 

7E 

81 

2E : 

! 7C 

ABDe 

7F 

03 

06 

1C 

30 

60 

7F 

BB 

B3 

A37e 

03 

BF 

IF 

IF 

BA 

15 

BB 

17 

91 











AeD8 

ee 

BB 

ee 

BB 

ee 

18 

18 

BB 

SB 

A378 

CB 

FB 

F8 

FF 

B8 

E8 

E8 

F8 

27 

A6ee 

3C 

3C 

3C 

3C 

3C 

1C 

BE 

03 

59 

ABEe 

BB 

ee 

ee 

BB 

BB 

18 

18 

20 

SB 











A6e8 

BF 

BF 

BF 

BF 

BF 

BE 

1C 

FB 

65 

ABE8 

BB 

ee 

ee 

18 

18 

BB 

BB 

BB 

30 

SUM: 

18 

F8 

B8 

A2 

FB 

EC 

C2 

44 

:4C 

A6ie 

78 

78 

78 

78 

78 

38 

1C 

07 

B3 

ABFB 

BB 

18 

18 

BB 

BB 

18 

18 

BB 

60 











A618 

BF 

BF 

BF 

BF 

BF 

BE 

1C 

FB 

65 

AeF8 

BB 

18 

18 

BB 

BB 

18 

18 

20 

80 

A38B 

3F 

7F 

EF 

CF 

BF 

BE 

BB 

ee 

99 

A62e 

78 

78 

78 

78 

78 

38 

1C 

07 

B3 











A388 

FC 

FE 

F6 

FC 

FB 

ee 

ee 

ee 

DC 

A628 

BF 

ee 

ee 

BB 

BF 

BE 

1C 

FB 

38 

SUM: 

43 

5D 

5U 

BB 

24 

CE 

B2 

40 

9C 

A39e 

3F 

7F 

6F 

3F 

BF 

BB 

BB 

ee 

7B 

A63e 

78 

3C 

BF 

00 

78 

78 

3C 

BF 

FE 











A398 

FC 

FE 

F7 

F3 

FB 

70 

ee 

ee 

44 

A638 

ee 

ee 

FE 

IF 

BF 

BF 

IF 

FC 

56 

AIBB 

3E 

43 

43 

43 

43 

43 

3E 

BB 

CB 

ASAB 

3F 

7F 

BF 

3F 

3F 

BB 

ee 

ee 

4B 

A64e 

78 

7F 

78 

78 

78 

38 

1C 

07 

BA 

A1B8 

BC 

1C 

2C 

BC 

BC 

BC 

3F 

BB 

B7 

A3A8 

FC 

FE 

F7 

F3 

FB 

FB 

ee 

ee 

C4 

A648 

BF 

FF 

ee 

BB 

BF 

BE 

1C 

FB 

37 

AllB 

3E 

43 

03 

BE 

38 

60 

7F 

BB 

A9 

ASBB 

IF 

IF 

IF 

BF 

BF 

07 

ee 

ee 

82 

A65e 

78 

78 

78 

78 

78 

78 

78 

78 

CB 

A118 

3E 

43 

03 

3E 

B3 

43 

3E 

BB 

46 

A3B8 

F8 

F8 

F8 

F8 

FB 

EB 

00 

ee 

BB 

A658 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

78 

A12B 

BB 

BE 

16 

26 

7F 

06 

08 

ee 

DB 

A3Ce 

3F 

7F 

6F 

33 

ei 

00 

ee 

ee 

61 

A660 

78 

78 

78 

78 

78 

78 

78 

78 

CB 

A128 

7F 

4B 

7C 

06 

B3 

46 

3C 

BB 

C6 

A3C8 

FC 

FE 

F7 

F3 

FB 

70 

ee 

ee 

44 

A668 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

BF 

78 

A13B 

IE 

2B 

4B 

7E 

43 

43 

3E 

BB 

CB 

ASDB 

3F 

7F 

EF 

CF 

BF 

BE 

ee 

ee 

99 

A67e 

7C 

30 

11 

01 

07 

03 

ei 

ee 

C9 

A138 

7F 

43 

B8 

BC 

18 

18 

18 

BB 

1C 

A3D8 

FC 

FE 

F6 

CC 

80 

BB 

ee 

ee 

3C 

A678 

3E 

BC 

88 

80 

EB 

CB 

80 

ee 

72 

A14B 

3E 

43 

43 

3E 

43 

43 

3E 

BB 

C8 

A3EB 

3F 

7F 

EF 

CF 

BF 

BF 

ee 

ee 

9A 











A148 

3E 

43 

43 

3F 

B3 

06 

3C 

BB 

48 

A3E8 

FC 

FE 

FB 

FC 

FC 

BB 

ee 

ee 

E2 

SUM: 

20 

4E 

76 

70 

5C 

54 

BC 

FI : 

:B1 

A15I 

B2 

21 

21 

02 

21 

21 

B2 

BB 

8A 

A3FB 

IF 

IF 

IF 

IF 

BF 

07 

ee 

ee 

92 











A158 

BB 

BB 

21 

21 

21 

B1 

B1 

B2 

67 

A3F8 

F8 

F8 

F8 

FB 

FB 

EB 

ee 

ee 

A8 

A68e 

ee 

00 

ee 

BB 

BB 

BB 

ee 

BB 

ee 

A16B 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 











A688 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

ee 

ee 

A168 

21 

21 

22 

B4 

22 

21 

21 

BB 

CC 

SUM: 

98 

1C 

A9 

D1 

B6 

C9 

ee 

ee : 

;A5 

A69e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

A17B 

BB 

BB 

B1 

21 

21 

21 

B1 

BB 

65 











A698 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

ee 

A178 

BB 

BB 

B1 

B2 

B4 

IB 

B1 

BB 

18 

A4ee 

03 

BF 

IF 

IF 

IF 

ID 

ID 

IF 

C8 

A6Ae 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 











A4e8 

CB 

FB 

F8 

FF 

F8 

B8 

B8 

F8 

07 

A6A8 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

ee 

SUM: 

87 

5E 

89 

18 

86 

56 

72 

B2 : 

;86 

A41B 

83 

BF 

IF 

IF 

IF 

DD 

DD 

DF 

88 

A6Be 

ee 

ee 

BB 

ee 

ee 

ee 

ee 

ee 

ee 











A418 

CB 

FB 

F8 

FF 

F8 

BB 

BB 

FB 

IB 

A6B8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 











A42e 

03 

BF 

IF 

IF 

ee 

06 

88 

ee 

5E 

A6Ce 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

A188 

BB 

BB 

8F 

48 

48 

48 

8F 

BB i 

t47 

A428 

CB 

FB 

F8 

FF 

ee 

60 

10 

BB 

17 

A6C8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

A19B 

4B 

4B 

7E 

43 

48 

48 

7E 

BB : 

:45 

A43e 

BB 

BB 

ee 

08 

98 

2A 

41 

3E 

B9 

A6De 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

A198 

BB 

BB 

SE 

48 

4B 

48 

8E 

BB : 

i42 

A438 

BB 

BB 

BB 

ee 

ee 

ee 

BB 

BB 

ee 

A6D8 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

BB 

AlAI 

B3 

B3 

SF 

48 

48 

48 

SF 

BB : 

:4D 

A44e 

BB 

B8 

ee 

04 

04 

BB 

ee 

ee 

IB 

A6Ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

A1A 8 

BB 

BB 

3E 

48 

7F 

4B 

8E 

BB : 

! 7E 

A448 

BB 

ee 

18 

B2 

BB 

ee 

ee 

ee 

lA 

A6E8 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

ee 

BB 

AIBB 

BE 

IB 

18 

7E 

18 

18 

18 

BB 

B7 

A45e 

38 

7C 

FE 

FE 

FE 

FE 

7C 

38 

60 

A6F0 

00 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

A1B8 

BB 

BB 

8F 

48 

48 

8F 

B3 

8E 

45 

A458 

00 

3C 

7E 

FF 

FF 

FF 

7E 

3C 

71 

A6F8 

00 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

Aid 

4B 

4B 

5E 

63 

43 

48 

48 

BB 

BA 

A46e 

ee 

08 

ee 

04 

04 

BB 

ee 

BB 

18 











A1C8 

BC 

BB 

BC 

BC 

BC 

BC 

BC 

BB 

48 

A468 

08 

BB 

18 

02 

ee 

BB 

ee 

BB 

lA 

SUM: 

ee 

ee 

ee 

BB 

ee 

ee 

ee 

ee : 

BB 

AIDB 

BB 

BB 

B8 

B6 

B6 

B6 

B8 

8C 

68 

A47B 

38 

74 

FE 

FA 

FA 

FE 

7C 

38 

50 











A108 

4B 

4B 

43 

46 

78 

46 

48 

BB 

BA 

A478 

80 

3C 

66 

FD 

FF 

FF 

7E 

3C 

57 

A7BB 

ee 

ee 

ee 

BB 

ee 

BB 

BB 

ee 

BB 

AIBB 

BC 

BC 

BC 

BC 

BC 

BC 

BC 

BB 

54 











A7B8 

ee 

ee 

ee 

BB 

ee 

BB 

ee 

BB 

BB 

A1E8 

BB 

BB 

76 

SB 

SB 

SB 

SB 

BB 

E2 

SUH: 

B9 

75 

55 

62 

34 

F7 

BA 

17 ; 

;E1 

A7ie 

ee 

ee 

ee 

08 

BB 

ee 

ee 

ee 

BB 

AIFB 

BB 

BB 

7E 

43 

43 

48 

48 

BB 

8A 











A718 

ee 

ee 

ee 

BB 

BB 

ee 

ee 

ee 

BB 

A1F8 

BB 

BB 

8E 

48 

48 

48 

SB 

BB 

45 

A48B 

3F 

7F 

6F 

6F 

BF 

BE 

ee 

BB 

B9 

A72e 

ee 

ee 

ee 

BB 

BB 

ee 

BB 

BB 

ee 











A488 

FC 

FE 

F6 

F6 

FB 

70 

BB 

BB 

46 

A728 

ee 

ee 

BB 

BB 

ee 

BB 

ee 

ee 

BB 

SUM: 

EF 

EA 

CB 

B8 

9D 

2B 

13 

7A ! 

!A6 

A49B 

FF 

7F 

BF 

BF 

BF 

BE 

ee 

BB 

B9 

A73e 

ee 

ee 

ee 

BB 

ee 

ee 

ee 

ee 

ee 











A498 

FF 

FE 

FB 

FB 

FB 

70 

BB 

BB 

3D 

A738 

ee 

ee 

ee 

BB 

ee 

ee 

BB 

ee 

BB 

A2BB 

BB 

BB 

7E 

43 

43 

7B 

4B 

4B 

B2 

A4Ae 

3F 

7F 

6F 

8F 

BF 

BE 

ee 

BB 

B9 

A748 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

BB 

A2B8 

BB 

BB 

SF 

43 

43 

3F 

B3 

B8 

BA 

A4A8 

FC 

FE 

F6 

F8 

FB 

70 

BB 

BB 

46 

A748 

ee 

ee 

BB 

ee 

ee 

ee 

ee 

BB 

BB 

A21B 

BB 

BB 

5E 

63 

4B 

4B 

4B 

BB 

81 

A4BB 

ee 

ee 

BB 

ee 

BB 

BB 

ee 

BB 

ee 

A7se 

BB 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

BB 

A218 

BB 

BB 

3E 

4B 

3E 

B3 

7E 

BB 

8D 

A4B8 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

ee 

BB 

A758 

BB 

ee 

ee 

BB 

ee 

ee 

ee 

BB 

ee 

A22B 

18 

18 

7E 

18 

18 

18 

18 

BB 

BE 

A4CB 

BB 

60 

60 

38 

38 

IF 

87 

ee 

4E 

A76e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

ee 

A228 

BB 

BB 

48 

43 

43 

43 

3E 

BB 

4A 

A4C8 

ee 

86 

06 

BC 

1C 

F8 

EB 

BB 

BC 

A768 

BB 

ee 

BB 

BB 

ee 

ee 

BB 

BB 

ee 

A23B 

BB 

BB 

43 

43 

43 

26 

IP 

BB 

BB 

A4De 

ee 

ee 

BB 

BB 

40 

ee 

BB 

ee 

ee 

A770 

BB 

ee 

ee 

ee 

BB 

BB 

ee 

BB 

BB 

A238 

BB 

BB 

5B 

SB 

SB 

SB 

78 

BB 

E2 

A4D8 

BB 

18 

08 

1C 

24 

84 

ee 

BB 

64 

A778 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BB 

BB 

A24B 

BB 

BB 

63 

16 

BC 

16 

68 

BB 

FE 

A4Ee 

FF 

89 

A4 

A4 

A4 

A4 

A4 

FF 

BB 











A248 

BB 

BB 

43 

43 

43 

SF 

B8 

3E :49 

A4E8 

FF 

81 

F3 

E7 

CF 

9F 

81 

FF 

48 

SUM: 

ee 

ee 

BB 

BB 

ee 

BB 

BB 

ee ! 

BB 

A2SB 

BB 

BB 

7F 

B6 

1C 

3B 

7F 

BB : 

:SB 

A4Fe 

FF 

EB 

FF 

FF 

FC 

FC 

FC 

FF 

DB 











A258 

3E 

43 

4B 

3E 

B3 

43 

3E 

BB ! 

!88 

A4F8 

FF 

07 

EF 

IF 

3F 

3F 

3F 

FF 

DB 

A78e 

ee 

ee 

BB 

BB 

ee 

BB 

ee 

BB : 

BB 

A26B 

BB 

BB 

3E 

43 

4B 

43 

SE 

BB ! 

:42 











A788 

BB 

BB 

ee 

ee 

ee 

BB 

BB 

BB : 

BB 

A268 

BB 

BB 

SE 

43 

43 

43 

3E 

BB : 

:45 

SUH: 

70 

E6 

BC 

CA 

23 

13 

47 

FC ; 

:55 

A79e 

ee 

BB 

BB 

ee 

ee 

BB 

BB 

BB : 

BB 

A27B 

BB 

BB 

SE 

63 

4B 

4B 

4B 

BB ! 

:81 











A798 

ee 

BB 

BB 

BB 

BB 

BB 

ee 

BB : 

BB 

A278 

BB 

BB 

3E 

43 

7F 

4B 

3E 

BB : 

:7E 

ASBB 

BB 

BB 

80 

80 

80 

80 

ee 

ee 

BB 

A7Ae 

ee 

ee 

BB 

ee 

ee 

BB 

BB 

ee : 

BB 











ASBB 

BB 

BB 

CB 

CB 

CB 

CB 

BB 

BB 

ee 

A7A8 

ee 

BB 

BB 

ee 

ee 

ee 

BB 

BB : 

BB 

SUB: 

58 

5B 

35 

EB 

AD 

AA 

B6 

81 : 

!AF 

ASie 

ee 

BB 

EB 

EB 

EB 

EB 

ee 

BB 

80 

A7BB 

BB 

BB 

BB 

BB 

ee 

ee 

BB 

BB : 

BB 











A518 

BB 

BB 

FB 

FB 

FB 

FB 

BB 

BB 

CB 

A7B8 

BB 

BB 

BB 

BB 

ee 

ee 

BB 

BB : 

9 % 

A28B 

3E 

43 

43 

43 

43 

43 

3E 

BB : 

:CB 

A52B 

ee 

BB 

F8 

F8 

F8 

F8 

ee 

BB 

EB 

A7CB 

BB 

BB 

ee 

ee 

BB 

BB 

BB 

BB : 

BB 

A288 

0 C 

1C 

2C 

BC 

BC 

BC 

3F 

BB : 

;B7 

A528 

BB 

BB 

FC 

FC 

FC 

FC 

BB 

ee 

FB 

A7C8 

ee 

BB 

ee 

ee 

ee 

BB 

BB 

BB : 

BB 

A29B 

3E 

43 

63 

BE 

38 

6B 

7F 

BB : 

!A9 

AS3B 

ee 

BB 

FE 

FE 

FE 

FE 

ee 

ee 

F8 

A7De 

BB 

BB 

BB 

ee 

BB 

BB 

ee 

BB : 

ee 

A288 

3E 

43 

B3 

3E 

B3 

43 

3E 

BB ; 

:46 

A538 

BB 

ee 

FF 

FF 

FF 

FF 

BB 

ee 

FC 

A7D8 

ee 

BB 

BB 

ee 

BB 

ee 

BB 

BB : 

BB 


2|=#*l^fl5«ltA^ (ffi) ffl§^8670967-601^ 


95 

































A7EI 










AA88 










88 

DC 

54 

54 

54 

54 

54 

DC : 

5C 

A7E8 




















88 

88 

88 

88 

88 

88 

88 

88 : 

88 

A7FI 

• • 

88 

88 

88 

88 

88 

88 

88 

88 

AA98 










88 

88 

88 

88 

00 

88 

88 

88 : 

88 

A7Fa 

• • 

88 

88 

88 

88 

88 

88 

88 

88 

AAA8 

88 

88 

88 

88 

88 

88 

08 

88 

88 AD68 

88 

88 

A A 

88 

A A 

08 

88 

A A 

88 

A A 

88 

A A 

88 : 
A A < 

88 

‘ A A 

SUM: 










A A A o 

AAB8 

88 

88 

88 

88 

88 

88 

88 

88 

88 AD78 

88 

f f 

77 

V i 

15 

IS 

9 W 

75 

f 1 

15 

w V 

15 

V w 

77 : 

► f w 

;B7 











AAB8 

88 

88 

88 

88 

88 

88 
A A 

88 

88 

A A 

88 AD78 

88 

77 

55 

55 

55 

55 

55 

77 ! 

:87 

A8I8 










A AW 

AAC8 

88 

88 

88 

88 

88 

ti f 

88 

88 

V f 
88 

88 SUM: 

88 

E7 

D8 

D8 

3C 

C4 

C3 

E7 ! 

:S1 

A81I 

88 

88 

88 

88 

88 

88 

88 

08 

88 

AA08 

88 

88 

88 

88 

88 

88 

88 

88 

88 










A818 

88 

88 

88 

88 

88 

88 

88 

88 

88 

AAD8 










88 

88 

88 

80 

88 

88 

88 

88 

88 

A82I 










AAE8 

88 

88 

88 

88 

88 

88 

88 

88 

88 AD88 

8F 

8F 

8F 

8F 

8F 

8F 

8F 

8F 

78 

A828 










AAE8 

88 

88 

88 

88 

88 

88 

88 

88 

88 AD98 

88 

88 

88 

88 

88 

87 

1C 

38 

SB 

A83I 










AAF8 

88 

88 

88 

88 

88 

88 

88 

88 

88 AD98 






F8 

1C 

8E 

lA 

A838 

88 

88 

88 

88 

88 

88 

88 

88 

88 

AAF8 















87 

1C 

38 

SB 

A84t 

88 

88 

88 

88 

80 

80 

88 

88 

88 










ADAS 

88 

88 

88 

88 

88 

F8 

1C 

8E 

lA 

A848 

88 

88 

88 

88 

88 

88 

88 

88 

88 

SUM: 










88 

88 

88 

88 

88 

8F 

3C 

78 

C3 

A85I 

88 

88 

88 

88 

08 

88 

80 

88 

08 










ADB8 

88 

88 

88 

88 

88 

FC 

IE 

8F 

29 

A858 

88 

88 

88 

88 

88 

88 

88 

88 

88 

AB88 

88 

88 

88 

88 

IF 

IF 

IF 

IF 

7C ADC8 






87 

1C 

38 

5B 

A86I 

88 

88 

88 

88 

08 

88 

88 

80 

88 

AB88 





F8 

F8 

F8 

F8 

E8 ADCS 






F8 

1C 

8E 

lA 

A868 

88 

88 

88 

88 

88 

08 

88 

88 

88 

AB18 

88 

88 

88 

88 

IF 

IF 

IF 

IF 

7C ADD8 

78 

78 

78 

78 

78 

7B 

7C 

78 

C7 

A87e 

88 

88 

88 

88 

88 

08 

88 

88 

80 

AB18 





F8 

F8 

F8 

F8 

E8 ADDS 






F8 

IE 

8E 

24 

A878 

08 

88 

88 

88 

88 

88 

88 

88 

88 

AB28 

88 

88 

88 

88 

IF 

V O 

17 

17 

IF 

6C ADE8 

88 

88 

88 

88 

88 

7B 

7C 

78 

6F 

SUM: 

88 

88 

88 

88 

00 

88 

88 

08 

:88 

A B 2 8 
AB38 

88 

88 

88 

88 

r o 

IF 

F 8 
17 

F 8 
17 

F 8 
IF 

E8 ADE8 

6C ADF8 

88 

88 

88 

88 

88 

F8 

IE 

8E 

24 











AB38 





F8 

F8 

F8 

F8 

E8 ADF8 










A888 

88 

80 

88 

88 

08 

08 

08 

08 

88 

AB48 

88 

88 

88 

88 

IF 

ID 

ID 

IF 

78 - 










A888 

88 

88 

88 

88 

88 

88 

80 

00 

88 

AB48 





F8 

B8. 

B8 

F8 

68 SUM: 

87 

87 

87 

87 

87 

ES 

45 

74 

:41 

A898 

80 

08 

80 

88 

00 

88 

08 

88 

00 

ABS8 

88 

88 

88 

88 

IF 

ID 

ID 

IF 

78 










A898 

88 

88 

88 

88 

88 

80 

80 

88 

88 

ABS8 

88 

88 

80 

08 

F8 

B8 

B8 

F8 

68 AE88 

3C 

3C 

3C 

3C 

3C 

1C 

8E 

83 

59 

A8Ae 

88 

88 

80 

88 

00 

08 

00 

80 

00 

AB68 

88 

88 

88 

88 

IF 

IF 

IF 

IF 

7C AE88 

8F 

8F 

8F 

0F 

8F 

0E 

1C 

F8 

65 

A8A8 

88 

88 

88 

88 

80 

88 

88 

80 

08 

AB68 





F8 

E8 

E8 

F8 

C8 AE18 

78 

78 

78 

78 

78 

38 

1C 

87 

B3 

A8B8 

88 

88 

88 

08 

88 

88 

08 

80 

88 

AB78 

88 

88 

88 

08 

IF 

IF 

IF 

IF 

7C AE18 

8F 

8F 

8F 

OF 

8F 

8E 

1C 

F8 

65 

A8B8 

88 

88 

88 

80 

80 

08 

88 

88 

88 

AB78 

08 

88 

08 

88 

F8 

E8 

E8 

F8 

C8 AE28 

78 

78 

78 

78 

78 

38 

1C 

87 

B3 

A8C8 

08 

80 

00 

00 

00 

08 

00 

00 

88 










AE28 

8F 

88 

88 

08 

8F 

8E 

1C 

F0 

38 

A8C8 

88 

88 

88 

88 

00 

08 

88 

88 

88 

SUM: 

88 

80 

88 

08 

B8 

84 

84 

B8 

:78 AE38 

78 

3C 

8F 

08 

78 

78 

3C 

0F 

FE 

A8D8 

88 

88 

88 

88 

88 

08 

88 

88 

88 










AE38 

00 

08 

FE 

IF 

8F 

8F 

IF 

FC 

56 

A8D8 

88 

88 

88 

88 

88 

00 

88 

88 

88 

AB88 

88 

88 

88 

8F 

8F 

8E 

0C 

IE 

56 AE48 

78 

7F 

78 

78 

78 

38 

1C 

87 

BA 

A8E8 

88 

80 

88 

88 

80 

80 

00 

88 

88 

AB88 




F8 

F8 

38 

88 

80 

18 AE48 

0F 

FF 

88 

08 

8F 

8E 

1C 

F8 

37 

A8E8 

08 

00 

88 

88 

00 

80 

80 

88 

00 

AB98 

80 

88 

88 

8F 

IF 

OC 

08 

80 

3A AE58 

78 

78 

78 

78 

78 

78 

78 

78 

C8 

A8FI 

88 

08 

88 

80 

80 

88 

00 

00 

80 

AB98 

08 

88 

08 

F8 

F0 

70 

30 

78 

F8 AE58 

8F 

8F 

OF 

OF 

8F 

OF 

8F 

8F 

78 

A8F8 

88 

88 

80 

88 

88 

88 

08 

80 

88 

ABA8 

00 

88 

C8 

FF 

FF 

80 

88 

00 

BE AE66 

78 

78 

78 

78 

78 

78 

78 

78 

C6 













88 

8 8 

F 8 

F 8 

F0 

30 

7 0 

78 AE68 

OF 

8F 

8F 

OF 

8F 

8F 

8F 

8F 

78 

SUM: 










ABB0 

88 

88 

88 

OF 

0F 

07 

81 

03 

29 AE78 

08 

00 

88 

00 

88 

88 

88 

88 

80 











ABB8 

08 

88 

00 

98 

10 

E8 

80 

88 

88 AE78 

08 

88 

88 

08 

88 

88 

00 

80 

88 

A988 

3E 

43 

43 

4 3 

4 3 

4 3 

3E 

88 

CB 

ABC8 

88 

88 

88 

8F 

1F 

0C 

0 0 

9 0 

a » _ 










A9I8 

8C 

1C 

2C 

8C 

8C 

8C 

3F 

80 

B7 

ABC8 

88 

88 

88 

F8 

FO 

70 

38 

78 

F8 SUM: 

66 

12 

DD 

EF 

75 

91 

SB 

FI 

:78 

A9ie 

3E 

43 

03 

8E 

38 

68 

7F 

00 

A9 

ABD8 

08 

88 

80 

0F 

8F 

9E 

OC 

IE 

56 










A918 

3E 

43 

03 

3E 

83 

43 

3E 

88 

46 

ABD8 

88 

00 

88 

F8 

F8 

30 

88 

00 

18 AE80 

80 

00 

00 

00 

08 

00 

00 

08 

60 

A92e 

06 

8E 

16 

26 

7F 

06 

06 

80 

DB 

ABE0 

00 

88 

08 

OF 

OF 

8P 

8C 

0E 

47 AE88 

00 

00 

00 

00 

08 

00 

00 

88 

08 

A928 

7F 

40 

7C 

06 

03 

46 

3C 

88 

C6 

ABE8 

80 

88 

83 

FF 

FF 

88 

08 

00 

81 AE98 

08 

00 

88 

00 

00 

00 

08 

00 

08 

A938 

IE 

20 

40 

7E 

43 

43 

3E 

00 

CO 

ABF0 

00 

80 

80 

19 

88 

07 

91 

01 

2A AE98 

09 

88 

80 

00 

80 

00 

00 

00 

80 

A938 

7F 

43 

06 

0C 

18 

18 

18 

00 

1C 

ABF8 

80 

88 

88 

F8 

F0 

E0 

88 

C0 

00 AEAO 

00 

00 

00 

08 

00 

00 

00 

00 

90 

A948 

3E 

43 

43 

3E 

43 

43 

3E 

00 

C6 











00 

08 

00 

00 

00 

00 

00 

00 

00 

A948 

3E 

43 

43 

3F 

03 

06 

3C 

00 

48 

SUM: 

88 

88 

C3 

A9 

48 

41 

B6 

EE 

:91 AEB6 

00 

00 

00 

00 

00 

00 

08 

80 

00 

A9Se 

7E 

63 

63 

7E 

63 

63 

7E 

00 

06 










AEB8 

00 

80 

00 

00 

80 

00 

00 

08 

80 

A958 

00 

00 

63 

63 

63 

3F 

03 

3E 

A9 

AC88 

88 

88 

88 

88 

IF 

ID 

ID 

IF 

78 AEC8 

00 

00 

00 

00 

00 

89 

08 

08 

00 

A98e 

00 

00 

00 

00 

00 

00 

00 

00 

00 

AC88 

80 

80 

08 

00 

F8 

B8 

Bd 

F8 

60 AEC8 

88 

00 

00 

00 

00 

08 

00 

00 

88 

A968 

63 

63 

66 

7C 

66 

63 

63 

00 

D4 

AC10 

00 

80 

00 

00 

IF 

ID 

ID 

IF 

78 AED0 

08 

00 

80 

00 

80 

88 

00 

00 

00 

A970 

00 

00 

3P 

63 

63 

63 

3F 

00 

A7 

AC18 

00 

00 

00 

0 0 

F8 

B8 

B8 

F8 

69 AED8 

00 

80 

80 

00 

00 

08 

00 

00 

00 

A978 

00 

00 

7F 

06 

1C 

30 

7F 

00 

50 

AC20 

00 

00 

80 

00 

00 

00 

00 

08 

00 AEEO 

08 

00 

80 

00 

00 

00 

00 

80 

06 











A C 2 8 

00 


00 

08 

00 

00 

00 

08 

0 0 A E £ 8 

00 

80 

00 

08 

00 

00 

00 

00 

00 

SUM: 

45 

E2 

BD 

94 

58 

7A 

EE 

3E : 

;76 

AC30 

00 

00 

00 

08 

08 

08 

00 

00 

18 AEF0 

80 

00 

88 

08 

00 

88 

08 

00 

80 











AC38 

00 

00 

00 

00 

00 

00 

00 

00 

00 AEF8 

80 

80 

80 

08 

88 

08 

08 

00 

00 

A980 

08 

00 

00 

00 

00 

00 

00 

00 

00 

AC40 

38 

7C 

FE 

FE 

FE 

FE 

7C 

38 

aa ^ __ 










A988 

00 

00 

00 

00 

08 

00 

00 

00 

00 

AC48 

00 

3C 

7E 

FF 

FF 

FF 

7E 

3C 

71 SUM: 

88 

08 

00 

00 

09 

00 

80 

00 ! 

:06 

Ag90 

00 

00 

00 

00 

00 

00 

00 

00 

00 

AC58 

00 

08 

00 

04 

04 

08 

00 

00 

10 










A998 

80 

00 

00 

00 

00 

00 

00 

00 

00 

AC58 

00 

00 

18 

82 

80 

80 

00 

00 

lA AF68 

00 

00 

09 

90 

00 

00 

00 

00 

00 

A9A9 

80 

00 

00 

00 

00 

00 

00 

00 

00 

AC60 

38 

7C 

FE 

FE 

FE 

FE 

7C 

38 

60 AF88 

08 

88 

00 

00 

88 

08 

00 

88 

00 

A9A8 

00 

00 

80 

00 

00 

00 

00 

00 

00 

AC68 

00 

3C 

7E 

FF 

FF 

FF 

7E 

3C 

71 AF10 

00 

00 

08 

00 

00 

08 

00 

80 

00 

A9B0 

00 

00 

00 

00 

08 

00 

00 

00 

00 

AC70 

38 

74 

FE 

FA 

FA 

FE 

7C 

38 

50 AF18 

00 

88 

00 

00 

00 

00 

00 

00 

08 

A9B8 

00 

00 

00 

00 

08 

00 

00 

00 

00 

AC78 

00 

3C 

66 

FD 

FF 

FF 

7E 

3C 

57 AF20 

00 

80 

08 

09 

00 

08 

00 

00 

00 

A9C9 

00 

00 

80 

00 

00 

00 

00 

80 

00 











00 

00 

00 

08 

88 

00 

00 

00 

00 

A9C8 

00 

00 

00 

00 

00 

00 

80 

00 

00 

SUM: 

A8 

28 

74 

FF 

2D 

A9 

98 

8A : 

i3B AF30 

00 

80 

80 

00 

08 

08 

80 

00 

00 

A9D0 

00 

00 

00 

00 

80 

00 

00 

80 

00 










AF38 

00 

08 

00 

00 

80 

90 

00 

00 

06 

A9D8 

08 

00 

80 

00 

00 

00 

08 

00 

00 

AC80 

00 

00 

00 

0F 

0F 

0E 

OC 

IE 

56 AF40 

00 

00 

00 

08 

00 

00 

00 

00 

00 

A9E9 

08 

00 

00 

00 

00 

00 

00 

08 

00 

AC88 

00 

00 

00 

F0 

F0 

70 

30 

78 

F8 AF48 

00 

08 

08 

00 

00 

00 

00 

06 

00 

A9E8 

00 

00 

00 

00 

08 

00 

00 

08 

08 

AC90 

00 

00 

00 

0F 

0F 

0E 

0C 

IE 

56 AF50 

00 

00 

00 

00 

00 

00 

08 

08 

00 

A9F0 

00 

00 

00 

00 

00 

00 

08 

00 

00 

AC98 

00 

00 

00 

F0 

F0 

70 

30 

78 

F8 AF58 

08 

00 

00 

00 

00 

00 

00 

06 

00 

A9F8 

00 

00 

00 

00 

00 

00 

00 

00 

08 

ACA0 

00 

00 

90 

OF 

OF 

0E 

OC 

IE 

56 AF60 

00 

90 

80 

00 

00 

00 

00 

06 

00 











A C A 8 

00 

0 0 

0 8 

F0 

F0 

70 

30 

78 

F8 AF68 

88 

00 

00 

00 

00 

08 

00 

06 

00 

SUM: 

80 

80 

08 

08 

08 

00 

00 

80 : 

:08 

ACB0 

00 

00 

90 

88 

00 

00 

00 

00 

00 AF70 

00 

00 

00 

00 

00 

80 

00 

06 

08 











ACB8 

00 

08 

08 

00 

00 

80 

00 

00 

00 AF78 

00 

08 

00 

00 

00 

00 

00 

06 

00 

AA90 

00 

00 

00 

00 

00 

00 

00 

00 

80 

ACC0 

00 

IF 

17 

0D 

07 

00 

00 

0 0 

_ 










AA08 

80 

00 

80 

00 

08 

00 

80 

00 

88 

ACCS 

80 

F8 

58 

F0 

E0 

08 

00 

00 

20 SUM: 

00 

00 

00 

08 

00 

00 

00 

06 ; 

; 00 

AA10 

80 

08 

80 

00 

00 

00 

08 

08 

00 

ACD0 

00 

00 

8E 

35 

5A 

6fi 

37 

00 

3F 










AA18 

00 

80 

00 

80 

88 

88 

88 

88 

88 

ACD8 

00 

C0 

60 

AO 

CO 

30 

60 

00 

10 AF80 

08 

00 

00 

00 

00 

80 

00 

06 

00 

AA20 

00 

88 

08 

08 

88 

08 

80 

08 

88 

ACE0 

FF 

89 

A4 

A4 

A4 

A4 

A4 

FF 

BB AF88 

80 

00 

00 

00 

00 

00 

00 

00 

00 

AA28 

00 

88 

80 

88 

80 

00 

00 

88 

88 

ACES 

FP 

81 

F3 

E7 

CF 

9F 

81 

FF 

48 AF90 

00 

00 

00 

00 

00 

80 

00 

06 

08 

AA30 

08 

08 

08 

08 

88 

00 

00 

88 

00 

ACF0 

PF 

FF 

FF 

FF 

FF 

FF 

PF 

FF 

F8 AF98 

00 

00 

08 

00 

09 

00 

00 

06 

00 

AA38 

88 

00 

88 

80 

00 

80 

08 

88 

80 

ACF8 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F8 AFA0 

00 

00 

00 

00 

00 

00 

00 

06 

00 

AA49 

00 

80 

80 

00 

00 

00 

08 

88 

88 











00 

90 

00 

00 

00 

00 

00 

06 

00 

AA48 

00 

88 

80 

00 

00 

00 

80 

88 

88 

SUM: 

FC 

DF 

72 

58 

6F 

56 

6E 

BE : 

96 AFB0 

00 

00 

00 

00 

80 

00 

00 

06 

60 

AA50 

08 

00 

80 

08 

00 

00 

88 

08 

88 










AFB8 

00 

80 

09 

00 

00 

00 

00 

06 

00 

AA58 

3E 

43 

40 

3E 

83 

43 

3E 

88 

83 

AO00 

00 

00 

80 

80 

80 

80 

00 

00 

00 AFC0 

80 

00 

00 

00 

00 

08 

00 

06 

00 

AA60 

88 

08 

3E 

43 

40 

43 

3E 

88 

42 

ADOS 

00 

00 

C0 

C0 

CO 

CO 

00 

80 

00 AFC8 

00 

00 

80 

08 

00 

80 

00 

06 

00 

AA88 

88 

00 

3E 

43 

43 

43 

3E 

88 

45 

AD10 

00 

00 

EO 

E0 

E0 

EO 

80 

00 

88 AFD0 

80 

00 

90 

00 

00 

00 

00 

00 

00 

AA70 

00 

80 

5E 

63 

48 

40 

48 

88 

81 

AD18 

00 

00 

F0 

F0 

FO 

FO 

00 

00 

CO AFD8 

00 

88 

00 

00 

00 

08 

80 

06 

00 

AA78 

88 

88 

3E 

43 

7F 

40 

3E 

88 

7E 

AD20 

08 

00 

F8 

F8 

F8 

F8 

80 

08 

E8 AFE0 

00 

00 

00 

09 

00 

80 

00 

06 

00 











AD28 

08 

88 

FC 

FC 

FC 

FC 

88 

88 

FO AFE8 

00 

00 

00 

80 

00 

08 

80 

00 

00 

SUM: 

3E 

43 

58 

6A 

45 

49 

38 

88 

:89 

AD38 

88 

00 

FE 

FE 

FE 

FE 

88 

80 

F8 AFF0 

98 

08 

00 

00 

80 

80 

09 

06 

00 











AD38 

00 

89 

FF 

FF 

FF 

FF 

80 

00 

FC AFF8 

80 

00 

80 

00 

00 

00 

00 

00 

08 

AA80 

80 

88 

00 

08 

08 

80 

08 

88 

:88 

AD40 

00 

10 

11 

11 

ID 

05 

05 

ID 

83 - 













96 OhI MZ 1986.10. 


R- (15) m.m 







































































SUM: 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee : 

; ee 

Beee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bees 

1C 

26 

48 

48 

7P 

48 

48 

ee 

CD 

Bei e 

7E 

4S 

48 

7E 

48 

48 

7E 

ee 

86 

Beis 

IE 

2S 

4e 

4e 

48 

28 

IE 

ee 

42 

Be2e 

7C 

46 

48 

48 

48 

46 

7C 

ee 

4D 

Be28 

7P 

4e 

4e 

7E 

48 

48 

7P 

ee 

7C 

Bese 

7P 

4e 

4e 

7E 

48 

48 

48 

ee 

3D 

Bess 

IE 

2S 

4e 

4P 

48 

28 

IE 

ee 

S4 

Be4e 

4S 

48 

48 

7P 

48 

48 

48 

ee 

11 

Be4S 

ec 

ec 

ec 

ec 

ec 

ec 

ec 

ee 

S4 

Bese 

ee 

e6 

e6 

e6 

86 

66 

sc 

ee 

ce 

Bess 

4S 

48 

46 

78 

46 

48 

48 

ee 

le 

Beee 

4e 

4e 

4e 

48 

48 

48 

7P 

ee 

pp 

Bees 

4S 

67 

SB 

SB 

48 

48 

48 

ee 

29 

Be7e 

48 

68 

ss 

4B 

47 

48 

48 

ee 

11 

Be7S 

1C 

26 

48 

48 

48 

26 

1C 

ee 

4D 

SUM: 

CA 

SD 

9S 

Cl 

Be 

76 

27 

ee : 

Kk 

Bese 

7E 

4S 

48 

7E 

48 

48 

48 

ee 

42 

Bess 

1C 

26 

48 

48 

4B 

24 

lA 

ee 

SI 

Bese 

7E 

48 

48 

7E 

4C 

46 

48 

ee 

S7 

Bees 

SE 

4S 

4e 

SE 

es 

48 

SE 

ee 

83 

BeAe 

8P 

ec 

ec 

ec 

ec 

ec 

ec 

ee 

87 

BeAS 

4S 

48 

48 

48 

48 

48 

SE 

ee 

De 

BeBe 

4S 

48 

48 

26 

26 

1C 

1C 

ee 

4D 

BeBS 

48 

48 

48 

SB 

SB 

67 

48 

ee 

29 

Beee 

4S 

48 

26 

1C 

26 

48 

48 

ee 

74 

Bees 

2S 

28 

28 

IE 

ec 

ec 

ec 

ee 

AB 

Beoe 

7P 

es 

e6 

1C 

se 

68 

7P 

ee 

B3 

Beos 

ee 

ee 

ee 

ee 

ee 

18 

18 

ee 

38 

Bese 

ee 

ee 

ee 

ee 

ee 

IS 

18 

28 

se 

BeES 

ee 

ee 

ee 

18 

18 

ee 

ee 

ee 

se 

Bepe 

ee 

18 

18 

ee 

ee 

18 

18 

ee 

68 

BSPS 

ee 

18 

IS 

ee 

ee 

18 

18 

28 

88 

SUM: 

48 

SD 

SD 

BB 

24 

CE 

B2 

48 : 

:9C 

Biee 

SE 

48 

48 

48 

48 

48 

SE 

ee 

CB 

Bies 

ec 

1C 

2C 

ec 

ec 

ec 

8P 

ee 

B7 

Bi le 

SE 

48 

es 

eE 

88 

68 

7P 

ee 

A9 

BUS 

SE 

48 

es 

8E 

es 

48 

SE 

ee 

4 6 

Bi2e 

ee 

eE 

16 

26 

7P 

86 

86 

ee 

DB 

B128 

7P 

4e 

7C 

86 

es 

46 

8C 

ee 

C6 

Bise 

IE 

2 e 

4e 

7E 

48 

48 

8E 

ee 

ce 

BISS 

7P 

48 

e6 

ec 

IS 

18 

18 

ee 

1C 

Bue 

SE 

48 

48 

SE 

48 

48 

8E 

ee 

C6 

BUS 

SE 

48 

48 

8P 

es 

86 

8C 

ee 

48 

Bise 

e2 

21 

21 

82 

21 

21 

82 

ee 

8A 

BISS 

ee 

ee 

21 

21 

21 

ei 

ei 

82 

67 

Biee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bies 

21 

21 

22 

84 

22 

21 

21 

ee 

cc 

Bi7e 

ee 

ee 

ei 

21 

21 

21 

ei 

ee 

6S 

B17S 

ee 

ee 

ei 

82 

84 

le 

ei 

ee 

18 

SUM: 

87 

SE 

89 

18 

86 

S6 

72 

82 : 

:36 

Bise 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BISS 

ee 

ee 

SP 

48 

48 

48 

8P 

ee 

47 

Biee 

4e 

4e 

7E 

48 

48 

48 

7E 

ee 

4S 

Bies 

ee 

ee 

SE 

48 

48 

48 

SE 

ee 

42 

BiAe 

es 

es 

8P 

48 

48 

48 

8P 

ee 

4D 

BIAS 

ee 

ee 

SE 

48 

7P 

48 

SE 

ee 

7E 

BiBe 

eE 

IB 

IS 

7E 

IS 

IS 

18 

ee 

87 

BIBS 

ee 

ee 

8P 

48 

48 

8P 

es 

3E 

4S 

Bice 

4e 

4e 

SE 

68 

48 

48 

48 

ee 

eA 

B1C8 

ec 

ee 

ec 

ec 

ec 

ec 

ec 

ee 

48 

BiDe 

ee 

ee 

e6 

86 

86 

86 

86 

3C 

68 

BIDS 

4e 

4e 

48 

46 

78 

46 

48 

ee 

eA 

BiEe 

ec 

ec 

ec 

ec 

ec 

ec 

ec 

ee 

S4 

BIES 

ee 

ee 

76 

SB 

SB 

SB 

SB 

ee 

E2 

Bipe 

ee 

ee 

7E 

48 

48 

48 

48 

ee 

8A 

BIPS 

ee 

ee 

SE 

48 

48 

48 

SE 

ee 

4S 

SUM: 

EP 

EA 

ce 

BS 

9D 

2B 

18 

7A ; 

: A6 

B2ee 

ee 

ee 

7E 

48 

48 

7E 

48 

48 

82 

B2es 

ee 

ee 

8P 

48 

48 

SP 

83 

83 

eA 

B2ie 

ee 

ee 

SE 

68 

48 

48 

48 

ee 

81 

B21S 

ee 

ee 

SE 

48 

8E 

es 

7E 

ee 

3D 

B22e 

18 

18 

7E 

18 

18 

18 

18 

ee 

eE 

B22S 

ee 

ee 

48 

48 

48 

48 

3E 

ee 

4A 

B2Se 

ee 

ee 

48 

48 

48 

26 

1C 

ee 

eB 

B2SS 

ee 

ee 

SB 

SB 

SB 

SB 

76 

ee 

E2 

B24e 

ee 

ee 

68 

16 

ec 

16 

63 

ee 

PE 

B24S 

ee 

ee 

48 

48 

48 

8P 

83 

3E 

49 

B2Se 

ee 

ee 

7P 

86 

1C 

se 

7P 

ee 

se 

B2SS 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B26e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2es 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B27e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B27S 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

SUM: 

18 

18 

DD 

81 

68 

61 

CE 

81 

:A6 

B2Se 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2SS 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2es 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2Ae 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2AS 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 


B2Be 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2B8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2Ce 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2C8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B2De 

ee 

ee 

ee 

7E 

ee 

ee 

ee 

ee 

7E 

B2D8 

ee 

ee 

7E 

ee 

7E 

ee 

ee 

ee 

PC 

B2Ee 

7C 

68 

68 

68 

68 

68 

7C 

ee 

D8 

B2E8 

3E 

86 

86 

86 

86 

86 

3E 

ee 

9A 

B2Pe 

ee 

83 

86 

ec 

18 

38 

68 

ee 

BD 

B2P8 

ee 

63 

36 

1C 

1C 

36 

63 

ee 

6A 

SUM: 

BA 

cc 

28 

ec 

18 

cc 

7D 

ee : 

: 13 

Bsee 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

Bses 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B3ie 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B318 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B32e 

83 

ep 

IP 

pp 

ee 

ee 

ee 

ee 

38 

B328 

ce 

P8 

P8 

P8 

ee 

ee 

ee 

ee 

Ae 

B33e 

83 

ep 

IP 

pp 

ee 

ee 

ee 

ee 

38 

B338 

ce 

pe 

P8 

P8 

ee 

ee 

ee 

ee 

Ae 

B34e 

83 

ep 

IP 

IP 

ee. 

ee 

ee 

ee 

se 

B348 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B3Se 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B3S8 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B36e 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B368 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B37e 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B378 

ce 

pe 

PS 

pp 

ee 

ee 

ee 

ee 

A7 

SUM: 

18 

P8 

B8 

A2 

ee 

ee 

ee 

ee : 

: 6A 

B38e 

ee 

ee 

ee 

ep 

ep 

eE 

ec 

IE 

S6 

B388 

ee 

ee 

ee 

pe 

P8 

se 

ee 

ee 

18 

B39e 

ee 

ee 

ee 

ep 

IP 

ec 

ee 

ee 

3A 

B398 

ee 

ee 

ee 

pe 

pe 

78 

38 

78 

P8 

B3Ae 

ee 

ee 

ce 

pp 

pp 

ee 

ee 

ee 

BE 

B3A8 

ee 

ee 

ee 

pe 

pe 

pe 

se 

79 

78 

B3Be 

ee 

ee 

ee 

8P 

ep 

87 

ei 

83 

29 

B3B8 

ee 

ee 

ee 

98 

le 

Ee 

se 

88 

88 

B3Ce 

ee 

ee 

ee 

ep 

IP 

ec 

ee 

ee 

3A 

B3C8 

ee 

ee 

ee 

P8 

pe. 

79 

38 

78 

P8 

B3De 

ee 

ee 

ee 

ep 

ep 

eE 

ec 

IE 

S6 

B3D8 

ee 

ee 

ee 

P8 

P8 

se 

ee 

ee 

18 

B3Ee 

ee 

ee 

ee 

ep 

ep 

8P 

ec 

eE 

47 

B3E8 

ee 

ee 

83 

pp 

pp 

ee 

ee 

ee 

ei 

B3Pe 

ee 

ee 

ee 

19 

88 

87 

ei 

ei 

2A 

B3P8 

ee 

ee 

ee 

P8 

pe 

Ee 

88 

ce 

ee 

SUM: 

ee 

ee 

C3 

A9 

48 

41 

B6 

EE : 

: 91 

B4ee 

es 

8P 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B4e8 

ce 

pe 

PS 

pp 

ee 

ee 

ee 

ee 

A7 

B4ie 

83 

ep 

IP 

IP 

ee 

ee 

ee 

ee 

se 

B418 

ce 

pe 

P8 

pp 

ee 

ee 

ee 

ee 

A7 

B42e 

83 

8P 

IP 

IP 

IP 

IP 

IP 

IP 

cc 

B428 

ce 

pe 

PS 

pp 

P8 

P8 

P8 

P8 

87 

B43e 

ee 

ee 

ee 

88 

88 

2A 

41 

3E 

B9 

B438 

EP 

EP 

EP 

ee 

PE 

PE 

PE 

ee 

C7 

B44e 

38 

7C 

PE 

PE 

PE 

PE 

7C 

38 

68 

B448 

ee 

3C 

7E 

pp 

PP 

pp 

7E 

3C 

71 

B4Se 

ee 

es 

ee 

84 

84 

ee 

ee 

ee 

le 

B4S8 

ee 

ee 

18 

82 

ee 

ee 

ee 

ee 

lA 

B46e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B468 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B47e 

38 

7C 

PE 

PE 

PE 

PE 

7C 

38 

68 

B478 

ee 

3C 

7E 

pp 

pp 

pp 

7E 

3C 

71 

SUM: 

A8 

64 

44 

62 

IB 

39 

4A 

3D : 

:8D 

B48e 

ee 

ee 

ee 

8P 

ep 

eE 

ec 

IE 

S6 

B488 

ee 

ee 

ee 

pe 

pe 

79 

38 

78 

P8 

B49e 

ee 

ee 

ee 

8P 

ep 

eE 

ec 

IE 

S6 

B498 

ee 

ee 

ee 

pe 

pe 

78 

se 

78 

P8 

B4Ae 

ee 

ee 

ee 

ep 

ep 

eE 

ec 

IE 

S6 

B4A8 

ee 

ee 

ee 

pe 

pe 

79 

se 

78 

P8 

B4Be 

pp 

PC 

P8 

Ee 

ce 

ce 

88 

88 

4B 

B4B8 

pp 

3P 

ep 

97 

83 

83 

ei 

ei 

SC 

B4C8 

pp 

se 

88 

C2 

ce 

Ee 

P8 

PP 

68 

B4C8 

pp 

ei 

A1 

83 

83 

87 

IP 

PP 

CC 

B4De 

pp 

se 

SE 

BS 

DA 

EB 

B7 

PP 

3D 

B4D8 

pp 

Cl 

61 

A1 

Cl 

31 

61 

PP 

14 

B4Ee 

pp 

pp 

pp 

PP 

pp 

PP 

pp 

PP 

P8 

B4E8 

pp 

pp 

pp 

PP 

pp 

PP 

pp 

PP 

P8 

B4Pe 

pp 

Ee 

pp 

PP 

PC 

PC 

PC 

PP 

De 

B4P8 

pp 

87 

EP 

IP 

3P 

3P 

3P 

PP 

De 

SUM: 

P6 

E2 

83 

IB 

S7 

79 

9D 

3B 

: 9E 

Bsee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bses 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bsie 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS18 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS2e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS28 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bsse 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS38 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS4e 

ee 

ID 

11 

11 

ID 

es 

es 

ID 

83 

BS48 

ee 

DC 

S4 

S4 

S4 

S4 

S4 

DC 

sc 

BSse 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSS8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS6e 

ee 

77 

IS 

IS 

7S 

4S 

4S 

77 

17 

BS68 

ee 

77 

ss 

ss 

ss 

ss 

ss 

77 

97 


BS78 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

; ee 

BS78 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

: ee 

SUM: 

ee 

E7 

CP 

CP 

3B 

P3 

P3 

E7 

:8D 

Bsse 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS88 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS9e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BS98 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSAe 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSA8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSBe 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSB8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bsce 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSCS 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSDe 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSD8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSEe 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

BSES 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

Bspe 

ee 

ei 

83 

97 

ei 

11 

38 

7C 

C9 

BSPS 

ee 

se 

ce 

Ee 

88 

88 

ec 

3E 

72 

SUM: 

ee 

81 

C3 

E7 

81 

99 

3C 

BA 

: 3B 

B6ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

8688 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6ie 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B618 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B62e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B628 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

88 

ee 

B63e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B638 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B64e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B648 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Se 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6S8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B66e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B668 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B67e 

7C 

38 

11 

ei 

97 

83 

ei 

ee 

C9 

B678 

3E 

ec 

88 

88 

Ee 

ce 

88 

ee 

72 

SUM: 

BA 

3C 

99 

81 

E7 

C3 

81 

ee : 

; 3B 

B68e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B688 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B69e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B698 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Ae 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6A8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Be 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6B8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Ce 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6C8 

ee 

ee 

ee 

e.e 

ee 

ee 

ee 

ee 

ee 

B6D8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B8D8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6E8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6Pe 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B6P8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

SUM: 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee : 

: ee 

B7ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

8788 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B719 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B718 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B72e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B728 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

8739 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B738 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B748 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B748 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7Se 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7S8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

8768 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B768 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B77e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B778 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

SUM: 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee : 

: ee 

B78e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B788 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B79e 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B798 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7Ae 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7A8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7Be 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7B8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7Ce 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7C8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7De 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7D8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7Ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7E8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7P8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

B7P8 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

SUM: 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee : 

: ee 

Bsee 

21 

ee 

ee 

22 

4S 

cs 

21 

27 : 

:95 

8888 

18 

22 

47 

cs 

CD 

27 

cs 

3E : 

:3D 

B8ie 

16 

DP 

83 

86 

eB 

11 

BC 

B9 ; 

:8P 


*)|'>lo'Cj: 9 ^ <-T-CAn/Jo C n() ^4*PC^—^f-*^tU'COA'o \^^<D1z^r-%(DUZ 

t “Oh ! 

i AS-OSy 7 hcor"^ ^i5^,T-r 
(26) 
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B818 

21 

09 

00 

lA 

C5 

D5 

E5 

47 

0A 

BAD8 

BF 

BA 

57 

3A 

CO 

BA 

5F 

AF ! 

:92 

BD80 

35 

21 

83 

89 

11 

88 

89 

01 

48 

B82e 

0'E 

08 

CD 

9F 

C3 

El 

D1 

Cl 

88 

BAE0 

01 

08 

60 

CD 

C9 

C4 

32 

C0 : 

:B5 

BD88 

08 

00 

ED 

88 

2A 

29 

C3 

22 

E5 

B828 

13 

2C 

2C 

10 

EE 

06 

28 

21 

88 

BAE8 

BA 

7D 

32 

BE 

8A 

FE 

15 

28 i 

! 1C 

BD90 

AC 

89 

11 

AC 

BD 

21 

AE 

89 

67 

B830 

00 

03 

C5 

E5 

01 

08 

87 

CD 

0A 

BAF0 

17 

FE 

11 

C0 

3A 

BF 

8A 

FE ; 

:97 

8D98 

18 

1C 

2A 

29 

C3 

22 

84 

89 

D9 

B838 

40 

C3 

El 

E5 

26 

06 

01 

08 

FE 

BAF8 

01 

C0 

3A 

BA 

BA 

C6 

10 

47 ; 

;8C 

BDA0 

11 

81 

BD 

21 

86 

89 

18 

0E 

35 

B840 

87 

CD 

40 

C3 

El 

Cl 

2C 

10 

35 











8DA8 

54 

4F 

50 

00 

32 

FF 

4E 

44 

86 

B848 

E3 

21 

01 

01 

22 

BE 

BA 

3E 

E4 

SUM: 

10 

C8 

Cl 

3A 

38 

61 

39 

FB : 

; A6 

8DB0 

00 

33 

FF 

52 

44 

00 

E5 

D5 

82 

B850 

9E 

32 

BA 

BA 

AF 

32 

BC 

BA 

98 











8DB8 

AF 

32 

5D 

00 

3E 

16 

DF 

03 

74 

B858 

CD 

8A 

88 

21 

BC 

BA 

34 

CD 

A7 

8800 

0E 

08 

21 

13 

04 

C3 

88 

C3 

5C 

BDC0 

21 

00 

00 

22 

45 

C5 

21 

27 

95 

B880 

Cl 

BA 

AF 

DF 

0D 

FE 

20 

28 

5C 

8808 

3A 

BF 

8A 

FE 

03 

CO 

18 

EA 

76 

80C8 

18 

22 

47 

C5 

CD 

27 

C5 

11 

10 

B868 

0E 

3^ 

BC 

BA 

FE 

00 

28 

E4 

C8 

8810 

F5 

3E 

03 

32 

BF 

BA 

3A 

BA 

D5 

8DD0 

CC 

BE 

21 

06 

06 

CD 

35 

C4 

7D 

B870 

FE 

80 

CC 

C7 

89 

18 

E4 

21 

E7 

8818 

BA 

3C 

3C 

FE 

A0 

20 

02 

3E 

30 

8DD8 

3E 

88 

11 

69 

D5 

21 

69 

DD 

7C 

B878 

00 

00 

22 

45 

C5 

21 

27 

18 

8C 

8820 

98 

32 

BA 

8A 

47 

OE 

08 

21 

BC 

8DE0 

01 

08 

26 

F3 

D3 

E3 

12 

71 

58 











8828 

1 3 

04 

CD 

88 

C 3 

F 1 

C9 

F5 

DE 

8DE8 

D3 

El 

FB 

13 

23 

3C 

3C 

FE 

58 

SUU: 

79 

2 2 

F5 

C4 

81 

69 

31 

36 

D5 

8830 

3E 

01 

32 

BF 

BA 

18 

DF 

CD 

AE 

BDF0 

90 

20 

02 

3E 

88 

10 

EC 

21 

95 











8838 

28 

CB 

21 

00 

01 

CD 

99 

CD 

48 

8DF8 

08 

09 

11 

EB 

BE 

CD 

35 

C4 

94 

B880 

22 

47 

C5 

3E 

1 6 

DF 

03 

C3 

27 

BB4 0 

0-6 

0 A 

C 5 

2A 

1F 

C 6 



7 i 











B888 

27 

C5 

21 

02 

08 

22 

45 

C5 

43 

8848 

01 

0] 

08 

80 

16 

00 

D o 

CD 

o£ 

C9 

f A 

36 

SUM: 

C7 

D5 

FI 

3E 

4E 

CB 

FB 

EC : 

: CB 

B890 

21 

25 

14 

22 

47 

C5 

CD 

27 

7C 

8850 

C4 

21 

F0 

00 

CD 

99 

CD 

Cl 

C9 











8898 

C5 

3E 

16 

DF 

03 

21 

0A 

08 

2E 

8858 

10 

E8 

CD 

03 

C0 

21 

00 

02 

AB 

8E00 

D1 

21 

14 

06 

CD 

35 

C4 

21 

F3 

B8A0 

11 

23 

89 

CD 

35 

C4 

21 

09 

DD 

8860 

CD 

99 

CD 

21 

01 

02 

22 

45 

BE 

BE08 

11 

0C 

22 

54 

00 

3E 

71 

32 

74 

B8A8 

0A 

11 

38 

89 

CD 

35 

C4 

21 

F3 

8868 

C5 

21 

1C 

15 

22 

47 

C5 

CD 

12 

BE10 

5D 

00 

11 

00 

BF 

DF 

05 

2 1 

32 

B8B0 

08 

0C 

11 

51 

89 

CD 

35 

C4 

F5 

8870 

27 

C5 

21 

06 

08 

11 

94 

BC 

7C 

BE18 

OD 

0F 

11 

06 

BF 

CD 

35 

C4 

88 

B8B8 

21 

08 

0F 

11 

6D 

89 

CD 

35 

71 

8878 

CD 

35 

C4 

06 

04 

21 

EF 

D6 

86 

BE20 

21 

13 

0F 

22 

54 

00 

3E 

43 

3A 

B8C0 

C4 

21 

09 

17 

11 

86 

89 

CD 

22 











8E28 

32 

60 

00 

AF 

32 

CB 

BE 

El 

DD 

B8C8 

35 

C4 

06 

00 

21 

07 

11 

11 

49 

SUM: 

6C 

88 

4C 

31 

1C 

3C 

81 

C3 : 

: 90 

BE30 

E5 

3E 

01 

DF 

0D 

El 

FE 

14 

03 

B8D0 

A4 

89 

D5 

C5 

E5 

04 

58 

16 

4E 











8E38 

CC 

93 

BE 

FE 

13 

CC 

AF 

BE 

67 

B8D8 

00 

3E 

01 

CD 

D0 

C2 

El 

Cl 

40 

8880 

11 

88 

08 

C5 

D5 

E5 

F3 

D3 

69 

8E40 

FE 

20 

20 

EC 

11 

68 

D6 

F3 

6F 

B8E0 

D1 

C5 

05 

E5 

2C 

2C 

2C 

2C 

00 

8888 

E3 

7E 

D3 

El 

FB 

68 

62 

47 

24 

8E48 

D3 

E3 

lA 

D3 

El 

FB 

E5 

F5 

59 

B8E8 

2C 

2C 

2C 

E5 

lA 

4F 

13 

lA 

FF 

8890 

0E 

88 

CD 

88 

C3 

El 

D1 

Cl 

A1 

BES0 

21 

FI 

D5 

16 

00 

3A 

CB 

BE 

C0 

B8F0 

57 

59 

AF 

CD 

00 

C2 

El 

2C 

CB 

8898 

23 

23 

1C 

1C 

1C 

1C 

10 

E3 

A9 

BE58 

5F 

19 

FI 

F3 

D3 

E3 

77 

11 

9A 

B8F8 

2C 

2C 

2C 

2C 

11 

9D 

89 

CD 

E4 

BBA0 

21 

IF 

1 2 

11 

DA 

BC 

CD 

35 

FB 

8E60 

00 

08 

19 

36 

08 

D3 

El 

FB 

OE 











B B A 8 

C4 

2 1 

IF 

1 4 

11 

D A 

BC 

CD 

8C 

BE 6 8 

El 

FE 

00 

28 

IE 

FE 

18 

28 

66 

SUM: 

90 

09 

E2 

95 

9E 

93 

E2 

CE 

FI 

8880 

35 

C4 

DD 

21 

C0 

D5 

F3 

D3 

52 

BE70 

IE 

C6 

40 

77 

3A 

CB 

BE 

23 

81 











8888 

E3 

DD 

7E 

00 

DD 

46 

04 

DO 

42 

BE78 

3C 

32 

CB 

BE 

FE 

05 

20 

80 

CA 

B900 

35 

C4 

El 

D1 

Cl 

C5 

D5 

E5 

EB 

BRC0 

<1E 

06 

DD 

56 

0C 

D3 

E1 

FB 

4 4 











B908 

01 

11 

00 

09 

13 

13 

CD 

35 

43 

B8C8 

88 

20 

06 

89 

20 

03 

8A 

28 

9C 

SUM: 

DC 

88 

4A 

69 

14 

88 

EF 

DB : 

83 

B9 1 0 

C4 

El 

D1 

Cl 

24 

24 

04 

3E 

Cl 

BBD0 

39 

21 

07 

0E 

11 

E3 

BC 

CD 

EC 











8918 

08 

13 

3D 

20 

FC 

78 

FE 

03 

ED 

BBD8 

35 

C4 

21 

00 

05 

CD 

99 

CD 

52 

BE80 

3E 

70 

32 

5D 

00 

3E 

EF 

32 

9C 

B920 

20 

80 

C9 

DF 

DF 

DF 

20 

48 

A1 

BBE0 

21 

lA 

0A 

AF 

01 

08 

60 

16 

73 

8E88 

60 

00 

C9 

3E 

20 

18 

E4 

3E 

Cl 

B928 

45 

59 

20 

46 

55 

4E 

43 

54 

3E 

BBE8 

01 

5F 

AF 

CD 

C9 

C4 

E5 

F5 

43 

BE90 

FB 

18 

EO 

E5 

21 

65 

D6 

06 

3A 

B930 

49 

4F 

4E 

20 

DF 

DF 

DF 

00 

A3 

B8F0 

21 

80 

00 

CD 

99 

CD 

FI 

El 

86 

BE98 

07 

F3 

D3 

E3 

7E 

3D 

FE 

FF 

68 

B938 

53 

FF 

50 

41 

43 

45 

20 

42 

CD 

BBF8 

47 

7D 

FE 

02 

78 

20 

E5 

3E 

7F 

BEA0 

20 

02 

3E 

IB 

77 

D3 

El 

FB 

A1 

B940 

41 

52 

20 

FF 

CB 

20 

53 

FF 

EF 











8EA8 

23 

23 

10 

ED 

El 

AF 

C9 

E5 

81 

B948 

45 

54 

20 

4E 

41 

49 

4C 

53 

30 

SUM: 

20 

F5 

15 

F8 

54 

3D 

Cl 

57 : 

:CB 

BEB0 

21 

65 

D6 

06 

07 

F3 

D3 

E3 

1 2 

B950 

00 

43 

FF 

55 

52 

53 

4F 

52 

DD 











BEB8 

7E 

3C 

FE 

1C 

20 

02 

3E 

00 

34 

B958 

20 

48 

45 

59 

20 

FF 

CB 

20 

13 

BC00 

FF 

CD 

63 

C4 

21 

00 

05 

C3 

DC 

8EC0 

77 

03 

El 

FB 

23 

23 

10 

ED 

69 

B960 

40 

FF 

4F 

56 

45 

20 

FF 

4A 

9F 

8C88 

99 

CD 

F5 

21 

09 

0E 

11 

AA 

4E 

BEC8 

El 

AF 

C9 

00 

DF 

DF 

DF 

20 

16 

B968 

FF 

4F 

48 

4E 

00 

DF 

DF 

DF 

81 

BC10 

8C 

CD 

35 

C4 

3A 

93 

BC 

3C 

47 

BED0 

59 

FF 

4F 

55 

20 

47 

4F 

54 

06 

B970 

20 

42 

45 

53 

54 

20 

54 

48 

0A 

BC18 

32 

93 

BC 

FI 

FE 

98 

28 

0E 

3E 

BED8 

20 

41 

20 

20 

20 

20 

20 

53 

54 

B978 

52 

45 

45 

20 

53 

43 

4F 

52 

33 

8C20 

FE 

9A 

28 

0F 

FE 

9C 

28 

10 

A1 

8EE0 

43 

4F 

52 

45 

FF 

FB 

20 

DF 

22 











BC28 

FE 

9E 

28 

11 

1 8 

AC 

11 

F4 

9E 

8EE8 

DF 

DF 

00 

20 

49 

FF 

4E 

50 

C4 

SUM: 

67 

29 

18 

53 

84 

E2 

40 

C3 ; 

:97 

BC30 

01 

18 

0D 

11 

E8 

03 

18 

08 

42 

BEF0 

55 

54 

20 

59 

4F 

55 

52 

20 

38 











8C38 

11 

F4 

01 

18 

03 

11 

E8 

03 

ID 

BEF8 

4E 

41 

4D 

45 

FF 

FB 

20 

00 

38 

8980 

45 

20 

DF 

DF 

DF 

00 

DF 

DF 

C0 

8C40 

F 5 

D5 

21 

1 0 

OE 

AF 

CD 

D0 

5 5 











8988 

DF 

20 

50 

55 

53 

48 

20 

53 

82 

BC48 

C2 

D1 

ED 

53 

2D 

C3 

CD 

49 

D9 

SUM: 

18 

C6 

A8 

00 

16 

22 

AO 

38 : 

: 99 

8990 

50 

41 

43 

45 

20 

42 

41 

52 

0E 

BC50 

C5 

ED 

58 

29 

C3 

21 

21 

09 

44 











8998 

20 

DF 

DF 

DF 

00 

30 

20 

FF 

0C 

BC58 

3E 

01 

CD 

D0 

C2 

ED 

58 

28 

11 

BF00 

20 

20 

20 

20 

20 

00 

41 

20 

01 

89 A 0 

42 

5 9 

20 

00 

88 

13 

53 

41 

EA 

BC60 

C3 

21 

21 

05 

AF 

CD 

D0 

C2 

18 

8F88 

42 

20 

43 

20 

44 

20 

45 

20 

8E 

B9A8 

49 

54 

4F 

00 

88 

08 

4F 

48 

46 

8C68 

21 

00 

09 

CD 

99 

CD 

FI 

FE 

4C 

BF10 

46 

20 

47 

20 

20 

20 

00 

CD 

DA 

8980 

20 

4D 

5A 

00 

00 

07 

20 

2F 

ED 

BC70 

9E 

28 

07 

FE 

9C 

28 

09 

C3 

58 

BF18 

BC 

BF 

3E 

70 

32 

5D 

00 

3E 

F6 

8988 

2E 

2C 

20 

00 

80 

82 

84 

82 

42 

BC78 

DA 

88 

CD 

88 

CB 

C3 

DA 

88 

10 

BF20 

16 

DF 

03 

21 

00 

00 

22 

45 

80 

89C0 

86 

88 

D0 

80 

82 

BA 

BC 

21 

37 











BF28 

C5 

21 

27 

18 

22 

47 

C5 

CD 

20 

B9C8 

08 

08 

22 

45 

C5 

21 

IF 

17 

93 

SUM: 

AA 

D6 

DB 

9A 

D2 

9A 

ED 

51 : 

:9F 

BF30 

27 

C5 

21 

IE 

0E 

22 

08 

CO 

26 

B9D0 

22 

47 

C5 

CD 

27 

C5 

21 

0A 

12 











8F38 

21 

88 

13 

22 

28 

C3 

3E 

04 

0E 

B9D8 

08 

11 

6F 

BA 

CD 

35 

C4 

21 

29 

BC80 

21 

02 

10 

11 

88 

8C 

CD 

35 

BA 

BF40 

32 

04 

CA 

3E 

01 

32 

93 

BC 

C0 

B9E0 

16 

0A 

11 

83 

BA 

CD 

35 

C4 

34 

BC88 

C4 

21 

04 

CA 

34 

CD 

56 

C9 

D3 

BF48 

3E 

02 

32 

09 

CO 

21 

00 

00 

5C 

8 9 E 8 

21 

16 

0C 

11 

97 

BA 

CD 

35 

A7 

BC90 

C3 

DA 

88 

00 

59 

FF 

4F 

55 

54 

BF50 

22 

29 

C3 

CD 

00 

88 

21 

00 

84 

B9F8 

C4 

21 

16 

0E 

11 

AD 

BA 

D5 

56 

BC98 

20 

47 

4F 

54 

20 

41 

53 

20 

DE 

BF58 

00 

22 

06 

C8 

3E 

IF 

32 

08 

87 

B9F8 

CD 

35 

C4 

D1 

21 

16 

10 

CD 

AB 

BCA0 

46 

4F 

4C 

4C 

4F 

57 

53 

FF 

25 

8F60 

C8 

22 

08 

C8 

AF 

32 

OD 

C8 

73 











8 C A 8 

D 1 

00 

42 

4F 

4E 

55 

5 3 

20 

78 

BF68 

3E 

IF 

32 

EC 

C8 

21 

ED 

80 

01 

SUM: 

ID 

14 

57 

47 

00 

80 

62 

EB : 

:CC 

BCB0 

CB 

20 

20 

20 

20 

20 

30 

00 

98 

BF70 

22 

DA 

CA 

21 

00 

00 

22 

2D 

36 











BCB8 

54 

FF 

48 

45 

20 

FF 

4A 

FF 

48 

BF78 

C3 

AF 

32 

22 

C6 

CD 

56 

C9 

78 

BA00 

35 

C4 

21 

09 

14 

11 

86 

89 

87 

BCC0 

4F 

4 3 

4F 

53 

45 

20 

FF 

4A 

E 2 











BA08 

CD 

35 

C4 

21 

10 

0A 

11 

10 

22 

BCC8 

FF 

4F 

48 

4E 

20 

4D 

55 

4C 

F2 

SUM: 

04 

87 

44 

1C 

4D 

13 

0E 

53 : 

! AC 

BAl 0 

27 

AF 

CD 

D0 

C2 

21 

10 

0C 

72 

BCD0 

54 

49 

•5 0 

4C 

49 

45 

53 

FF 

19 











BA18 

11 

88 

13 

AF 

CD 

D0 

C2 

21 

DB 

BCD8 

FB 

00 

20 

20 

20 

20 

20 

20 

88 

BF80 

21 

01 

17 

22 

52 

C9 

21 

A0 

37 

BA20 

10 

0E 

11 

10 

27 

AF 

CD 

D0 

82 

BCE0 

20 

20 

00 

53 

FF 

4F 

52 

52 

85 

8F88 

00 

22 

54 

C9 

CD 

F6 

BC 

CD 

88 

BA28 

C2 

21 

1 0 

10 

11 

88 

13 

AF 

5E 

BCE8 

59 

FF 

CD 

FF 

20 

4E 

4F 

20 

01 

8F90 

00 

CO 

CD 

28 

CB 

C5 

21 

ID 

86 

BA30 

CD 

D0 

C2 

21 

lA 

0A 

01 

50 

F5 

BCF0 

42 

4F 

4E 

55 

53 

00 

3A 

93 

54 

BF98 

17 

01 

08 

87 

CD 

40 

C3 

Cl 

38 

BA38 

6A 

CD 

30 

C3 

21 

lA 

0C 

01 

72 

BCF8 

BC 

CD 

26 

CA 

ED 

58 

28 

C3 

AF 

8FA0 

05 

05 

28 

13 

21 

00 

00 

22 

88 

BA40 

5 0 

6A 

CD 

30 

C3 

21 

02 

0A 

A7 











BFA8 

DA 

CA 

CD 

A4 

CD 

78 

FE 

00 

58 

B A 4 8 

01 

9E 

04 

C5 

E5 

06 

04 

E5 t3C 

SUM: 

12 

C8 

5C 

AD 

6F 

5E 

82 

OE : 

:70 

BFB0 

20 

Cl 

CD 

40 

BD 

18 

87 

CD 

17 

8 A 5 0 

C 5 

41 

0E 

08 

CD 

88 

C3 

Cl 

F5 











8FB8 

37 

88 

18 

9A 

21 

00 

AO 

AF 

14 

B A 5 8 

E1 

2C 

2C 

2C 

1 0 

FI 

C5 

01 

2C 

BD00 

21 

21 

05 

AF 

CD 

DO 

C2 

21 

76 

BFCO 

77 

32 

01 

A0 

32 

02 

A0 

3E 

5C 

B A 6 0 

08 

IE 

CD 

40 

C3 

Cl 

El 

Cl 

59 

BD08 

0C 

0C 

11 

35 

8D 

CD 

35 

C4 

El 

8FC8 

03 

01 

00 

08 

11 

00 

D0 

F3 

EO 

BA 6 8 

0D 

0D 

24 

24 

10 

DD 

C9 

DF 

F7 

BD10 

21 

0E 

14 

01 

08 

80 

CD 

9F 

38 

8FD0 

D3 

E5 

ED 

80 

D3 

E6 

FB 

3D 

46 

BA70 

DF 

DF 

20 

42 

4F 

4E 

55 

53 

65 

8018 

C3 

21 

00 

06 

CD 

99 

CD 

21 

3E 

BF08 

20 

EF 

C9 

00 

00 

00 

00 

00 

D8 

BA78 

20 

5 0 

4C 

41 

54 

45 

20 

DF 

95 

BD20 

EC 

D5 

11 

EC 

DD 

06 

06 

AF 

56 

BFE0 

00 

00 

00 

00 

00 

00 

00 

00 

00 











BD28 

F3 

D3 

E3 

77 

12 

D3 

El 

FB 

El 

8FE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

4E 

C8 

40 

BD 

21 

38 

03 

49 : 

88 

BD30 

23 

13 

10 

F4 

C9 

52 

45 

41 

DB 

BFF0 

00 

00 

00 

00 

00 

00 

00 

00 

00 











BD38 

44 

59 

FB 

00 

00 

00 

00 

00 

98 

8FF8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BA80 

DF 

DF 

00 

FF 

50 

54 

53 

20 

D4 

BD48 

2A 

29 

C 3 

ED 

58 

A4 

8 9 

AF 

R i 











BA88 

20 

20 

FF 

42 

FF 

4F 

4E 

55 

72 

BD48 

47 

ED 

52 

30 

18 

04 

2A 

29 

0 A 

28 

SUM: 

DB 

36 

D1 

86 

99 

3C 

51 

57 : 

:E5 

BA90 

5 3 

20 

47 

41 

4D 

45 

00 

FF 

8C 

BD50 

C3 

ED 

58 

AC 

89 

AF 

ED 

si 

5E 











BA98 

50 

54 

53 

20 

20 

20 

FF 

4A 

A0 

BD58 

30 

27 

04 

2A 

29 

C3 

ED 

58 

89 

C060 

C3 

37 

CO 

C3 

D3 

C0 

C3 

0D 

EO 

BA A 0 

FF 

4F 

48 

4E 

20 

38 

FF 

4F 

8D 

8060 

84 

89 

AF 

ED 

52 

30 

33 

C9 

87 

C0O8 

CO 

00 

00 

00 

00 

3A 

OA 

CO 

C4 

BAA8 

4E 

4 5 

FF 

2F 

00 

FF 

50 

54 

64 

BD68 

21 

83 

89 

11 

88 

89 

01 

10 

23 

C01O 

87 

C2 

1C 

C0 

CD 

37 

CO 

3E 

57 

BAB0 

53 

20 

20 

20 

20 

4F 

4E 

4C 

BC 

BD70 

00 

ED 

88 

2A 

29 

C3 

22 

A4 

81 

cei8 

02 

32 

OA 

CO 

DD 

21 

4C 

C2 

0A 

B A 8 8 

5 9 

00 

00 

00 

00 

00 

00 

00 

59 

BD78 

89 

11 

A8 

BD 

21 

A6 

89 

18 

C7 

C020 

ED 

58 

08 

CO 

C3 

F8 

C 1 

2 1 

80 

BAC0 

00 

21 

60 

00 

CD 

99 

CD 

3A 

EE 











C028 

00 

00 

OE 

08 

29 

87 

D2 

32 

CA 

B A C 8 

BE 

BA 

FE 

01 

CC 

10 

88 

FE 

0C 

SUM: 

49 

04 

65 

lA 

C6 

4D 

89 

AA : 

12 

C030 

CO 

1 9 

OD 

C2 

2C 

C0 

C9 

3A 

97 

BAD0 

25 

cc 

2F 

88 

6F 

26 

04 

3A 

AE 











C038 

OA 

CO 

87 

C4 

D3 

C0 

F3, AF 

7A 


► L*>-rs t S-OSffli: i>CDlX*'t)'trU? 

±H Mlfr (14) irM\: 


98 Oh! MZ 1986.10. 




































C04e 

32 

9C 

C2 

21 

00 

03 

22 

9E 

74 

0048 

C2 

22 

A0 

C2 

AF 

32 

A2 

C2 

8B 

C0S0 

21 

32 

D9 

DD 

21 

47 

C2 

0E 

41 

C058 

00 

06 

06 

DD 

36 

0C 

00 

79 

A4 

C060 

FE 

03 

3F 

3E 

00 

CE 

F2 

DD 

IB 

C068 

77 

30 

79 

FE 

03 

DA 

72 

CO 

2D 

C070 

D6 

03 

OF 

0F 

OF 

F6 

80 

DD 

59 

C078 

77 

IE 

DD 

77 

36 

DD 

36 

24 

56 

SUM: 

CA 

A9 

A8 

F0 

B6 

54 

C8 

8E 

: 6B 

C080 

00 

7E 

23 

DD 

77 

3C 

DD 

77 

85 

C088 

48 

7E 

23 

DD 

77 

42 

DD 

77 

D3 

C090 

4E 

0C 

DD 

23 

05 

C2 

5B 

C0 

3C 

C098 

3E 

01 

32 

0A 

C0 

3E 

2D 

11 

B7 

C0A0 

0A 

00 

DF 

22 

F3 

CD 

C0 

CO 

4B 

C0A8 

2A 

FC 

0F 

11 

19 

00 

19 

22 

9A 

C0B0 

A4 

C2 

11 

E7 

C0 

4E 

73 

23 

02 

C0B8 

46 

72 

ED 

43 

A6 

C2 

FB 

C9 

14 

C0C0 

3E 

9F 

06 

04 

D3 

E9 

C6 

20 

89 

C0C8 

05 

C2 

C4 

C0 

3E 

EF 

D3 

F2 

3D 

C0D0 

D3 

F3 

C9 

F3 

CD 

C0 

C0 

2A 

F9 

C808 

A4 

C2 

ED 

5B 

A6 

C2 

73 

23 

AC 

C0E0 

72 

3E 

00 

32 

0A 

CO 

C9 

C5 

3A 

C0E8 

D5 

E5 

F5 

DD 

E5 

3A 

A2 

C2 

OF 

C0F0 

EE 

01 

32 

A2 

C2 

C2 

76 

Cl 

7E 

C0F8 

21 

9C 

C2 

35 

F2 

65 

Cl 

3A 

06 

SUM: 

02 

0F 

AA 

3C 

4C 

D6 

F7 

6E : 

:7E 

C100 

09 

C0 

C6 

03 

77 

3A 

0A 

C0 

0D 

C108 

3D 

C2 

65 

Cl 

DD 

21 

47 

C2 

2C 

C110 

06 

06 

DD 

35 

24 

F2 

39 

Cl 

2E 

C118 

DD 

6E 

3C 

DD 

66 

42 

5E 

23 

8D 

C128 

56 

23 

DD 

75 

3C 

DD 

74 

42 

9A 

C128 

7A 

CB 

3F 

CB 

3F 

CB 

3F 

CB 

63 

C130 

3F 

DD 

77 

24 

C5 

CD 

F8 

Cl 

02 

C138 

Cl 

DD 

23 

05 

C2 

12 

Cl 

2A 

85 

C140 

9E 

C2 

2B 

22 

9E 

C2 

7C 

B5 

3E 

C148 

C2 

65 

Cl 

2A 

AO 

C2 

22 

9E 

34 

C150 

C2 

06 

06 

DD 

2B 

DD 

6E 

48 

69 

C158 

DD 

66 

4E 

DD 

75 

3C 

DD 

74 

70 

C160 

42 

05 

C2 

53 

Cl 

DD 

21 

47 

62 

C168 

C2 

06 

06 

C5 

CD 

7D 

Cl 

Cl 

5F 

C170 

DD 

23 

05 

C2 

6B 

Cl 

DD 

El 

B1 

C178 

FI 

El 

D1 

Cl 

C9 

DD 

7E 

0C 

94 

SUM: 

CA 

40 

D8 

E0 

80 

AB 

7A 

62 : 

:C9 

C188 

3D 

FA 

ED 

Cl 

DD 

77 

0C 

DD 

22 

C188 

6E 

00 

DD 

66 

06 

5E 

23 

56 

8E 

C190 

23 

DD 

75 

00 

DD 

74 

06 

D5 

A1 

C198 

DD 

6E 

12 

DD 

66 

18 

16 

00 

CE 

C1A0 

CB 

7B 

CA 

A6 

Cl 

15 

19 

11 

B6 

C1A8 

60 

00 

06 

00 

B7 

ED 

52 

DA 

36 

C1B0 

B6 

Cl 

04 

C3 

AC 

Cl 

19 

29 

ED 

C1B8 

26 

D0 

5E 

23 

56 

05 

FA 

C8 

94 

C1C0 

Cl 

CB 

3A 

CB 

IB 

C3 

BD 

Cl 

ED 

C1C8 

62 

6B 

29 

29 

29 

29 

7B 

E6 

D2 

C1D0 

0F 

DD 

B6 

IE 

DD 

4E 

30 

ED 

08 

C1D8 

79 

7C 

ED 

79 

D1 

3E 

OF 

92 

0B 

C1E0 

E6 

0F 

DD 

B6 

36 

F8 

90 

DD 

21 

C1E8 

4E 

30 

ED 

79 

C9 

DD 

7E 

36 

3E 

C1F0 

F6 

9F 

DD 

4E 

30 

ED 

79 

C9 

IF 

C1F8 

7B 

F6 

80 

3C 

C8 

DD 

7E 

36 

86 

SUM: 

02 

B4 

B0 

D4 

89 

3E 

45 

1C ! 

6^ 

C200 

F6 

9F 

DD 

4E 

30 

ED 

79 

DD 

33 

C208 

36 

0C 

00 

CB 

7B 

CO 

3E 

3F 

C5 

C210 

DD 

77 

0C 

6B 

26 

00 

29 

29 

43 

C218 

29 

DD 

75 

12 

DD 

74 

18 

7A 

70 

C220 

E6 

0F 

11 

87 

00 

CD 

27 

C0 

41 

C228 

11 

C7 

DO 

19 

DD 

75 

00 

DD 

F0 

C230 

74 

06 

2B 

7E 

DD 

77 

2A 

B7 

58 

C238 

DD 

7E 

IE 

DD 

77 

36 

C8 

FE 

C9 

C240 

C0 

C0 

DD 

36 

36 

E0 

C9 

00 

72 

C248 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C250 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C258 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C260 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C268 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C270 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C278 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

3A 

19 

65 

C7 

15 

F0 

DA 

11 ! 

:6F 

C280 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C288 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C290 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C298 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C2A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C2A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C2B0 

DF 

IE 

C5 

01 

00 

04 

09 

E5 

B5 

C2B8 

DD 

El 

09 

09 

E5 

FD 

El 

Cl 

54 

C2C0 

C9 

DF 

IE 

C5 

E5 

DD 

El 

01 

2F 

C2C8 

00 

08 

09 

E5 

FD 

El 

Cl 

C9 

5E 

C2D0 

FE 

00 

28 

02 

3E 

30 

32 

21 

E9 

C2D8 

C3 

CD 

BO 

C2 

D5 

El 

11 

22 

EB 

C2E8 

C3 

06 

01 

DF 

16 

AF 

32 

28 

C8 

C2E8 

C3 

06 

05 

21 

22 

C3 

7E 

FE 

50 

C2F0 

30 

28 

20 

32 

28 

C3 

DF 

ID 

91 

C2F8 

E5 

21 

21 

C3 

86 

El 

F3 

D3 

17 


SUM: 

El 

08 

14 

6D 

CO 

E6 

51 

C9 

:2A 

C300 

E3 

DD 

77 

00 

FD 

36 

00 

08 

72 

C398 

D3 

El 

FB 

DD 

23 

FD 

23 

23 

F2 

C319 

10 

DC 

C9 

3A 

28 

C3 

FE 

00 

D8 

C318 

28 

04 

3E 

20 

18 

DA 

AF 

18 

43 

C320 

D7 

00 

00 

00 

00 

00 

00 

00 

D7 

C328 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C330 

CD 

Cl 

C2 

F3 

D3 

E3 

DD 

70 

46 

C338 

00 

FD 

71 

00 

D3 

El 

FB 

C9 

E6 

C349 

CD 

B0 

C2 

18 

EE 

CD 

Cl 

C2 

95 

C348 

F3 

D3 

E3 

DD 

6E 

00 

DD 

66 

37 

C359 

01 

DD 

5E 

28 

DD 

56 

29 

D3 

93 

C358 

El 

FB 

22 

7B 

C3 

ED 

53 

7D 

F9 

C360 

C3 

F3 

D3 

E3 

FD 

6E 

00 

FD 

D4 

C368 

66 

01 

FD 

5E 

28 

FD 

56 

29 

66 

C370 

D3 

El 

FB 

22 

7F 

C3 

ED 

53 

53 

C378 

81 

C3 

C9 

00 

00 

00 

00 

00 

9D 

SUM: 

B1 

4F 

65 

25 

A6 

D2 

05 

6D 

:74 

C380 

00 

00 

00 

CD 

B0 

C2 

18 

CO 

17 

C388 

CD 

BO 

C2 

F3 

D3 

E3 

DD 

70 

35 

C390 

00 

FD 

71 

00 

04 

DD 

70 

01 

C0 

C398 

FD 

71 

01 

D3 

El 

FB 

C9 

F5 

DC 

C3A9 

E5 

C5 

CD 

88 

C3 

Cl 

El 

24 

88 

C3A8 

78 

C6 

10 

47 

CD 

88 

C3 

FI 

9E 

C3B9 

C9 

E5 

CD 

Cl 

C2 

FD 

E5 

FD 

DD 

C3B8 

21 

15 

C4 

CD 

DE 

C3 

DD 

El 

26 

C3C0 

FD 

21 

ID 

C4 

CD 

DE 

C3 

El 

4E 

C3C8 

CD 

B0 

C2 

FD 

E5 

FD 

21 

25 

64 

C3D0 

C4 

CD 

DE 

C3 

DD 

El 

FD 

21 

0E 

C3D8 

2D 

C4 

CD 

DE 

C3 

C9 

F3 

D3 

EE 

C3E0 

E3 

DD 

7E 

D8 

FD 

77 

00 

DD 

67 

C3E8 

7E 

D9 

FD 

77 

01 

DD 

7E 

FF 

26 

C3F0 

FD 

77 

02 

DD 

7E 

27 

FD 

77 

6C 

C3F8 

03 

DD 

7E 

50 

FD 

77 

04 

DD 

03 

SUM: 

2D 

OF 

27 

CE 

63 

FD 

E7 

43 ! 

:BB 

C490 

7E 

51 

FD 

77 

05 

DD 

7E 

02 

A5 

C408 

FD 

77 

06 

DD 

7E 

2A 

FD 

77 

73 

C418 

07 

D3 

El 

FB 

C9 

00 

00 

00 

7F 

C418 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C429 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C428 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C430 

00 

00 

00 

00 

00 

AF 

32 

62 

43 

C438 

C4 

lA 

13 

FE 

00 

C8 

DF 

ID 

B3 

C440 

FE 

60 

20 

0B 

3A 

62 

C4 

FE 

E7 

C448 

00 

20 

EA 

3E 

30 

18 

E7 

D5 

4C 

C450 

E5 

21 

62 

C4 

86 

47 

0E 

08 

0F 

C458 

El 

E5 

CD 

40 

C3 

El 

D1 

2C 

74 

C460 

18 

D7 

00 

E5 

F5 

CD 

B0 

C2 

08 

C468 

FI 

F5 

F3 

D3 

E3 

FE 

00 

28 

B5 

C470 

19 

FE 

01 

28 

23 

FE 

02 

28 

8B 

C478 

2E 

FE 

03 

28 

39 

AF 

DD 

77 

93 

SUM- 

5A 

03 

27 

A2 

33 

98 

A5 

88 : 

i IE 

C480 

00 

FD 

77 

00 

DD 

77 

01 

FD 

C6 

C488 

77 

01 

DD 

77 

28 

FD 

77 

28 

90 

C490 

DD 

77 

29 

FD 

77 

29 

18 

2B 

5D 

C498 

AF 

DD 

77 

01 

FD 

77 

01 

DD 

56 

C4A0 

77 

29 

FD 

77 

29 

18 

1C 

AF 

20 

C4A8 

DD 

77 

00 

FD 

77 

00 

DD 

77 

1C 

C4B0 

01 

FD 

77 

01 

18 

0D 

AF 

DD 

27 

C4B8 

77 

00 

FD 

77 

00 

DD 

77 

28 

67 

C4C0 

FD 

77 

28 

D3 

El 

FB 

FI 

El 

ID 

C4C8 

C9 

FE 

01 

28 

14 

7A 

CD 

63 

AE 

C4D0 

C4 

FE 

00 

28 

2A 

FE 

01 

28 

3B 

C4D8 

29 

FE 

02 

28 

28 

FE 

03 

28 

A2 

C4E0 

27 

E5 

1C 

CB 

43 

28 

02 

04 

64 

C4E8 

04 

7A 

FE 

00 

28 

09 

04 

04 

B5 

C4F0 

04 

04 

3D 

FE 

00 

20 

F7 

D5 

2F 

C4F8 

CD 

9F 

C3 

D1 

El 

7B 

C9 

25 

4A 

SUM: 

7E 

62 

AA 

46 

C4 

53 

38 

EE : 

;0D 

C5O0 

18 

DF 

2D 

18 

DC 

24 

18 

D9 

2D 

C598 

2C 

18 

D6 

DF 

25 

82 

83 

21 

44 

C510 

47 

C2 

86 

F5 

ED 

5F 

57 

FI 

18 

C518 

82 

C9 

21 

00 

EO 

3E 

F7 

CD 

4E 

C520 

EE 

00 

23 

CD 

E6 

00 

C9 

2A 

B7 

C528 

45 

C5 

E5 

01 

00 

00 

CD 

40 

FD 

C530 

C3 

El 

2C 

3A 

47 

C5 

BD 

30 

03 

C538 

FI 

3A 

45 

C5 

6F 

24 

3A 

48 

4A 

C540 

C5 

BC 

30 

E6 

C9 

00 

00 

00 

60 

C548 

00 

2A 

29 

C3 

ED 

4B 

2D 

C3 

3E 

C550 

09 

22 

29 

C3 

ED 

4B 

2B 

C3 

3D 

C558 

AF 

32 

2F 

C3 

ED 

42 

D8 

2A 

04 

C569 

29 

C3 

22 

2B 

C3 

3E 

01 

32 

6D 

C568 

2F 

C3 

C9 

00 

00 

00 

00 

00 

BB 

C570 

2A 

IF 

C6 

CD 

83 

C3 

AF 

32 

03 

C578 

22 

C6 

06 

04 

21 

7B 

C3 

3E 

8F 

SUM: 

15 

07 

8B 

E4 

61 

80 

19 

EC : 

: 71 

C589 

87 

BE 

30 

0B 

3E 

8F 

BE 

38 ; 

;43 

C588 

06 

3E 

01 

32 

22 

C6 

C9 

23 : 

;4B 

C590 

10 

ED 

2A 

IF 

C6 

CD 

B1 

C3 : 

:4D 

C598 

CD 

lA 

C5 

FE 

DF 

28 

15 

FE : 

:C4 

C5A0 

FB 

28 

4B 

FE 

EF 

28 

53 

FE : 

;D4 


C5A8 

F7 

28 

5B 

2A 

IF 

C8 

01 

08 

92 

C5B0 

80 

C3 

9F 

C3 

16 

00 

21 

25 

01 

C5B8 

C4 

CD 

23 

C6 

30 

04 

3E 

01 

ED 

C5C0 

18 

01 

AF 

21 

21 

C6 

5E 

2A 

58 

C5C8 

IF 

C6 

01 

08 

60 

F5 

D5 

CD 

E5 

C5D0 

C9 

C4 

22 

IF 

C6 

32 

21 

C8 

AD 

C5D8 

D1 

FI 

FE 

01 

C8 

3E 

00 

DF 

A6 

C5E0 

OD 

FE 

20 

C0 

7A 

FE 

01 

28 

8C 

C5E8 

29 

FE 

03 

28 

2E 

C9 

16 

01 

60 

C5F0 

21 

27 

C4 

CD 

23 

C6 

38 

C6 

CO 

C5F8 

18 

C8 

16 

02 

21 

29 

C4 

CD 

D3 

SUM: 

EO 

4A 

55 

0B 

54 

ID 

67 

A0 : 

:02 

C60O 

23 

C6 

38 

BA 

18 

BC 

16 

03 

C8 

C608 

21 

2B 

C4 

CD 

23 

C8 

38 

AE 

AC 

C610 

18 

BO 

24 

2C 

2C 

01 

08 

86 

D3 

C618 

C3 

40 

C3 

24 

2D 

18 

F6 

00 

25 

C62 0 

00 

00 

00 

7E 

FE 

86 

38 

04 

3E 

C628 

FE 

90 

38 

0A 

23 

7E 

FE 

86 

F5 

C630 

38 

06 

FE 

90 

30 

02 

37 

C9 

FE 

C638 

AF 

C9 

21 

00 

09 

2B 

7C 

B5 

FE 

C640 

20 

FB 

32 

11 

C7 

3A 

0E 

C7 

34 

C648 

FE 

FF 

C8 

2A 

0C 

C7 

CD 

83 

12 

C650 

C3 

3A 

7B 

C3 

FE 

86 

CA 

E5 

6E 

C658 

C6 

2A 

OC 

C7 

7C 

FE 

15 

20 

72 

C660 

18 

7D 

FE 

01 

28 

04 

FE 

1C 

DA 

C668 

20 

0F 

3E 

FF 

32 

0E 

C7 

2A 

9D 

C670 

OC 

C7 

01 

00 

00 

CD 

40 

C3 

A4 

C678 

C9 

E5 

01 

00 

00 

CD 

40 

C3 

7F 

SUM: 

B8 

D6 

F9 

B4 

95 

FD 

34 

5A : 

;5B 

C680 

El 

3A 

7D 

C3 

FE 

87 

38 

OC 

24 

C688 

3A 

0E 

C7 

FE 

01 

28 

14 

FE 

48 

C690 

03 

28 

IF 

C9 

24 

E5 

CD 

0B 

F4 

C698 

C5 

E6 

02 

F6 

01 

32 

0E 

C7 

AB 

C6A0 

El 

18 

1C 

7D 

FE 

01 

20 

07 

B8 

C6A8 

3E 

03 

32 

OE 

C7 

18 

OF 

2D 

9C 

C6B0 

18 

OD 

7D 

FE 

1C 

20 

07 

3E 

21 

C6B8 

01 

32 

OE 

C7 

18 

FI 

2C 

22 

5F 

C6C0 

0C 

C7 

CD 

83 

C3 

3A 

7B 

C3 

5E 

C6C8 

FE 

86 

28 

19 

3A 

OF 

C7 

3C 

11 

C6D0 

32 

OF 

C7 

E6 

02 

CB 

OF 

21 

EB 

C6D8 

10 

C7 

86 

47 

OE 

08 

2A 

0C 

F0 

C6E0 

C7 

CD 

40 

C3 

C9 

2A 

0C 

C7 

5D 

C6E8 

01 

00 

00 

CD 

40 

C3 

3E 

FF 

0E 

C6F0 

32 

OE 

C7 

2A 

2D 

C3 

01 

01 

23 

C6F8 

00 

09 

22 

2D 

C3 

3E 

OC 

32 

97 

SUM: 

61 

B7 

A9 

80 

23 

FA 

5B 

95 : 

: 4E 

C700 

0C 

C0 

CD 

06 

CO 

3A 

10 

C7 

70 

C708 

32 

11 

C7 

C9 

00 

00 

00 

00 

D3 

C710 

00 

00 

00 

AF 

32 

05 

C8 

32 

E0 

C718 

0B 

C8 

DD 

21 

16 

C8 

3A 

06 

EF 

C720 

C8 

FE 

01 

28 

14 

3A 

07 

C8 

0C 

C728 

3C 

32 

07 

C8 

CB 

5F 

28 

09 

98 

C730 

3E 

01 

32 

06 

C8 

AF 

32 

07 

27 

C738 

C8 

AF 

32 

11 

C7 

DD 

7E 

02 

DE 

C740 

FE 

FF 

CC 

8B 

C7 

DD 

E5 

El 

BE 

C748 

11 

0C 

C7 

01 

05 

00 

ED 

B0 

87 

C750 

DD 

E5 

CD 

3A 

C6 

DD 

El 

DD 

2A 

C758 

E5 

D1 

21 

OC 

C7 

01 

05 

00 

B0 

C760 

ED 

BO 

DD 

23 

DD 

23 

DD 

23 

9D 

C768 

DD 

23 

DD 

23 

DD 

E5 

3A 

11 

OD 

C770 

C7 

FE 

00 

C4 

C0 

C7 

DD 

El 

CE 

C778 

21 

05 

C8 

34 

7E 

FE 

08 

20 

C6 

SUM: 

D6 

10 

E0 

B6 

C7 

B4 

A5 

7C i 

; 18 

C780 

B8 

CD 

49 

C5 

21 

00 

00 

22 

D6 

C788 

2D 

C3 

C9 

3A 

06 

C8 

FE 

00 

BF 

C790 

C8 

AF 

32 

06 

C8 

21 

OF 

C8 

6F 

C798 

11 

0E 

C8 

01 

07 

00 

lA 

ED 

F6 

C7A0 

B0 

12 

DD 

77 

04 

DD 

36 

01 

2E 

C7A8 

00 

DD 

36 

00 

OD 

DD 

36 

02 

35 

C7B0 

01 

CD 

0B 

C5 

CB 

4F 

C8 

DD 

5D 

C7B8 

36 

00 

10 

DD 

36 

02 

03 

C9 

27 

C7C0 

3A 

0D 

C8 

FE 

11 

De 

3A 

08 

30 

C7C8 

C8 

FE 

27 

28 

13 

6F 

26 

14 

D1 

C7D0 

F5 

3A 

11 

C7 

47 

0E 

08 

CD 

31 

C7D8 

40 

C3 

FI 

3C 

32 

08 

C8 

C9 

FB 

C7E0 

3A 

11 

C7 

32 

0B 

C8 

3E 

80 

D5 

C7E8 

32 

OD 

C8 

3E 

04 

21 

IF 

14 

9D 

C7F0 

F5 

E5 

01 

00 

00 

CD 

88 

C3 

F3 

C7F8 

El 

FI 

2C 

2C 

3D 

20 

FI 

3E 

B6 

SUM: 

IE 

05 

E7 

E4 

FI 

IF 

64 

C7 ; 

:29 

C800 

IF 

32 

08 

C8 

C9 

00 

00 

00 

EA 

C808 

IF 

00 

00 

00 

00 

00 

88 

8A 

31 

C810 

8C 

8E 

88 

8C 

88 

8A 

00 

00 

40 

C818 

FF 

00 

00 

00 

00 

FF 

00 

00 

FE 

C820 

00 

00 

FF 

00 

00 

00 

00 

FF 

FE 

C828 

00 

00 

00 

00 

FF 

00 

00 

00 

FF 

C830 

00 

FF 

00 

00 

00 

00 

FF 

00 

FE 

C838 

00 

00 

00 

FF 

00 

00 

3A 

0D 

46 

C840 

C8 

FE 

00 

C8 

3D 

32 

OD 

C8 

D2 

C848 

FE 

10 

20 

0E 

AF 

32 

OD 

C8 

F2 

C850 

2A 

09 

C8 

01 

00 

00 

CD 

88 

51 

C858 

C3 

C9 

30 

11 

FE 

00 

28 

EC 

DF 

C860 

2A 

09 

C8 

3A 

0C 

C8 

47 

OE 

5E 


► t - ^rTuzzyBASICCO BOX, CIRCLE, CPAINT, DOT, GRAPH, L 

INE, PAINT, PALETTE, POINT, SPLINE, y y A "j 

liffl (20) 


^ Jocose John 99 



































C868 

08 

CD 

88 

C3 

C9 

2A 

09 

C8 

E4 

CB19 

C7 

C7 

C7 

CA 

CA 

D6 

D6 

Cl 

56 

CDD0 

FE 

eD 

20 

E2 

21 

00 

08 

CD : 

03 

C870 

E5 

CD 

83 

C3 

El 

3A 

0C 

C8 

E7 

CB18 

Cl 

Cl 

C8 

C8 

20 

20 

C8 

C8 

E2 

CDD8 

99 

CD 

CD 

03 

ce 

21 

04 

CA : 

E5 

C878 

47 

0E 

08 

CD 

88 

C3 

21 

7B 

1 1 

CB20 

Cl 

Cl 

Cl 

D6 

D6 

CA 

CA 

C7 

4A 

CDE0 

35 

46 

C0 

21 

09 

0A 

11 

F4 : 

74 











CB28 

C7 

00 

00 

CD 

0B 

C5 

32 

5D 

F3 

CDE8 

CD 

CD 

35 

C4 

21 

00 

0F 

CD : 

90 

SUM: 

OA 

50 

82 

C8 

78 

DC 

4D 

B3 

C8 

CB30 

00 

21 

0E 

00 

22 

54 

00 

11 

B6 

CDF0 

99 

CD 

47 

C9 

20 

47 

41 

4D : 

6B 











CB38 

88 

CB 

DF 

05 

3E 

70 

32 

5D 

74 

CDF8 

45 

20 

4F 

56 

45 

52 

20 

00 : 

Cl 

C88e 

C3 

CD 

DF 

C8 

38 

05 

23 

CD 

64 

CB40 

00 

CD 

70 

C5 

3A 

22 

C6 

FE 

22 











C888 

DF 

C8 

D0 

3E 

0D 

32 

0C 

C0 

C0 

CB48 

00 

20 

31 

CD 

13 

C7 

CD 

ED 

B2 

SUM: 

BB 

8C 

46 

E6 

E8 

0D 

3A 

4F : 

FI 

C89e 

CD 

06 

C0 

3A 

EC 

C8 

6F 

26 

16 

CB50 

C8 

21 

21 

09 

ED 

5B 

29 

C3 

47 











C898 

12 

3A 

0C 

C8 

47 

0E 

08 

CD 

4A 

CB58 

3E 

01 

CD 

D0 

C2 

21 

21 

05 

E5 

CE00 

FC 

00 

03 

F8 

0F 

00 

0F 

08 

ID 

C8Ae 

88 

C3 

3A 

EC 

C8 

3C 

3C 

32 

E3 

CB66 

ED 

5B 

2B 

C3 

3E 

00 

CD 

D0 

11 

CEes 

00 

F9 

F0 

08 

3C 

00 

03 

C8 

F8 

C8A8 

EC 

C8 

21 

0D 

C8 

36 

10 

2B 

IB 

CB68 

C2 

3A 

52 

C9 

FE 

ID 

28 

0C 

66 

CE10 

01 

F9 

F8 

08 

F3 

E0 

7C 

F8 

41 

C8Be 

7E 

C6 

10 

77 

FE 

A8 

28 

0D 

A6 

CB70 

CD 

25 

C9 

3A 

EC 

C8 

FE 

27 

CE 

CE18 

01 

14 

IB 

14 

05 

0E 

10 

0B 

72 

C8B8 

FE 

AA 

28 

0E 

FE 

AC 

28 

0F 

BF 

CB78 

28 

08 

18 

AF 

11 

88 

CB 

06 

61 

CE20 

3F 

FF 

FF 

C8 

FF 

06 

0F 

F8 

11 

C8Ce 

FE 

AE 

28 

10 

C9 

01 

32 

00 

E0 











CE28 

3F 

C0 

3F 

C8 

El 

E0 

78 

78 

B7 

C8C8 

18 

0D 

01 

64 

00 

18 

08 

01 

AB 

SUM: 

73 

17 

BB 

20 

88 

51 

66 

FA : 

:9E 

CE30 

CC 

E0 

73 

38 

33 

30 

CC 

C8 

4E 

C8De 

C8 

00 

18 

03 

01 

2C 

01 

2A 

3B 











CESS 

03 

14 

09 

05 

19 

14 

13 

05 

6A 

C8D8 

2D 

C3 

09 

22 

2D 

C3 

C9 

7E 

52 

CB80 

01 

C9 

11 

88 

CB 

06 

02 

’C9 

FF 

CE40 

FC 

00 

03 

F8 

3F 

E0 

7F 

C8 

5D 

C8Ee 

FE 

50 

38 

04 

FE 

86 

38 

02 

48 

CB88 

20 

20 

00 

21 

01 

02 

22 

45 

CB 

CE48 

FI 

FF 

F8 

F8 

3F 

F0 

FF 

C8 

D6 

C8E8 

AF 

C9 

37 

C9 

IF 

3A 

0B 

C8 

A4 

CB90 

C5 

21 

1C 

15 

22 

47 

C5 

CD 

12 

CE50 

7E 

79 

E7 

E8 

3F 

3F 

CF 

C8 

DB 

C8Fe 

FE 

00 

CA 

3E 

C8 

C6 

10 

32 

D6 

CB98 

27 

C5 

21 

02 

08 

11 

D7 

CC 

CB 

CESS 

03 

05 

lA 

11 

19 

05 

02 

11 

64 

C8F8 

0C 

C8 

11 

ID 

C9 

21 

IE 

C9 

D3 

CBA0 

CD 

35 

C4 

21 

03 

06 

11 

F5 

F6 

CE60 

FF 

00 

0F 

F8 

FF 

80 

IF 

F8 

9C 











CBA8 

CC 

CD 

35 

C4 

2 1 

00 

0 0 

2 2 

D5 

CE 68 

FF 

C 0 

3F 

F 8 

FF 

E 0 

7F 

F 8 

4C 

SUH: 

33 

2F 

A2 

47 

A9 

82 

B7 

67 

94 

CBB0 

D2 

CC 

22 

D3 

CC 

22 

D5 

CC 

22 

CE70 

FF 

F0 

FF 

F8 

FF 

F9 

FF 

F8 

D5 











CBB8 

21 

08 

0B 

01 

08 

98 

CD 

88 

2A 

CE78 

01 

11 

IB 

05 

02 

02 

14 

08 

52 

C90e 

01 

07 

00 

lA 

ED 

B0 

12 

32 

03 

CBC0 

C3 

21 

0C 

0B 

01 

08 

9E 

CD 

6F 











0908 

09 

C8 

11 

ID 

C9 

21 

IE 

C9 

D0 

CBC8 

88 

C3 

21 

10 

0B 

01 

08 

9A 

2A 

SUM: 

B7 

F7 

24 

BF 

44 

87 

04 

69 : 

:C9 

C910 

01 

07 

00 

lA 

ED 

B0 

12 

32 

03 

CBD0 

CD 

88 

C3 

21 

14 

0B 

01 

08 

61 











C918 

0A 

C8 

C3 

3E 

C8 

03 

05 

lA 

BD 

CBD8 

9C 

CD 

88 

C3 

3E 

FF 

DF 

0D 

DD 

CE80 

FF 

F9 

FF 

F8 

3F 

FF 

FF 

C8 

F4 

C920 

11 

19 

05 

02 

11 

3A 

55 

C9 

9A 

CBE0 

FE 

20 

20 

19 

21 

D2 

CC 

AF 

C5 

CESS 

F0 

00 

00 

F8 

FE 

00 

07 

F8 

E5 

C928 

C6 

20 

32 

55 

C9 

20 

17 

3A 

A7 

CBE8 

BE 

28 

0C 

23 

BE 

28 

08 

23 

26 

CE90 

FF 

C0 

3F 

F8 

FF 

F9 

FF 

F8 

E5 

C930 

54 

C9 

3C 

32 

54 

C9 

FE 

A8 

4E 

CBF0 

BE 

28 

04 

23 

BE 

20 

06 

E5 

D6 

CE98 

IB 

05 

IB 

05 

01 

11 

01 

11 

64 

C938 

20 

0C 

3A 

52 

C9 

3C 

32 

52 

41 

CBF8 

CD 

89 

CC 

El 

77 

06 

04 

11 

95 

CEA0 

FF 

56 

AF 

F8 

AB 

CF 

3D 

58 

0B 

C940 

C9 

3E 

A0 

32 

54 

C9 

2A 

52 

72 











CEA8 

CE 

66 

67 

38 

39 

99 

99 

C8 

06 

C948 

C9 

3A 

54 

C9 

47 

0E 

08 

C3 

40 

SUM: 

94 

D7 

E8 

B8 

60 

53 

D7 

56 : 

:EB 

CEB0 

E6 

66 

66 

78 

A9 

99 

99 

58 

5D 

C950 

40 

C3 

01 

17 

A0 

00 

21 

IF 

FB 











CEB8 

06 

11 

12 

0B 

9E 

11 

05 

0B 

63 

C958 

00 

11 

CE 

C9 

CD 

35 

C4 

21 

8F 

CC90 

D2 

CC 

21 

08 

0B 

lA 

C5 

D5 

86 

CEC0 

FF 

3F 

CF 

F8 

F3 

E6 

7C 

F8 

52 

C960 

23 

01 

11 

D6 

C9 

CD 

35 

C4 

9A 

CC08 

E5 

CD 

A7 

CC 

21 

10 

00 

CD 

23 

CEC8 

9E 

79 

E7 

98 

33 

3F 

CC 

C8 

9C 

C968 

21 

IF 

03 

11 

DC 

C9 

CD 

35 

FB 

CC10 

99 

CD 

El 

D1 

Cl 

2C 

2C 

2C 

5D 

CED0 

66 

66 

66 

68 

FF 

F9 

FF 

F8 

89 

C970 

C4 

21 

22 

07 

11 

E6 

C9 

CD 

9B 

CC18 

2C 

13 

10 

E9 

3A 

D6 

CC 

FE 

12 

CED8 

01 

14 

IB 

14 

07 

02 

0E 

11 

6C 

C978 

35 

C4 

21 

22 

0E 

11 

ED 

C9 

11 

CC20 

04 

20 

B9 

3A 

D2 

CC 

21 

D3 

A9 

CEES 

IF 

FF 

FF 

F8 

FF 

FF 

FF 

C8 

DA 











CC28 

CC 

BE 

20 

46 

23 

BE 

20 

42 

33 

CEES 

3F 

FF 

DF 

F8 

7F 

01 

FF 

F8 

8C 

SUM: 

6F 

FD 

9B 

55 

2E 

7C 

B2 

28 

E0 

CC30 

23 

BE 

20 

3E 

21 

02 

11 

11 

84 

CEF0 

F0 

IF 

FF 

F8 

01 

FF 

FF 

F8 

FD 











CC38 

35 

CD 

CD 

35 

C4 

21 

0B 

13 

07 

CEF8 

IB 

14 

12 

08 

0A 

0B 

07 

0E 

73 

C980 

CD 

35 

C4 

21 

21 

17 

11 

F4 

24 

CC40 

11 

53 

CD 

CD 

35 

C4 

06 

0C 

09 











C988 

C9 

CD 

35 

C4 

21 

IF 

0B 

11 

EB 

CC48 

78 

E6 

07 

F6 

11 

D3 

FI 

21 

51 

SUM: 

2F 

54 

0D 

9C 

8D 

45 

D3 

DB : 

:AC 

C990 

FB 

C9 

CD 

35 

C4 

21 

IF 

0C 

D8 

CC56 

07 

0E 

CB 

40 

28 

05 

11 

11 

6F 











C998 

11 

FB 

C9 

CD 

35 

C4 

3A 

04 

D9 

CC58 

CD 

18 

03 

11 

24 

CD 

C5 

CD 

7C 

CF00 

FF 

F9 

FF 

F8 

3B 

5F 

AD 

C8 

FE 

C9A0 

CA 

3D 

C8 

FE 

05 

38 

02 

3E 

4A 

CC60 

35 

C4 

21 

80 

00 

CD 

99 

CD 

CD 

CF08 

35 

FF 

FA 

C8 

IF 

FF 

FF 

88 

9B 

C9A8 

04 

21 

IF 

0B 

01 

08 

80 

F5 

CD 

CC68 

Cl 

10 

DD 

3E 

11 

D3 

FI 

AF 

70 

CF10 

3F 

FF 

FF 

C8 

7F 

F9 

FF 

E8 

64 

C9B0 

E5 

CD 

9F 

C3 

El 

FI 

2C 

2C 

3E 

CC70 

18 

eB 

21 

07 

0F 

11 

5F 

CD 

97 

CF18 

0E 

11 

0E 

0E 

0E 

0B 

0E 

08 

6A 

C9B8 

3D 

20 

FI 

21 

26 

05 

01 

08 

A3 

CC78 

CD 

35 

C4 

3E 

01 

CD 

74 

CD 

13 

CF20 

9F 

FF 

FF 

F8 

FF 

FF 

FF 

C8 

5A 

C9C0 

20 

CD 

40 

C3 

21 

26 

09 

01 

41 











CF28 

3F 

FF 

FF 

B8 

FF 

FF 

FF 

38 

2A 

C9C8 

08 

50 

CD 

40 

C3 

C9 

4A 

FF 

3A 

SUM: 

DC 

55 

04 

98 

B4 

C0 

44 

26 : 

:AB 

CF30 

3F 

FF 

FF 

B8 

FF 

FF 

FF 

38 

2A 

C9D0 

4F 

43 

4F 

53 

45 

00 

4A 

FF 

C2 











CF38 

18 

08 

IB 

0B 

IB 

0E 

IB 

0B 

95 

C9D8 

4F 

48 

4E 

00 

48 

FF 

49 

2D 

A2 

CC80 

21 

00 

08 

CD 

99 

CD 

C3 

03 

22 

CF40 

FF 

FE 

7F 

C8 

3F 

E7 

FF 

F8 

61 

C9E0 

53 

43 

4F 

52 

45 

00 

FF 

FB 

76 

CC88 

C0 

21 

IE 

IF 

22 

0B 

C0 

CD 

D8 

CF48 

FF 

FE 

7F 

C8 

3F 

E7 

FF 

F8 

61 

C9E8 

CD 

DD 

CB 

D1 

00 

53 

FF 

54 

EC 

CC90 

06 

C0 

21 

D6 

CC 

34 

CD 

0B 

95 

CF50 

FF 

FE 

7F 

C8 

3F 

E7 

FF 

F8 

61 

C9F0 

41 

47 

45 

00 

2D 

3D 

3B 

2F 

A1 

CC98 

C5 

FE 

29 

38 

03 

3E 

9E 

C9 

CC 

CF58 

19 

05 

03 

14 

03 

08 

19 

0B 

64 

C9F8 

2E 

2C 

00 

20 

20 

20 

20 

20 

FA 

CCA0 

06 

98 

E6 

03 

87 

80 

C9 

FE 

55 

CF60 

FF 

F9 

FF 

C8 

7F 

FF 

FF 

C8 

04 











CCA8 

0 0 

2 0 

2 2 

CD 

B 0 

C 2 

F 3 

D 3 

1 7 

CF68 

3F 

w 


P ft 




P fi 

C i 

SUM: 

E7 

4C 

0F 

6D 

4B 

EF 

63 

46 : 

92 

CCB0 

E3 

DD 

7E 

00 

D3 

El 

FB 

3C 

4 I 

29 

CF70 

FF 

r r 

00 

r f 

0F 

L O 

F8 

7F 

F9 

FF 

1/ O 

E8 

0 A 

65 











CCB8 

3C 

FE 

A0 

20 

02 

3E 

98 

F3 

C5 

CF78 

lA 

0B 

02 

08 

19 

08 

10 

05 

65 

CA00 

20 

20 

20 

00 

05 

06 

08 

07 

7A 

CCC0 

D3 

E3 

DD 

77 

00 

3C 

DD 

77 

9A 











CA08 

F5 

C5 

2A 

0C 

CB 

2C 

22 

0C 

15 

CCC8 

01 

D3 

El 

FB 

C9 

CD 

B0 

C2 

B8 

SUM: 

23 

0F 

AD 

25 

55 

29 

F4 

F3 : 

; 69 

CA10 

CB 

2D 

E6 

01 

28 

05 

01 

08 

15 

CCD0 

18 

ED 

00 

00 

00 

00 

00 

53 

58 











CA18 

87 

18 

03 

01 

00 

00 

CD 

40 

B0 

CCDS 

FF 

54 

4F 

50 

20 

4E 

55 

4D 

02 

CF80 

CF 

FF 

F7 

F8 

FC 

FF 

F9 

F8 

A9 

CA20 

C3 

Cl 

FI 

10 

E2 

C9 

FE 

00 

2E 

CCE0 

42 

45 

52 

20 

57 

49 

54 

48 

35 

CF88 

FF 

CF 

FC 

F8 

FF 

FC 

FE 

78 

33 

CA28 

C8 

F5 

21 

22 

10 

5F 

16 

00 

85 

CCE8 

20 

53 

50 

41 

43 

45 

20 

42 

EE 

CF90 

FF 

FF 

CF 

38 

3F 

F9 

FC 

F8 

31 

CA30 

0E 

00 

AF 

CD 

D0 

C2 

FI 

3D 

4A 

CCF0 

41 

52 

FF 

FB 

00 

59 

FF 

4F 

34 

CF98 

03 

04 

0F 

0D 

15 

04 

01 

0E 

4B 

CA38 

E6 

0F 

21 

00 

CE 

FE 

00 

28 

0A 

CCF8 

55 

20 

43 

41 

4E 

20 

45 

4E 

FA 

CFA0 

FF 

F9 

FF 

F8 

3F 

FF 

FF 

C8 

F4 

CA40 

07 

47 

11 

20 

00 

19 

1 0 

FD 

A5 











CFA8 

7F 

F9 

FF 

E8 

3F 

FF 

FF 

C8 

64 

CA48 

22 

0E 

CB 

21 

00 

00 

22 

45 

83 

SUM: 

B4 

73 

87 

49 

67 

09 

D7 

A4 ; 

:E2 

CFB0 

7F 

F9 

FF 

E8 

3F 

FF 

FF 

C8 

64 

CA50 

C5 

21 

ID 

18 

22 

47 

C5 

CD 

16 











CFB8 

13 

05 

0E 

08 

0E 

08 

09 

05 

52 

CA58 

27 

C5 

21 

00 

00 

01 

08 

87 

9D 

CD00 

4A 

4F 

59 

20 

42 

4F 

4E 

55 

46 

CFC0 

FF 

7F 

EF 

F8 

3F 

CF 

FF 

C8 

3A 

CA60 

E5 

CD 

40 

C3 

El 

E5 

2E 

ID 

C6 

CD08 

53 

20 

47 

41 

4D 

45 

FF 

FB 

87 

CFC8 

FC 

7F 

FF 

F8 

3E 

FF 

FF 

C8 

76 

CA68 

CD 

40 

C3 

El 

24 

7C 

FE 

19 

68 

CDl 0 

00 

43 

FF 

4F 

4E 

47 

52 

4 1 

B9 

CFD0 

F3 

E7 

9F 

F8 

39 

F3 

FF 

C8 

64 

CA70 

20 

EE 

21 

01 

01 

E5 

CD 

40 

23 

CD18 

54 

55 

4C 

41 

54 

49 

4F 

4E 

70 

CFD8 

0F 

05 

14 

11 

9A 

0B 

03 

11 

62 

CA78 

C3 

El 

E5 

26 

16 

CD 

40 

C3 

95 

CD20 

53 

FF 

FB 

00 

20 

20 

20 

20 

CD 

CFE0 

FF 

FF 

FF 

C8 

3F 

FF 

FF 

F8 

FA 











CD28 

20 

20 

20 

20 

20 

20 

20 

20 

00 

CFE8 

FF 

FF 

FF 

C8 

3F 

FF 

FF 

F8 

FA 

SUM: 

90 

06 

38 

31 

C6 

93 

35 

8F ; 

: 1C 

CD30 

20 

20 

20 

20 

00 

49 

FF 

4E 

16 

CFF0 

FF 

FF 

FF 

C8 

3F 

FF 

FF 

E8 

EA 











CD38 

20 

4E 

45 

58 

54 

20 

53 

54 

26 

CFF8 

IB 

04 

01 

04 

04 

0A 

04 

10 

46 

CA80 

El 

E5 

26 

18 

CD 

40 

C3 

El 

B5 

CD40 

41 

47 

45 

FF 

CD 

20 

FF 

45 

FD 











CASS 

2C 

7D 

FE 

ID 

20 

E7 

21 

01 

ED 

CD48 

56 

45 

52 

59 

20 

42 

4 1 

4C 

35 

SUM: 

F5 

AC 

7B 

SA 

9B 

D0 

FB 

24 : 

100 

CA90 

01 

0 1 

00 

00 

CD 

40 

C3 

21 

F3 

CD50 

4C 

20 

00 

FF 

49 

53 

20 

57 

7E 











CA98 

1C 

01 

CD 

40 

C3 

3E 

01 

32 

5E 

CD58 

48 

49 

54 

45 

FF 

FB 

00 

53 

77 

DOOO 

F8 

03 

F 1 

03 

E9 

03 

E2 

03 

CO 

CAA0 

52 

C9 

21 

A0 

00 

22 

54 

C9 

IB 

CD60 

FF 

4F 

52 

52 

59 

FF 

CD 

20 

37 

Dees 

DB 

03 

D4 

03 

CD 

03 

C6 

03 

4E 

CAAS 

21 

01 

04 

22 

0C 

CB 

2A 

0E 

57 

CD68 

FF 

4E 

4F 

20 

42 

4F 

4E 

55 

F0 

Dei 0 

BF 

03 

B8 

03 

B1 

03 

AA 

03 

DE 

CAB0 

CB 

06 

04 

E5 

C5 

7E 

CD 

05 

CF 

CD70 

53 

FF 

FB 

00 

FE 

00 

28 

05 

78 

Dei8 

A4 

03 

gD 

03 

96 

03 

90 

03 

73 

CABS 

CA 

Cl 

El 

23 

22 

0E 

CB 

10 

9A 

CD78 

21 

89 

CD 

18 

03 

21 

91 

CD 

11 

D 02 e 

89 

03 

83 

03 

7C 

03 

76 

03 

0A 

CAC0 

F2 

2A 

0C 

CB 

2E 

01 

7C 

C6 

64 











De28 

6F 

03 

69 

03 

63 

03 

5D 

03 

A4 

CAC8 

03 

67 

22 

0C 

CB 

FE 

16 

20 

97 

SUM: 

41 

AE 

BF 

AF 

96 

EC 

B4 

43 : 

:D6 

Dese 

56 

03 

50 

03 

4A 

03 

44 

03 

40 

CAO0 

DD 

2A 

0E 

CB 

11 

ID 

C9 

01 

D8 











Dess 

3E 

03 

38 

03 

32 

03 

2C 

03 

EO 

CADS 

08 

00 

ED 

B0 

21 

0E 

14 

22 

0A 

CD80 

01 

08 

00 

1 1 

0E 

C8 

ED 

B0 

8D 

De4e 

26 

03 

21 

03 

IB 

03 

15 

03 

83 

CAES 

IF 

C6 

21 

0E 

00 

01 

08 

96 

B3 

CD88 

C9 

8A 

8C 

8E 

88 

8C 

88 

8A 

93 

De48 

0F 

03 

OA 

03 

04 

03 

FF 

02 

27 

CAES 

CD 

S8 

C3 

21 

02 

00 

22 

54 

B1 

CD90 

88 

8E 

8E 

8E 

8E 

8E 

8E 

8E 

6A 

Dese 

F9 

02 

F4 

02 

EE 

02 

E9 

02 

CC 

CAF0 

00 

11 

10 

CB 

3E 

10 

32 

5D 

C9 

CD98 

8E 

2B 

06 

FF 

00 

10 

FD 

7D 

48 

Dess 

E3 

02 

DE 

02 

D9 

02 

D4 

02 

76 

CAF8 

00 

DF 

05 

3E 

70 

32 

5D 

00 

21 

CDA0 

B4 

20 

F6 

C9 

CD 

03 

C8 

3E 

61 

D06e 

CE 

02 

C9 

02 

C4 

02 

BF 

02 

22 











CDA8 

0E 

32 

0C 

C0 

CD 

06 

C0 

CD 

6C 

Dees 

BA 

02 

B5 

02 

BO 

02 

AB 

02 

D2 

SUM: 

F8 

EE 

ID 

C9 

4B 

8B 

E6 

71 

:F9 

CDB0 

74 

CD 

AF 

2A 

IF 

C8 

F5 

E5 

D9 

De7e 

A6 

02 

A1 

02 

9C 

02 

98 

02 

83 











CDB8 

CB 

47 

28 

05 

01 

08 

84 

18 

E4 

De78 

93 

02 

8E 

02 

89 

02 

85 

02 

37 

CB08 

21 

16 

C8 

06 

28 

36 

FF 

23 

:85 

CDC0 

03 

01 

08 

80 

CD 

9F 

C3 

21 

DC 











CB08 

10 

FB 

C9 

00 

00 

00 

00 

00 

:D4 

CDC8 

60 

00 

CD 

99 

CD 

El 

FI 

3C 

A1 

SUM : 

94 

2A 

38 

2A 

D7 

2A 

7D 

29 : 

C7 


FMfJ'^o V ^ to (i')|-- ( 28 ) 


100 Oh! MZ 1986.10. 



































0080 

80 

02 

7B 

02 

77 

02 

72 

02 

EC 

D338 

03 

00 

03 

00 

03 

00 

03 

00 : 0C 

D5F8 

00 

01 

00 

01 

00 

01 

00 

01 : 

04 

0088 

6E 

02 

69 

02 

65 

02 

60 

02 

A4 

D340 

03 

00 

03 

06 

03 

00 

02 

0 0 : 0 B 











0090 

5C 

02 

58 

02 

53 

02 

4F 

02 

5E 

D348 

02 

00 

02 

00 

02 

00 

02 

00 :08 

SUM: 

A0 

FI 

90 

FD 

33 

51 

00 

5E : 

00 

0098 

4B 

02 

47 

02 

43 

02 

3E 

02 

IB 

D350 

02 

00 

02 

00 

01 

00 

01 

00 : 06 











DOA0 

3A 

02 

36 

02 

32 

02 

2E 

02 

D8 

D358 

01 

00 

01 

00 

01 

00 

01 

00 :04 

0600 

00 

01 

00 

0 1 

00 

00 

AA 

BE : 

6A 

00A8 

2A 

02 

26 

02 

22 

02 

IE 

02 

98 

D360 

01 

00 

00 

57 

45 

45 

4B 

32 :5F 

D608 

92 

AC 

BE 

20 

00 

00 

0F 

00 : 

2B 

OOBO 

lA 

02 

16 

02 

12 

02 

0F 

02 

5 9 

D368 

20 

00 

00 

09 

00 

09 

00 

09 :3B 

0610 

OF 

0 1 

0F 

0 1 

0F 

0 1 

0F 

00 : 

3F 

O0B8 

0B 

02 

07 

02 

03 

02 

00 

02 

ID 

D370 

00 

09 

00 

09 

00 

09 

00 

08 :23 

D618 

0F 

00 

0F 

FF 

0F 

FF 

0F 

00 : 

3A 

OOC0 

53 

54 

52 

4E 

47 

31 

00 

00 

BF 

D378 

00 

08 

00 

08 

00 

08 

00 

08 : 20 

D620 

0F 

00 

OF 

0 1 

0F 

01 

0F 

01 : 

3F 






0 C 


0C 

0J 

30 










D628 

0F 

0 1 

0F 

00 

0F 

00 

0F 

00 : 

3D 

0000 

0C 

00 

0C 

00 

0C 

00 

0C 

00 

30 

SUM : 

54 

1 1 

32 

71 

75 

5F 

79 

4B :A0 

D630 

0F 

00 

0F 

0 1 

0F 

01 

0E 

01 : 

3E 

0008 

0B 

00 

0B 

00 

0B 

00 

0B 

00 

2C 










D638 

OE 

00 

OE 

00 

OE 

00 

OD 

FF : 

36 

DOEO 

0B 

00 

0B 

00 

0B 

00 

0B 

00 

2C 

D380 

00 

07 

00 

07 

00 

07 

00 

07 : 1C 

D640 

0D 

FF 

OD 

FF 

0D 

00 

0C 

00 : 

31 

O0E8 

OA 

00 

0A 

00 

0A 

00 

0A 

00 

28 

D388 

00 

07 

00 

06 

00 

06 

00 

06 : 19 

D648 

0C 

00 

OC 

01 

0C 

01 

0B 

01 : 

32 

OOF0 

0A 

00 

0A 

00 

0A 

00 

0A 

00 

28 

D390 

00 

06 

00 

06 

00 

06 

00 

05 : 17 

D650 

0B 

0 1 

0B 

0 1 

OB 

00 

OA 

00 : 

2D 

D0F8 

09 

00 

09 

00 

09 

00 

09 

00 

24 

D398 

00 

05 

00 

05 

00 

05 

00 

05 : 14 

D658 

0A 

00 

0A 

00 

0A 

00 

09 

0 0 : 

27 











D3A0 

00 

04 

00 

04 

00 

04 

00 

04 : 1 0 

D660 

69 

00 

09 

00 

09 

00 

08 

00 : 

23 

SUM: 

BC 

64 

99 

5E 

6D 

41 

05 

10 

DA 

D3A8 

00 

04 

00 

03 

00 

03 

00 

03 : 0D 

D668 

08 

00 

08 

00 

08 

00 

07 

00 : 

IF 











D3B0 

00 

03 

00 

03 

00 

03 

00 

02 :0B 

D670 

07 

06 

07 

00 

07 

00 

06 

00 : 

IB 

0100 

09 

00 

09 

00 

09 

00 

09 

00 

24 

D3B8 

00 

02 

00 

02 

00 

02 

00 

02 : 08 

D678 

06 

00 

06 

00 

06 

60 

05 

00 : 

17 

0 108 

08 

00 

08 

00 

08 

00 

08 

00 

20 

D3C0 

00 

01 

00 

01 

00 

01 

00 

01 : 04 











0110 

08 

00 

08 

00 

08 

00 

08 

00 

20 

D3C8 

00 

01 

00 

00 

00 

00 

00 

00 : 01 

SUM: 

37 

AF 

63 

24 

A5 

03 

54 

CO : 

29 

0118 

07 

00 

07 

00 

07 

00 

07 

00 

1C 

D3D0 

00 

00 

00 

00 

00 

00 

06 

00 : 00 











0120 

07 

00 

07 

00 

07 

00 

07 

00 

1C 

D3D8 

00 

00 

00 

00 

00 

00 

00 

00 :0O 

D680 

05 

00 

05 

00 

04 

00 

04 

00 

12 

0128 

06 

00 

06 

00 

05 

00 

05 

00 

16 

D3E0 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D688 

04 

00 

04 

00 

03 

9A 

93 

96 

CE 

0130 

05 

00 

04 

00 

04 

00 

04 

00 

11 

D3E8 

00 

00 

57 

45 

45 

4B 

33 

20 :7F 

D690 

95 

BD 

31 

00 

F8 

0D 

FA 

OD 

8F 

0138 

03 

00 

03 

00 

02 

00 

00 

00 

08 

D3F0 

00 

00 

09 

00 

09 

00 

09 

00 : IB 

D698 

FB 

0C 

FC 

0B 

FD 

OA 

FE 

09 

1C 

0140 

00 

00 

00 

00 

00 

00 

00 

53 

53 

D3F8 

09 

00 

08 

00 

08 

00 

08 

00 : 21 

D6A0 

FE 

07 

FF 

05 

FF 

03 

FF 

01 

0B 




















D6A8 

FF 

00 

00 

00 

00 

00 

00 

00 

FF 

0150 

00 

0C 

00 

0C 

00 

0C 

00 

0C 

30 

SUM: 

09 

28 

68 

6A 

56 

70 

44 

43 :50 

D6B0 

06 

00 

00 

06 

00 

00 

00 

00 

00 

0158 

00 

0C 

00 

OB 

00 

0B 

00 

0B 

2D 










D6B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0160 

00 

0B 

00 

0B 

00 

OA 

00 

0A 

2A 

D40O 

08 

00 

07 

00 

07 

00 

07 

00 : ID 

D6C0 

00 

60 

00 

00 

00 

06 

00 

00 

00 

0168 

00 

0A 

00 

0A 

00 

0A 

00 

09 

27 

D408 

06 

00 

06 

00 

06 

00 

06 

00 : 18 

D6C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0170 

00 

09 

00 

09 

00 

09 

00 

09 

24 

D410 

05 

00 

05 

00 

05 

00 

04 

00 : 13 

D6D0 

00 

00 

00 

00 

00 

00 

00 

06 

00 

0178 

00 

09 

00 

08 

00 

08 

00 

08 

21 

D418 

04 

00 

04 

00 

04 

00 

03 

00 : OF 

D6D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 











D420 

03 

00 

03 

00 

02 

00 

02 

00 :0A 

D6E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM: 

89 

9 1 

82 

84 

64 

3C 

30 

9A 

8A 

D428 

02 

00 

02 

00 

01 

00 

01 

0 0 :06 

D6E8 

00 

06 

00 

00 

00 

00 

00 

00 

00 











D430 

01 

00 

00 

00 

00 

00 

00 

00 :01 

D6F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0180 

00 

08 

00 

08 

00 

07 

00 

07 

IE 

D438 

00 

00 

00 

00 

00 

00 

00 

00 :00 

D6F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0188 

00 

07 

00 

07 

00 

07 

00 

06 

IB 

D440 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

— 



— 



— 




0190 

00 

06 

00 

05 

00 

05 

00 

04 

1 4 

D448 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

SUM: 

96 

DO 

35 

10 

FB 

B4 

8E 

AD : 

: 95 

0198 

00 

04 

00 

03 

00 

03 

00 

02 

0C 

D450 

00 

00 

00 

00 

00 

00 

00 

00 : 00 











D1A0 

00 

02 

00 

01 

00 

0 1 

00 

01 

05 

D458 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D700 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D460 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D708 

00 

00 

00 

00 

00 

00 

00 

00 

00 

O1B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D468 

00 

00 

00 

00 

06 

00 

00 

00 : 00 

D710 

00 

00 

00 

00 

9A 

93 

96 

95 

58 

01B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D470 

00 

57 

45 

45 

4B 

34 

20 

00 :86 

D718 

BD 

32 

00 

BF 

0B 

E2 

0C 

05 

AC 

O1C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D478 

00 

09 

00 

09 

00 

08 

00 

08 :22 

D726 

0E 

28 

0E 

4B 

0D 

51 

OC 

4D 

46 

D1C8 

00 

00 

00 

00 

00 

00 

53 

54 

A7 










D728 

0C 

47 

0B 

42 

0A 

3C 

09 

37 

26 

0100 

52 

4E 

47 

33 

00 

00 

0C 

00 

26 

SUM: 

ID 

60 

60 

4E 

64 

3C 

37 

08 : 0A 

D730 

09 

31 

08 

2C 

07 

26 

07 

21 

C3 

0108 

0C 

00 

0C 

00 

0C 

00 

OB 

00 

2F 










D738 

06 

IB 

05 

16 

04 

10 

04 

OB 

5F 

O1E0 

0B 

00 

0B 

00 

0B 

00 

0A 

00 

2B 

D486 

00 

07 

00 

07 

00 

06 

00 

06 : lA 

D740 

03 

05 

02 

00 

02 

FA 

01 

F5 

FC 

01E8 

0A 

00 

0A 

00 

09 

00 

09 

00 

26 

D488 

00 

05 

00 

04 

00 

04 

00 

03 : 10 

D748 

00 

EF 

00 

CO 

0C 

C3 

0A 

C6 

4E 

O1F0 

09 

00 

09 

00 

08 

00 

08 

00 

22 

D490 

00 

03 

00 

02 

00 

02 

00 

01 : 08 

D750 

07 

C7 

04 

C8 

0 1 

C8 

00 

C8 

2B 

01F8 

08 

00 

08 

00 

07 

00 

07 

00 

IE 

6498 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D758 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 











D4A0 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D760 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 

SUM: 

84 

69 

79 

4B 

2F 

17 

8C 

68 ; 

:EB 

D4A8 

00 

00 

00 

00 

00 

00 

00 

00 :00 

D768 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 











D4B0 

00 

00 

00 

00 

00 

00 

00 

00 :0O 

D770 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

26 

0200 

07 

00 

06 

00 

06 

00 

05 

00 

18 

D4B8 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D778 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 

0208 

04 

00 

04 

00 

03 

00 

02 

00 

0D 

D4C0 

00 

00 

00 

00 

60 

00 

00 

00 : 60 

— 

— 

— 

- - - ■ 

- - - - 


— 


- 


0210 

02 

00 

01 

00 

00 

00 

00 

00 

03 

D4C8 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

SUM: 

F0 

90 

2C 

FE 

D6 

A5 

CD 

B5 

A7 

0218 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4D0 

00 

00 

00 

00 

00 

00 

00 

00 : 00 











0220 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4D8 

00 

00 

00 

00 

00 

00 

06 

00 : 00 

D780 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 

0228 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4E0 

00 

00 

00 

00 

00 

00 

00 

00 :00 

D788 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 

0230 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4E8 

00 

00 

00 

00 

00 

00 

00 

00 : 00 

D790 

00 

C8 

00 

C8 

00 

C8 

00 

C8 

20 

0238 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4F0 

00 

00 

00 

00 

00 

60 

00 

00 : 00 

D798 

00 

C8 

00 

9A 

93 

96 

95 

BD 

DD 

0240 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D4F8 

42 

4 1 

53 

45 

20 

20 

00 

00 : 5B 

D7A6 

33 

00 

48 

OB 

5E 

0D 

75 

0C 

72 

0248 

00 

00 

00 

00 

00 

00 

00 

00 

00 










D7A8 

62 

0B 

76 

0A 

65 

OB 

77 

0C 

E0 

0250 

00 

00 

00 

00 

00 

53 

54 

52 

F9 

SUM: 

42 

50 

53 

52 

20 

2C 

00 

OA :8D 

D7B0 

68 

OB 

79 

0A 

6C 

0B 

7A 

0C 

F3 

0258 

4E 

47 

34 

00 

00 

0C 

00 

0C 

El 










D7B8 

70 

0B 

7C 

0A 

74 

OB 

7D 

0C 

09 

0260 

00 

0B 

00 

0B 

00 

0A 

00 

0A 

2A 

D508 

00 

00 

0A 

00 

0A 

00 

0A 

0 0 : 1E 

D7C0 

78 

OD 

7E 

OB 

7C 

09 

7F 

07 

19 

0268 

00 

09 

00 

09 

00 

08 

00 

07 

21 

D508 

0A 

00 

0A 

00 

6A 

00 

OA 

00 :28 

D7C8 

7F 

05 

00 

03 

00 

00 

00 

00 

87 

0270 

00 

06 

00 

05 

00 

04 

00 

03 

12 

D510 

0A 

00 

OA 

00 

OA 

00 

0A 

00 :28 

D7D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0278 

00 

02 

00 

00 

00 

00 

00 

00 

02 

D518 

0A 

00 

0A 

00 

0A 

00 

0A 

00 :28 

D7D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 











D520 

0A 

00 

0A 

00 

0A 

00 

OA 

00 :28 

D7E0 

60 

00 

00 

00 

00 

00 

00 

60 

66 

SUM: 

5B 

63 

3F 

19 

09 

75 

5B 

72 ; 

: 61 

D528 

0A 

00 

0A 

00 

0A 

00 

OA 

00 : 28 

D7E8 

00 

00 

00 

00 

00 

00 

00 

00 

00 











D530 

0A 

00 

0A 

00 

0A 

00 

0A 

00 : 28 

D7F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0280 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D538 

0A 

00 

0A 

00 

0A 

00 

0A 

00 : 28 

D7F8 

06 

00 

00 

00 

00 

00 

00 

00 

00 

0288 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D540 

0A 

00 

0A 

00 

0A 

00 

0A 

00 :28 







— 




0290 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D548 

OA 

00 

0A 

00 

OA 

00 

0A 

00 :28 

SUM: 

64 

53 

31 

29 

B2 

25 

F7 

4C 

2B 

0298 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D550 

OA 

00 

0A 

00 

0A 

00 

0A 

00 : 28 











O2A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D558 

0A 

00 

0A 

00 

0A 

00 

0A 

00 : 28 

D800 

00 

00 

00 

00 

00 

00 

06 

00 

00 

02A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D560 

0A 

00 

0A 

00 

0A 

00 

0A 

00 :28 

D868 

00 

00 

00 

00 

00 

00 

00 

00 

00 

O2B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D568 

0A 

00 

0A 

00 

0A 

00 

0A 

00 : 28 

D81 0 

00 

60 

00 

00 

00 

00 

00 

00 

00 

02B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D570 

0A 

00 

0A 

00 

OA 

00 

0A 

00 :28 

D818 

00 

00 

00 

00 

00 

00 

00 

00 

00 

O2C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D578 

0A 

00 

0A 

00 

0A 

00 

0A 

9D :C5 

D820 

60 

00 

9A 

93 

96 

95 

BD 

34 

49 

n 9 p « 

Vi Vi 

0 0 

A A 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 










D828 

0 0 

0 0 

OF 

00 

OF 

00 

OF 

00 

2D 

U ^ O o 

0200 

x) X) 

00 

00 

W V 

00 

00 

00 

00 

00 

00 

00 

SUM : 

96 

00 

A0 

00 

A0 

00 

A0 

9D : 13 

D830 

0F 

00 

0F 

00 

00 

00 

00 

00 

IE 

0208 

00 

00 

00 

00 

57 

45 

45 

46 

2C 










D838 

00 

00 

00 

00 

00 

00 

0C 

00 

0C 

O2E0 

31 

20 

00 

00 

09 

00 

09 

00 

63 

D580 

A0 

96 

96 

A4 

33 

00 

00 

0F :AC 

D840 

0C 

60 

0C 

00 

0C 

00 

0C 

00 

30 

02E8 

09 

00 

09 

00 

09 

00 

09 

00 

24 

D588 

00 

0F 

00 

0F 

00 

0F 

00 

0F :3C 

D848 

00 

00 

00 

00 

00 

00 

00 

00 

00 

O2F0 

09 

00 

08 

00 

08 

00 

08 

00 

2 1 

0590 

00 

0F 

00 

0F 

00 

0E 

00 

lU) :39 

D850 

00 

00 

09 

00 

09 

00 

09 

00 

IB 

02F8 

08 

00 

08 

00 

08 

00 

08 

00 

20 

D598 

00 

OC 

00 

0B 

00 

OA 

00 

09 : 2A 

D858 

09 

00 

09 

00 

00 

00 

00 

00 

12 











D5A0 

00 

08 

00 

07 

00 

06 

00 

06 : IB 

D860 

00 

00 

00 

00 

00 

00 

07 

00 

07 

SUM: 

4B 

20 

1 9 

00 

79 

45 

67 

4B ; 

:F4 

D5A8 

00 

06 

00 

06 

00 

06 

00 

66 : 18 

D868 

07 

00 

07 

00 

07 

00 

07 

00 

1C 











D5B0 

00 

06 

00 

06 

00 

05 

00 

05 : 16 

D870 

07 

00 

00 

06 

00 

00 

00 

00 

07 

0300 

07 

00 

07 

00 

07 

00 

07 

00 

1C 

D5B8 

00 

05 

00 

05 

00 

05 

00 

05 : 1 4 

D878 

00 

00 

00 

00 

04 

00 

04 

00 

08 

0308 

07 

00 

07 

00 

07 

00 

06 

00 

IB 

D5C0 

00 

05 

00 

05 

00 

04 

00 

04 : 1 2 

- - • 










0310 

06 

00 

06 

00 

06 

00 

06 

00 

18 

D5C8 

00 

04 

00 

04 

60 

04 

00 

04 : 1 0 

SUM: 

32 

06 

DD 

93 

C5 

.9 5 

FF 

34 

: 2F 

0318 

06 

00 

06 

00 

05 

00 

05 

00 

16 

D5D0 

00 

04 

00 

04 

00 

03 

00 

03 : OE 











0320 

05 

00 

05 

00 

05 

00 

05 

00 

14 

D5D8 

00 

03 

00 

03 

00 

03 

00 

03 :0C 

D880 

04 

00 

04 

00 

04 

00 

00 

00 : 

: 0C 

0328 

05 

00 

04 

00 

04 

00 

04 

00 

11 

D5E0 

00 

03 

06 

03 

00 

02 

00 

02 :0A 

D888 

00 

00 

00 

00 

00 

00 

00 

00 

: 60 

0330 

04 

00 

04 

00 

04 

00 

04 

00 

1 0 

D5E8 

00 

02 

00 

02 

00 

02 

00 

02 : 08 

D890 

02 

00 

02 

00 

02 

60 

02 

00 : 

: 08 











D5F0 

00 

02 

00 

02 

00 

01 

00 

0 1 : 06 

D898 

02 

00 

02 

00 

00 

00 

00 

00 

: 04 
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D8A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

DB6e 

11 

37 

1 3 

36 

13 

37 

13 

36 

: 24 

DE08 

11 

36 

1 1 

37 

11 

36 

11 

37 

IE 

U8A8 

00 

9A 

93 

96 

95 

BO 

35 

00 

4A 

DB68 

13 

37 

1 3 

36 

13 

37 

13 

36 

: 26 

DEIO 

16 

36 

16 

37 

16 

36 

16 

37 

32 

D8B0 

00 

00 

00 

OE 

00 

00 

00 

OC 

27 

DB70 

13 

37 

1 3 

07 

13 

07 

13 

17 

: A8 

DEIS 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

D8B8 

00 

OB 

00 

OA 

00 

09 

20 

08 

46 

DB78 

13 

17 

13 

17 

OF 

36 

OF 

37 

:DF 

DE20 

11 

36 

1 1 

17 

11 

17 

11 

17 

BF 

D8C0 

20 

07 

20 

06 

20 

05 

20 

04 

96 











DE28 

11 

17 

1 1 

37 

16 

36 

16 

37 

09 

D8C8 

20 

03 

20 

02 

20 

00 

20 

00 

85 

SUM: 

23 

DE 

26 

B7 

22 

AE 

28 

A7 

: 7D 

DE30 

16 

36 

16 

37 

16 

07 

16 

07 

D3 

D8D0 

38 

OF 

38 

OF 

38 

OE 

38 

OD 

1 9 











DE38 

16 

17 

16 

17 

16 

17 

13 

36 

DO 

D8D8 

38 

OC 

38 

OB 

38 

OA 

38 

09 

OA 

DB80 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DE40 

13 

37 

OF 

36 

OF 

37 

OF 

36 

lA 

D8E0 

20 

08 

20 

07 

20 

06 

20 

0 5 

9A 

DB88 

13 

07 

13 

07 

13 

17 

13 

1 7 

88 

DE48 

OF 

37 

13 

07 

13 

07 

13 

17 

A4 

D8E8 

20 

0 1 

20 

03 

20 

02 

20 

0 1 

8A 

DB90 

13 

17 

OF 

36 

OF 

37 

OE 

36 

F9 

DE50 

13 

17 

13 

17 

18 

36 

18 

37 

FI 

D8F0 

00 

OF 

00 

OE 

00 

00 

00 

OC 

36 

DB98 

OE 

37 

OE 

36 

0& 

37 

13 

36 

17 

DESS 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

D8F8 

00 

OB 

00 

OA 

00 

09 

00 

08 

26 

DBA0 

1 3 

37 

13 

36 

13 

37 

14 

36 

27 

DE60 

16 

36 

16 

37 

16 

36 

16 

37 

32 











DBA8 

14 

37 

14 

36 

14 

37 

OE 

36 

24 

DE68 

18 

36 

18 

37 

lA 

36 

lA 

37 

3E 

SUM: 

F8 

FO 

8B 

F2 

8B 

OE 

4 7 

48 

80 

DBBO 

OE 

17 

OE 

17 

OE 

17 

OE 

17 

94 

DE70 

16 

36 

16 

37 

1 6 

36 

16 

17 

12 











DBB8 

OE 

37 

13 

36 

13 

37 

1 3 

36 

21 

DE78 

2B 

32 

2B 

32 

2B 

12 

2C 

32 

55 

D900 

20 

07 

20 

06 

20 

05 

20 

04 

96 

DBCO 

1 3 

37 

13 

07 

13 

07 

13 

17 

A8 











U908 

20 

03 

20 

02 

20 

0 1 

20 

00 

86 

DBC8 

13 

17 

1 3 

17 

OF 

36 

OF 

37 

DF 

SUM: 

5F 

E2 

5F 

BA 

68 

A1 

66 

D9 : 

A2 

D91C 

00 

OF 

00 

OE 

00 

00 

00 

OC 

36 

DBD0 

18 

36 

18 

37 

18 

36 

18 

37 

3A 











D918 

00 

OB 

00 

OA 

00 

09 

00 

08 

26 

DBD8 

OF 

07 

OF 

07 

OF 

17 

OF 

17 

78 

DE80 

2D 

12 

2E 

91 

2E 

12 

2D 

12 

7D 

0920 

00 

07 

00 

06 

00 

05 

00 

04 

16 

DBEO 

OF 

17 

13 

36 

13 

37 

14 

36 

03 

DESS 

2E 

12 

30 

32 

30 

32 

30 

12 

46 

0928 

00 

03 

00 

02 

00 

01 

00 

00 

06 

DBE8 

14 

37 

14 

36 

14 

37 

13 

36 

29 

DE90 

32 

32 

33 

12 

2E 

B1 

30 

12 

CA 

0930 

66 

07 

40 

09 

CC 

DA 

A2 

DC 

AA 

DBFO 

13 

37 

13 

36 

13 

37 

14 

36 

27 

DE98 

2E 

12 

29 

B1 

30 

12 

2E 

12 

9C 

0938 

78 

OE 

E6 

OF 

46 

E0 

00 

02 

43 

DBF8 

14 

37 

1 1 

36 

1 1 

37 

1 3 

36 

23 

DEAO 

2B 

B1 

2C 

12 

2B 

12 

29 

32 

B2 

0 94 0 

03 

32 

07 

32 

03 

32 

07 

32 

DC 








— 



DEA8 

2B 

32 

2C 

12 

2D 

12 

2E 

13 

IB 

0948 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

SUM: 

26 

8E 

28 

97 

24 

DD 

26 

E7 : 

:81 

DEBO 

30 

12 

2E 

FI 

2B 

32 

2B 

32 

IB 

0950 

08 

32 

03 

32 

08 

32 

00 

32 

DB 











DEBS 

2B 

12 

2C 

32 

2D 

12 

2E 

91 

99 

09 58 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

DC00 

13 

37 

13 

36 

13 

37 

13 

36 

26 

DECO 

2E 

12 

2D 

12 

2E 

12 

30 

32 

21 

09 6 0 

OA 

32 

0 5 

32 

OA 

32 

05 

32 

E6 

DC08 

13 

37 

13 

36 

1 3 

37 

13 

07 

F7 

DECS 

30 

32 

30 

12 

32 

32 

33 

12 

4D 

09 68 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

DC10 

13 

07 

13 

17 

13 

17 

13 

17 

98 

DEDO 

37 

B1 

38 

12 

37 

12 

35 

71 

21 

0970 

05 

32 

08 

32 

05 

32 

08 

32 

E2 

DC18 

OF 

36 

OF 

37 

18 

36 

18 

37 

28 

DED8 

30 

31 

37 

12 

35 

12 

33 

71 

95 

09 78 

OA 

32 

05 

32 

OA 

1 2 

08 

12 

A 9 

DC20 

18 

36 

18 

37 

13 

07 

13 

07 

D1 

DEEO 

2E 

31 

2D 

12 

2E 

12 

30 

32 

40 











DC28 

13 

17 

13 

17 

13 

17 

OF 

36 

C3 

DEES 

30 

32 

32 

12 

30 

32 

2E 

12 

48 

SUM: 

IB 

A3 

9? 

70 

7F 

IC 

1 3 

6 A 

3D 

DC30 

OF 

37 

OE 

36 

OE 

37 

OE 

36 

13 

DEF0 

33 

FI 

2B 

32 

2B 

32 

2B 

12 

IB 











DC38 

OE 

37 

13 

36 

13 

37 

13 

36 

21 

DEF8 

2C 

32 

2D 

12 

2E 

91 

2E 

12 

9C 

0980 

07 

12 

05 

1 2 

03 

32 

0? 

32 

9E 

DC40 

1 3 

37 

14 

36 

14 

37 

14 

36 

29 











0988 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

DC48 

14 

37 

OE 

36 

OE 

17 

OE 

17 

D9 

SUM: 

EE 

IB 

EF 

7D 

EF 

DE 

ED 

DE : 

;0D 

0990 

03 

32 

07 

32 

08 

32 

03 

3 2 

DD 

DC50 

OE 

17 

OE 

1 7 

OE 

37 

13 

36 

D8 











09 98 

08 

32 

03 

32 

00 

32 

03 

32 

D6 

DC58 

13 

37 

13 

36 

1 3 

37 

13 

07 

F7 

DF00 

2D 

12 

2E 

12 

30 

32 

30 

32 

43 

D9A0 

00 

32 

03 

32 

05 

32 

08 

32 

D8 

DC60 

13 

07 

13 

17 

13 

17 

13 

17 

98 

DF08 

30 

12 

32 

32 

33 

12 

2E 

B1 

CA 

D9.\8 

0 5 

32 

08 

32 

03 

32 

07 

32 

DF 

DC68 

OF 

36 

OF 

37 

18 

36 

18 

37 

28 

DFIO 

30 

12 

2E 

12 

29 

B1 

30 

12 

9E 

D9B0 

03 

32 

07 

32 

05 

32 

08 

32 

DF 

DC70 

18 

36 

18 

37 

OF 

07 

OF 

07 

C9 

DF18 

2E 

12 

2B 

B1 

2C 

12 

2B 

1 2 

97 

09B8 

OA 

32 

OE 

32 

03 

32 

07 

32 

EA 

DC78 

OF 

17 

OF 

17 

OF 

17 

13 

36 

BB 

DF20 

29 

32 

2B 

32 

2C 

12 

2D 

12 

35 

D9C0 

03 

32 

07 

32 

03 

32 

07 

32 

OC 











DF28 

2E 

13 

30 

12 

2E 

FI 

2B 

32 

FF 

D9C8 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

SUM: 

21 

AC 

20 

C9 

24 

6E 

29 

49 : 

;ba 

DF30 

2B 

32 

2B 

12 

2C 

32 

2D 

12 

37 

0900 

03 

32 

07 

32 

08 

32 

0 3 

32 

DD 











DF38 

2E 

91 

2E 

12 

2D 

12 

2E 

12 

7E 

0908 

08 

32 

00 

32 

03 

32 

07 

32 

DA 

DC80 

13 

37 

14 

36 

14 

37 

14 

36 

29 

DF40 

30 

32 

30 

32 

30 

12 

32 

32 

6A 

D9E0 

03 

32 

07 

32 

OA 

32 

05 

32 

El 

DC88 

14 

37 

13 

36 

13 

37 

13 

36 

27 

DF48 

33 

12 

37 

B1 

38 

12 

37 

12 

CO 

D9E8 

OA 

32 

05 

32 

03 

32 

07 

32 ' 

;E1 

DC90 

13 

37 

14 

36 

14 

37 

1 1 

36 

26 

DF50 

35 

71 

30 

31 

37 

1 2 

35 

12 

97 

09F0 

03 

3 2 

07 

32 

0 5 

32 

08 

32 ; 

:DF 

DC98 

1 1 

37 

13 

36 

13 

37 

13 

36 

24 

DF58 

33 

71 

2E 

31 

2D 

12 

2E 

12 

82 

D9F8 

05 

32 

08 

32 

OA 

32 

05 

32 : 

;E4 

DCAO 

13 

17 

7F 

10 

16 

36 

16 

37 

52 

DF60 

30 

32 

30 

32 

32 

12 

30 

32 

6A 











DCA8 

16 

36 

16 

37 

16 

07 

1 6 

07 

D3 

DF68 

2E 

12 

33 

FI 

2B 

32 

2B 

32 

IE 

SUM : 

4 0 

00 

66 

00 

4B 

20 

53 

20 : 

: A1 

DCBO 

16 

17 

16 

17 

16 

17 

13 

36 

DO 

DF70 

2B 

12 

2C 

32 

2D 

12 

2E 

91 

99 











DCB8 

13 

37 

OF 

36 

OF 

37 

OF 

36 

lA 

DF78 

2E 

12 

2D 

12 

2E 

12 

30 

32 

21 

OAOO 

OA 

1 2 

08 

12 

07 

1 2 

05 

12 ; 

: 6 6 

DCC0 

OF 

37 

16 

07 

16 

07 

16 

17 

AD 











DAOS 

03 

32 

07 

32 

03 

32 

07 

32 : 

:DC 

DCC8 

16 

17 

16 

17 

13 

36 

1 3 

37 

ED 

SUM: 

ED 

DE 

EE 

IB 

EF 

FE 

FI 

FE ; 

:B0 

DA 10 

03 

32 

07 

32 

03 

32 

07 

32 ; 

;DC 

DCDO 

11 

36 

1 1 

37 

11 

36 

1 1 

37 

IE 











0A18 

08 

32 

03 

32 

08 

32 

03 

32 : 

:DE 

DCD8 

16 

36 

16 

37 

16 

36 

1 6 

37 

32 

DF80 

30 

32 

30 

12 

32 

32 

33 

12 

4D 

DA20 

00 

32 

03 

32 

00 

32 

03 

32 : 

:CE 

DCEO 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DF88 

2E 

B1 

30 

12 

2E 

12 

29 

B1 

3B 

DA28 

05 

32 

08 

32 

05 

32 

08 

32 ; 

:E2 

DCE8 

1 1 

36 

11 

17 

1 1 

17 

1 1 

17 

BF 

DF90 

30 

12 

2E 

12 

2B 

B1 

2C 

1 2 

9C 

DA30 

0 3 

32 

07 

3 2 

03 

32 

07 

32 : 

:DC 

DCF0 

11 

17 

1 1 

37 

16 

36 

16 

37 

09 

DF98 

2B 

12 

29 

32 

2B 

32 

2C 

12 

33 

DA38 

0 5 

32 

0 8 

3 2 

OA 

3 2 

OK 

3 2 : 

:E0 

DCFS 

16 

36 

16 

37 

16 

07 

16 

07 

D3 

DFAO 

2D 

12 

2E 

13 

30 

12 

2E 

FI 

El 

DA 10 

03 

3 2 

07 

32 

03 

32 

07 

3 2 

:DC 











DFA8 

2B 

32 

2B 

32 

2B 

12 

2C 

32 

55 

DA 4 8 

03 

32 

07 

32 

03 

32 

07 

32 : 

: DC 

SUM: 

39 

EA 

AB 

B4 

44 

9A 

3E 

CA : 

: 68 

DFB0 

2D 

12 

2E 

91 

2E 

12 

2D 

12 

7D 

0A5 0 

03 

32 

07 

32 

03 

32 

07 

32 

:DC 











DFB8 

2E 

12 

30 

32 

30 

32 

30 

12 

46 

DA58 

08 

32 

0 3 

32 

08 

32 

00 

32 

: DB 

DDOO 

16 

17 

16 

17 

16 

17 

13 

36 

DO 

DFC0 

32 

32 

33 

12 

37 

B1 

38 

12 

DB 

DAGO 

03 

32 

07 

32 

03 

32 

07 

3 2 

: DC 

DD08 

1 3 

37 

OF 

36 

OF 

37 

OF 

36 

lA 

DFC8 

37 

12 

35 

71 

30 

31 

37 

12 

99 

DA68 

OA 

32 

0 3 

32 

OA 

32 

0.5 

32 

: E6 

DD10 

OF 

37 

13 

07 

13 

07 

13 

17 

A4 

DFDO 

35 

12 

33 

71 

2E 

31 

2D 

12 

89 

DA70 

03 

32 

07 

32 

03 

32 

07 

32 

:DC 

DD18 

13 

17 

13 

17 

18 

36 

18 

37 

FI 

DFD8 

2E 

12 

30 

32 

30 

32 

32 

12 

48 

9A78 

05 

32 

08 

32 

05 

32 

08 

32 : 

:E2 

DD20 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DFE0 

30 

32 

2E 

12 

33 

FI 

7F 

FO 

35 











DD28 

16 

36 

16 

37 

16 

36 

16 

37 

32 

DFE8 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

SUM : 

4B 

00 

66 

00 

40 

00 

66 

00 : 

: 64 

DD30 

18 

36 

18 

37 

1 A 

36 

lA 

37 

3E 

DFFO 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 











DD38 

16 

36 

16 

37 

16 

.36 

16 

37 

32 

DFF8 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

nA80 

OA 

32 

05' 

32 

OA 

1 2 

0 8- 

1 2 

A 9 

DD40 

16 

36 

16 

37 

16 

36 

1 6 

37 

32 











DA88 

07 

1 2 

05 

1 2 

03 

32 

07 

3 2 

9E 

DD48 

16 

07 

16 

07 

16 

17 

1 6 

17 

94 

SUM: 

E5 

D9 

E4 

78 

E4 

95 

35 

36 

:FE 

DA9 0 

03 

32 

07 

32 

03 

32 

07 

32 

DC 

DD50 

16 

17 

13 

36 

13 

37 

OF 

36 

05 











DA98 

03 

32 

07 

32 

08 

32 

03 

32 

DD 

DD58 

OF 

37 

OF 

36 

OF 

37 

16 

07 

EE 

EO0O 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

OAAO 

08 

32 

03 

32 

00 

32 

03 

32 

D6 

DD60 

16 

07 

16 

17 

16 

17 

16 

17 

A4 

E0O8 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DAA8 

00 

32 

03 

32 

05 

32 

08 

32 

D8 

DD68 

13 

36 

13 

37 

11 

36 

1 1 

37 

22 

EOlO 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DABO 

05 

32 

08 

32 

03 

32 

07 

32 

DF 

DD70 

11 

36 

1 1 

37 

1 6 

36 

16 

37 

28 

E018 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

0AB8 

03 

32 

07 

32 

05 

32 

08 

32 

DF 

DD78 

16 

36 

16 

37 

18 

36 

18 

37 

36 

E02O 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

OACO 

OA 

32 

OE 

32 

03 

32 

07 

32 

EA 











E028 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DAC8 

03 

32 

07 

32 

7F 

10 

1 3 

36 

4 6 

SUM: 

48 

A8 

45 

AD 

51 

D7 

51 

DD : 

: 38 

E03e 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DADO 

1 3 

37 

13 

36 

13 

37 

13 

07 

F7 











E038 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

0AD8 

1 3 

07 

1 3 

1 7 

1 3 

1 7 

1 3 

1 7 

98 

DDse 

18 

36 

18 

37 

11 

36 

1 1 

17 

OC 

E040 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DAE0 

OF 

36 

OF 

37 

18 

36 

1 8 

37 

28 

DD88 

11 

17 

11 

17 

11 

17 

1 1 

37 

CO 

E048 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DAE 8 

18 

36 

1 8 

37 

13 

07 

1 3 

07 

D1 

DD90 

16 

36 

16 

37 

16 

36 

16 

37 

32 

E050 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DAFO 

1 3 

1 7 

13 

17 

1 3 

1 7 

OF 

3 6 

C3 

DD98 

16 

07 

16 

07 

16 

17 

16 

17 

94 

E058 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

BAF8 

OF 

37 

OE 

36 

OE 

37 

OE 

36 

13 

DDA0 

16 

17 

13 

36 

13 

37 

OF 

36 

05 

EO60 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 











DDA8 

OF 

37 

OF 

36 

OF 

37 

13 

07 

EB 

E068 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

SUM: 

A3 

CC 

BO 

DC 

1 9 

8B 

BB 

AO 

: FA 

DDBO 

13 

07 

13 

17 

13 

17 

13 

17 

98 

E07O 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 











DDB8 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

E078 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

BC 

DBOO 

OE 

37 

1 3 

36 

1 3 

37 

13 

36 

2 1 

DDCO 

18 

36 

18 

37 

16 

36 

16 

37 

36 











DB08 

1 3 

37 

1 4 

36 

1 4 

37 

1 4 

36 

29 

DDC8 

16 

36 

16 

37 

18 

36 

18 

37 

36 

SUM: 

FO 

00 

FO 

00 

FO 

00 

FO 

00 

:C0 

DBl 0 

1 4 

37 

OE 

36 

OE 

17 

OE 

17 

D9 

DDD0 

lA 

36 

lA 

37 

16 

36 

16 

37 

3A 











DB18 

OE 

1 7 

OE 

1 7 

OF. 

37 

1 3 

3 6 

D8 

DDD8 

16 

36 

16 

37 

16 

36 

16 

37 

32 

E080 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

:BC 

DB20 

13 

37 

13 

36 

1 3 

37 

1 3 

07 

F7 

DDEO 

16 

36 

16 

37 

16 

07 

1 6 

07 

D3 

E088 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

:BC 

DB28 

1 3 

07 

1 3 

17 

1 3 

1 7 

1 3 

1 7 

98 

DDES 

16 

17 

16 

17 

16 

17 

13 

36 

DO 

E090 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

:BC 

0 0 3 0 

OF 

3 6 

OF 

37 

18 

3 5 

18 

3 7 

28 

DDFO 

13 

37 

OF 

36 

OF 

37 

OF 

36 

lA 

E098 

7F 

FO 

7F 

FO 

7F 

FO 

7F 

FO 

:BC 

DB38 

18 

36 

18 

37 

OF 

07 

OF 

07 

C9 

DDF8 

OF 

37 

16 

07 

16 

07 

16 

17 

AD 

E0A0 

7F 

FO 

7F 

FO 

7F 

FO 

00 

00 

:4D 

0B40 

OF 

1 7 

OF 

17 

OF 

17 

1 3 

36 

BB 











E0A8 

00 

00 

00 

00 

00 

00 

00 

00 

: 00 

DB48 

1 3 

37 

1 4 

36 

1 4 

37 

1 4 

36 

29 

SUM: 

51 

A8 

51 

AD 

46 

89 

43 

8D : 

96 








. ... 



DB50 

1 4 

37 

1 3 

36 

1 3 

37 

1 3 

36 

27 











SUM: 

7B 

BO 

7B 

BO 

7B 

BO 

FC 

CO 

: 3D 

0358 

1 3 

37 

14 

36 

14 

37 

1 1 

36 

26 

DEO0 

16 

17 

16 

17 

13 

36 

13 

37 : 

ED 












102 Oh! MZ 1986.10. 






























MZ-700 /1500, MZ-8OB/gOO0/g£00 /g5D0 


Nishiya Hisanori 


9 n •?o mm-Mvi> issiisj 1 4 o 
tzt)i^Tto ■SL-mOi7'^'> a > T L J -7 ^mA!^0-<z 'J 7 L^^:' 

< fzi^l'c MZ<7)<£iK(i:jt42000^<7)Jl*J: ‘j J|;liSv,'C7)Tl-jTo 


RUN 14 t f C i)‘-C')if^ J: 7 7j:rn n - 

^'"**111®uisn, ^cDf,i i -r„ 

iix, f£r.i3>^-^W1rir-.u<Diihi 
<5 -T'to 

y-A CO |A] $ ii 3= A S^ a i> I), 
c' 771' A 4-^m L T lie 4-ffI| t CO *Fi 

fl'J-T'to iliCC0Jic’l^4':g tt 4t'>->:?n>?c0 

f4c7jiiM-7-ci'|!, 0 t;4 4 t^(f/vr'L i 
i.' r— A —7<'— C 4 I) I -f „ f4c A UM i> 
4'tur'4 <, t l> f |!SLS-T'Ji)i 4 •) L 

ito 

r-A:t-^-f-i:4'7'C fc 7-fg7V^ 

r~^ 

MZ-700M'Cli:fi—y h x^—X 

^-, [X], £1 Scosoco^-^fst-i-'i to 

BB'CTiuf^c: L, LDt'ijii dWiifii-r'iii:) 

H-c'f^A (Liiffii'fiiti) ci^' 
■V >Z°-r'to MZ-80B/2000/2200/2500)ig-r' 
lit C02, 4, 6,L i to 

^LtSl x-<-xt- 

< 4'S>i.'o £]<0^ 

- 4 F'l'11,'J>:>*S:co -1 > 11 ^' (X 

K t W 7 t !< C'Jli'M) 4f!t; 7 c t *s-r' ^ i 

to 


tFiiiii') 4^<)o ^cot l■0®c<O^# 

tt4i.'-t >; 7 C' < nt C'i t 

cori^iL A-r'< 



To It.t ft ^ 4 •) -CL T 

< 4o fiJLT ifilL-C fcfli-C < 

i^BMo Ci'O^S AgHt t, <kWt^ 

lilA'ytJit 5 o ft4 *m >) T4 1 ' t ^ I: 

4 i 4 i C I'OU'^o'Olt 
5 t, ggi' < 11;t.;eS\4-fe y 7 4ii± < o 

x^— K.T—t'T^f^fo X'.'X i. b ^ 

^^i^Jik-oX < So T^liBi:liftX4-1.' 

t S CO ft <" (:£]co T - 4 fl' L 

- ■> 'S^ > 7 y <" J: 7 i:t So 

^*‘1 16-rt) M34S 11> t o tli5EA 

fLi 7o •illll«f-C'i>4i.'fflTo 

ttt.aFfUiC'COjiiAo tli'T < iSofi,' 

XJkmi, I 4tltT < i*nsco4i^y 

iSt 11 TcO i 7 4 

TT t.ttfyiC'COjiAo 11414 t S A*- 

d. KC'ttfTU^L-C < So 

h.*-c0ifiT;4o'-hfto tlt0t 

S'>>0lfil4M.S t, 
''i.'ti J; 7j 0-t y 7 4Jt^L-Cffio4 
J; 7 i;»i.'*'*>- 7 -C < So tWftfif, 
t > t n 10t t F fi|i:^-4 ?) o r L r f) 
TxJj4t A t 4 c 'o 
i7>4r'. 



tfy.t !:*• <']il!i.'o t>tDiy0fi 

{) li t A f M If 4 c'o 4#i: iv > t 7 t i 
t4^*‘4LS t, ftfjliMii 4c'*'tS 0 

3 0 (t'-Aijifli SO}-) 0i!&i;4So 

4 4'. S s t 4141 liT 0 f£tL 4 4f t 
®SS t**-rT So 

tit.|ic04*‘-r'C'1bltA?SC'o fit 

igc^< J?F-7-ri.'So 

ziic, 0iicii t > t"A c /I'.isi L t < s 0 
f, 'j$c'ttit*' y ,'i‘,-c & Tt <-1:f-A t 
—1:40 f Li7St{)^)yito 

! ') ^mizoDz 


s 0tn t"7 Afii7< t y 4li t A f r 
y r y i-r'faio-ri'it^T, Mz-15000 

QD-BASICf 'li i§fj $ i 44A o MZ-8OK/C/12 
000 y?Ii48K 4 il) It, t ocf 0POKE, CO 
LOR, USR4mP^tL'CREMX4'03X t 
I' 4f!i)4L|t4 A t SfL i 7o MZ- 
2500, X1 turbo-C'li tC^ y S0 




mz^i\z 


fili, 8fIffifflS:$4i-Ci'i to ■?-4 lT 
4i'E-5?4fHl-^t.'*“jt'.'i t*T, 

4 LoA-yijf^LX < 4'$t.'o iicetot 
iix/j*' 4 c' 4 i{) 75 y it*', -ytiy^it 
4 Litffif- 4 -^-r'eijt s t *f-r'& i t it 


-Tits*'', t‘o ■Ib'7*‘t0fi^lg4 LT |t 
4 4 * 1: 41 li f Sife 4 fli 4 c' o L *■ L, 
'Etx011 h 11 > ft 1: li!t.^;*“'E'^o 

A.A".t> h AM^-06''t yo t> h ^ 

111 f > liJ5cyi?$EltS*‘U'i.'o 

1-4.ft h AfSl^0lti: yo t> h X 

4tatf>-rTiT4yjy?i)tj'o ^04 
*i:WSi:j£#ltt, *-4 yTi;!r!i.'o 


•r'#tt.iic?a-r't*s 7 y y 70T41.' 

X11:-71' f li @ fx^ L f A T < 4*$ C-o 
c0rnftAfii, yT,'i^4W4(bt 
4*1:, $B16#4t!ii:t"-14*|!iaiA-r', 
USR (68) X'^ 4 it, L, USR (71) -r'^4jl:. 
*Sti'7Ct4To'CC'ito t"—10 

fiS**T$(,,(it'/ns^ii® < 4 y it0-r' 

#4ifi:0P§(i:lilt-;£ L X < 4T C'o 


«« 4tt<7)^ ioj 





































X h 1 MZ~700/ l^0(700fflS-BASIC) 


10 GOTO7940 
20 REM Hi y 

30 COLOR, , 7:CURS0R22, 22 :PRINT"7!1'“ ■;WA$(W) 

40 CURS0R22,20:PRINT“7$ “ ";NA$(L) 

50 CURSOR 1,22;PRINT"SC0RE -";SC*10 
60 CURSOR 1, 20:PRINT"7-/'j3i^ -”;KT;” 

70 XT'VAL (TI$) :IF L = 1 THEN HN-1 
80 IF JU>0 THEN 4770 
90 IF KT<'0 THEN 120 

100 IF (RT”1)♦ {XT>300) THEN RT-2:GOTO120 
110 GOTO140 

120 REM ■■ 3-^';3? %' i< WM 

130 COLOR,,2:CURS0R 8,20:PRINT" 0 0000 :GOTO7090 
140 AT-0:REM 


>i) MZ-l500fflQD-BASlCT'{ii!)# 
MZ-700fflS-BASIC^::'^yffl < fz$ t'o 


260 IF A$ 
270 IF AS 
280 IF AS 
290 IF AS 
300 IF AS 
310 IF AS 
320 IF AS 
330 IF AS 


150 Ql-INT (20»RND (1))+1 
160 Q2-INT (10*RND (1))+1 
170 IF (Ql-1)♦ (NE<>0) THEN KT-KT+504Q2 

180 IF NBol THEN 200 .. 

190 IF NJ"X THEN 11 - I NT (5*RND (1)) + 1:BB’ 1 000* I 1 = GOTO 6990 
200 COLOR,,5:CURS0R X,15:PRINT KS (N) 

210 IF TX<3 THEN TX»3 

220 COLOR,,3:CURS0RTX, 14;PRINT SS(L) 

230 IF TX-l-X THEN KT-1^1 0*L : MU S I C" - #D-If C " : GO SUB 7 0 1 0 
240 REM IHi ::>7'j3^ ■■ 

250 GET AS 

'B' then X-X-1:KT-KT-1 
“B" THEN X=X+1:KT-KT-1 
"X" THEN W-W+1 
"V' THEN !? = W-1 
“C" THEN 3900 
' ' THEN 390 
'D" THEN JT-1 :GOTO4750 
“D" then JT-1:GOTO4960 
340 IF N-9 THEN W-1 
350 IF W-0 THEN W=8 
360 IF X>-36 THEN X-36 
370 IF X<-4 THEN X=4 
380 GOTO410 

390 REM WM •r'y ) 37^'^ H 

400 ON W+2 GOTO 410,3720,3720,3810,5800,4040,4210,5040,5300,5420 
410 REM Hi 7^ ) 37^'^ A HI 

4 2 0 COLOR,,3:CURS0RTX,14:PR1NT SS (L) 

430 IF Lol THEN 460 

440 IF TN>2 THEN NE-INT (9*RND (1))+1 

450 IF NE-0 THEN 480 

460 REM H ^ Wm 

470 TW-N E:L-NE-H ;0N NE GOTO 840, 9 80, 1230, 1510, 1680, 1880, 2260, 2590, 3360 
480 REM 

490 IF TX<3 THEN TX-3 

500 IF (X-TX)<0 THEN ZG-2:GOTO520 

510 ZG--2 

520 S1-INT( (ZG+6) »RND (1) )+1 
530 S2“INT ( (-ZG+6) ♦RND (1) ) +1 
540 IF MY-1 THEN 560 

5 50 TS- 300* (NE+1) :MY-1 
560 IF TX<3 THEN TX-3 
570 IF TS<-0 THEN 690 

580 IF (Sl<-3)♦ (TX<33) THEN TX-TX+1:TS-TS-. 1 

590 IF (S2<-3)♦ (TX>0) THEN TX-TX-1:TS-TS-. 1 

600 IF S2>-5 THEN 630 

610 IF (KK->3) ♦ (KY-1) THEN 820 

620 GOTO20 

630 REM H ( 7 ^) WM 

640 IF JT-1 THEN GOTO20 

6 50 COLOR,,3:CURS0R TX+2, 1 5:PR I NT'-|":TS-TS-1 

660 IF ( (X-TX) >0) * { (X-TX) <4) THEN HU S I C' If C " : KT-KT-2 0* L : GO SUB7 0 1 0 
670 CURSOR TX + 2, 15:PRINT' 

680 GOTO20 

690 REM ■■ 7 ^ ■■ 

700 IF JT-1 THEN GOTO80 

710 CURSOR TX,14:PRINT S 1 S : MUSIC'-D' 

720 COLOR,,5:CURS0R X,15:PRINT KS (N) 

730 COLOR, , 2:CURS0R TX, 1 7 : PR I NT'XMA” 

74 0 COLOR, , 7:CURS0RTX-1, 1 5 : PR I NT'h' !f 7 ' 

750 FORI-0TO2500:NEXT 
760 TN-TN+1 

770 R2-INT (3*RND (1)) + 1:SC-SC+20»R2*L 
780 CURSOR TX, 17:PRINT' 

790 CURSOR TX-1,15:PRINT" 

800 TX-INT(16*RND(1))+1 
810 IF TX<-3 THEN 800 

820 IF Lol THEN TN = 0 : TH - 0 : L - 1 : NE - 0 : MY - 0 

830 TS-300:GOTO418 

84 0 REM -h' BB 

850 HN-1: IF YA-1 THEN 890 

860 R7-INT(4*RND (1)) + l 

870 IF R7-1 THEN 890 

880 GOTO540 

890 YA“YA+1 

900 IF (JU-1) + (JU-2) THEN YA-0:GOTO920 

910 FORI-0TO8:POKESB16,I:USR (68) :NEXT:USR (7 1) 

9 20 IF (YA>3) + (YA-3) THEN 960 
930 Gl-INT (6*RND (1))+1 
940 IF Gl<3 THEN 20 
950 GOTO480 

960 COLOR,,2:CURS0R X,14:PR I NT'>-•• ' 

970 FORI-0TO800:NEXT:HN-1:KT-0:GOTO20 

980 REM H H 

990 R8-INT (4*RND (1)) :HN-1 

1000 IF R8-1 THEN BO-1 

1010 IF R8-2 THEN BO-2 

1020 IF R8-3 THEN BO-3 

1 030 IF (R8-0) + (JT-1) THEN 480 

1 040 R9-INT (10*RND (1))+1 

1050 IF R9-1 THEN 1070 

1060 GOTO1100 

1 0 70 COLOR, , 7:CURS0R TX-2, 1 2 : P RI NT ' 37 ' t-'7 ' : F OR I - 0TO 1 0 0 0 : NEXT 


h —Xh —y—■5:’! —MIU ! Ezr-\.'i>(D? 
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1 080 CURSOR TX-2,12:PRINT"!! ':FOR I-0TO1 250 :NEXT:COLOR,,3 
1090 CURSOR TX-2,12:PRINT' 

1100 CURSOR TX+2,14:PRINT BO$ (BO) 

1110 FORI=0TO100:NEXT 
1120 IF (X-TX)<8 THEN 1140 
1130 GOTO1180 
1140 IF JU-1 THEN 1180 
1150 IF JU-2 THEN 1180 
1160 IF (X-TX)<1 THEN 1180 

1170 COLOR, ,7:CURS0R X, 1 2 : PR 1 NT“ a' it" : KT-KT - 4 5 0 : MU S 1 C " - C - D - D ' : GO SUB 7 0 1 0 
1180 CURSORTX+2,14:PRINT BK$ (BO) 

1190 CURSOR X, 12:PRINT' 

1 200 Hl-INT(6»RND(1) ) 

1210 IF Hl<4 THEN 20 
1220 GOTO 480 
1 230 REM H ^^7' ■■ 

1240 COLOR,,3:CURSOR TX,14:PRINT S$(L) 

1 2 50 KM-INT (2»RND (1)) :HN-1 

1 260 IF (KM»1)♦ (JT-0) THEN 1280 

1270 GOTO540 

1 280 P = 1NT (6*RND (1) ) +1 

1290 IF TX+P>37 THEN P“0 

1300 FORI'ITOP 

1310 CURSOR TX+I,14:PRINT S$(L) 

1320 NEXT 

1330 TX-TX+P:COLOR,,3 

1340 CURSOR TX+2,14:PRINT" " 

1 350 CURSOR TX+2, 15:PRINT'A" 

1360 CURSOR TX+2,15:PRINT' ' 

1 370 CURSOR TX+2, 16:PRINT"A" 

1380 CURSOR TX+2,16:PRINT' ” 

1 390 IF (X-TX-2) + (X-TX-l) + (X-TX«0) THEN AT-1:GOTO 14 1 0 

1410 COLOR,, 7:CURS0R X,12:PRINT"7'!f“:FORI-3TO20;POKE$B16,l:USR(68) :NEXT:USR(71) : 
KT-KT-500 

1 420 CURSOR X,12:PRINT" '•:GOSUB7010 
1 430 COLOR,,3:CURS0R TX,14:PR1NT S$ (L) 

1440 FORI-ITOP 

1 450 CURSOR TX-I,14:PRINT S$ (L) 

1460 NEXT 

1470 TX-TX-P 

1480 Ul-INT (6*RND (1)) + 1 

1490 IF Ul<3 THEN 20 

1500 GOTO480 

1510 REM H H 

1520 AT-0:HN-1 

1 530 COLOR,,3:CURS0R TX,14:PRINT S$ (L) 

1 540 R5-INT ( (10-UY)»RND (1)) + 1 

1550 UY-UY+1 

1560 IF UY>8 THEN UY-8 

1 570 IF (R5-1)♦ (JT-0) THEN 1590 

1580 GOTO480 

1 590 COLOR,,3:R1-INT (3*8ND (1))+1 
1 600 CURSOR TX+2, 14:PRINT“/||D<" 

1610 IF Rl-1 THEN COLOR, , 7 : CURSOR TX-1, 1 2 : PR I NT": FOR I = 0TO7 5 0 : NEXT 
1620 CURSOR TX+2,14:PRINT" Q " 

1630 COLOR,,3:CURS0R TX+3,15:PR I NT' h'•FOR I-0TO500 :NEXT 

1640 CURSOR TX-1,12:PRINT" 

1 650 IF (X-TX<1) + (X-TX>3) THEN 1670 
1660 KT-KT-858:HUSIC"-#E#G":GOSUB7010 
1670 CURSOR TX+3,15;PRINT" ":GOTO480 

1 680 REM H 

1690 HN-3:IF JT-1 THEN 480 
1 700 Y2-INT (3*RND(1))+ 1 
1710 IF Y2-1 THEN 480 
1 720 FORI-0TO3:COLOR,, 3 
1730 CURSOR TX+2,14:PRINT"rrrOaa 
1 740 CURSOR TX+2, 14:PRINT" rrrBaa 
1 750 CURSOR TX+2, 15:PRINT"-'7-»nDB 
1 760 CURSOR TX+2, 15:PRINT"-'-'Jna 
1770 NEXT:USR(71) 

1780 IF (X-TX>0)♦ (X-TX<7) THEN 1800 
1790 GOTO1850 

1 800 COLOR,,3:CURS0R TX,14IPRINT S$ (L) :COLOR,,5:CURSOR X,15:PRINT KS (N) 

1810 COLOR,,7:CURS0R TX,12:PR I NT':FOR I-0TO750 :NEXT 
1820 CURSOR TX-2, 12:PRINT':;i.<fa'3ry>" :FORI-0TO 1 50 0 :NEXT 
1830 CURSOR TX-2,12:PRINT' 

1840 KT-KT-1500:GOSUB7010:GOTO20 
1850 Yl-INT (6»RND(1))+1 
1860 IF Yl<3 THEN 20 
1870 GOTO480 
1880 REM WM + WM 
1890 HN-2:IF JT-1 THEN 480 
1 900 Y2-INT(7*RND(1) ) 

1910 IF Y2>-1 THEN 480 

1 920 IF (X-TX=3) + (X-TX-4) + (X-TX-5) THEN F-1:GOTO1950 
1 930 IF (X-TX-2) + (X-TX-3) + (X-TX-4) THEN F-2:GOTO1950 
1940 GOTO480 
1 950 Yl-INT (4*RND (1)) 

1960 'IF Yl-1 THEN 460 
1970 IF F-2 THEN 2140 

1 980 REM Ml (v'v^") Ml 

1990 IF TX>27 THEN 1930 

2000 COLOR,,3:TX-TX+l:CURS0R TX,14:PRINT S$(L) 

2010 COLOR,,7:CURS0R TX,12:PR 1 NT"a,?!!";COLOR,,1 

2 0 20 FORI-0TO5:POKE$B16,U12:USR (68) 

2030 CURSOR TX + 2, 14:PRINT"A" 5CURSORTX+2, 14:PRINT" " 

2040 CURSOR TX+2,15:PRINT'--":CURS0RTX+2,15:PRINT" 

2 050 CURSOR TX+2, 16 :PRINT"V"-CURSORTX + R, 16:PR1NT" 

2060 CURSOR TX,12:PRINT" 

2070 COLOR,, 5:CURS0R X,15:PRINT K$(N) _ 

2080 CURSOR TX,14:PRINT' BSQ DBS EBBS ~:TX-TX + 7 
2090 COLOR,,3:CURS0R TX,14:PRINT S$(L) 

2100 COLOR,, 7:CURSOR TX,12:PRINT' : FOR I - 0TO 5 0 0 : NEXT 

2110 CURSOR TX,12:PRINT"yj>y'^":FORI-0TO1500:NEXT 
2120 CURSOR TX,12:PRINT" ":KT-KT-900 

2130 COLOR,,7:CURSOR X, 12:PRI NT *y'7!!":FOR I-0TO 1 000 :NEXT:CURSOR X,12:PRINT" 

•:GOTO20 

2140 REM Ml + 7 y>Ft^y> Ml 


" :POKE$B16,RND (1)*2:USR(6 8) 
":POKE$B16,RND (1) +l:USR(68) 

" :POKE$B16,RND (1) :USR(68) 

' :P0KE$B16,RND (1)♦!.2:USR(68) 


" :NEXT:USR(71) 


LO-D CD465}-T-r{:-^^ “MZ-2000/2200lfJ 

n- im ( 17 ) 


105 


:FORI“0TO1000:NEXT 
:CURSOR X,15:PR1NT K$(N) 


2150 COLOR,,3:CURS0RTX,14:PRINT S$(L) 

2160 COLOR,,5:CURS0R X,15:PRINT KS(N) 

2170 COLOR,,3:TX-TX+1rCURSORTX,14:PRINT S$(L) 

2180 COLOR,,7:CURS0R TX+1,12:PR I NT"a, 7 !':FOR I•0TO500 :NEXT 

2190 COLOR,,3:CURS0R TX+2,15:PR I NT"—COLOR,,2:CURSOR X+2, 1 5:PR I NT "i' :FOR I - 50T 
0 0STEP-2.3:P0KE$B16,I:USR (68) :NEXT:USR (71) 

2200 HN-3:KT-KT-400 
2210 CURSOR TX+1,12:PR1NT" 

22 2 0 COLOR,,7:CURS0R X, 12:PR I NT"3* 77 ! 

2230 COLOR,,5:CURS0RTX+2,15:PRINT" | 

2240 COLOR,,3:CURS0RTX, 14:PR1NT S$ (L) 

2250 CURSOR X,12:PRINT" ":X-X-1 :GOTO20 

2260 REM ■■ 

2270 HN-3: IF JT-1 THEN 480 
2280 Y2- INT (7*RND (1) ) + 1 
2290 IF Y2-1 THEN 2510 
2300 IFTX->23THEN 2530 
2310 IF Y2>-5 THEN 480 
2320 SQ-INT (15»8ND(1))+1 
2330 IF X>34 THEN SQ-35-TX 
2340 FORI-0TO2:COLOR, , 3 
2350 CURSOR TX+2,15:PR I NT"rr'= MUSIC" + #C" 

2360 CURSOR TX+2, 1 5: PR I NT"-'-'" 

2370 CURSOR TX+2, 1 5 : PR INT"^'. " : HUS IC"+#C " 

2380 CURSOR TX+2,15:PR I NT":NEXT 

239 0 COLOR,,6:FOR I-0TOSQ:POKESBl6,I NT(RND(1)»5 0) :USR (68) 

2400 CURSOR TX+3+1,17:PRINT"W":NEXT:USR (71) 

2410 IF (TX+SQ+2>-X) ♦ (TX<X) THEN COLOR, , 7 : CURSOR X, 1 2 : PR I NT " ■> 

T:GOTO2430 
2420 GOTO2470 

2430 CURSOR X,12:PRINT" ■’:KT-KT-650 

2440 COLOR,,7:CURS0R TX,12:PR I NT"t":FOR I-0TO500 :NEXT 
2450 CURSOR TX-2, 1 2: PR I NT" " : FOR I - 0TO 1 0 0 0 : NEXT 

2460 CURSOR TX-2,12:PR I NT" 

2470 FORI-0TOSQ 

2480 CURS0RTX+3+I,17:PRINT" ":NEXT 
2490 COTO20 

2500 Y3-INT(2<RND (1)) + 1 
2510 IF TX<7 THEN 2550 
2520 IF Y3-1 THEN 20 
2530 FORI-0TO2 

2540 COLOR,,3:CURS0R TX-1,14:PR I NT S$ (L) :NEXT:TX-TX-I:GOTO 20 
2550 Y3-INT (2*RND (1) ) + 1 
2560 IF Y3-1 THEN 20 
2570 FORI-0TO2 

2580 COLOR,.3:CURS08 TX+1,14:PR I NT S$ (L) :NEXT:TX-TX+I:GOTO 20 
2590 REH ■■ >><7 H 
2600 HN-3:IF JU<>0 THEN 480 
2610 IF Ul-1 THEN 800 
2620 Y3-INT (7*RND(1))+ 1 
2630 IF Y3>1 THEN 2650 
2640 GOTO 480 
2650 ZX-X-TX 

2710 
2840 


:FORI-0TO750:NEX 


IF ZX-7 THEN 
IF ZX-5 THEN 
IF ZX-2 


2660 
2670 
2680 
2690 
2700 GOTO480 
2710 REM M 
2720 COLOR,, 
2730 CURSOR 


: THEN 3150 

1 THEN 2990 

1 

( ) ^+7 Mi 

3:IF TX>18 THEN 480 

TX, 15:PRINT K7$ 


TX+2,13:PR1NT" 

emHhDBXm 

VEIiil/~ 

TX+2,13:PRINT' 

QQ BS B3S 

BBS ":FORI-0TO15:NEXT 

TX+4,10:PRINT" 

t3«7! " 

y 

TX+4,12:PRINT" 

8CB3MM9i—'E 

IXUU<' :P0KE$B16,2:USR(68) 

TX+4,12:PRINT" 

BS EB E 

IJ^^Q ' 

TX+4, 12:PRINT" 

eEBB iiESBB 

3' -: POKESBl6, l: USR (68) 

TX+4,12:PRINT' 
TX + 4, 10:PR1NT" 

OS Ems 

" :USR (71) 

3 EB ' 


2820 TX-TX+10:CURSOR TX,14:PRINT S$ (L) 

2830 KT-KT-500:GOTO3350 
2840 REM MU Mi 

2850 COLOR,, 3:CURS0R TX-2, 1 5 : PR INT"-*-'-'*^-'-* " : MUSI C" R" 


:HUSIC"+#C" 

:HUSIC'+#D" 

:HUSIC"+«E" 

:MUSIC"+#G" 

:MUSIC"+«B" 


2860 CURSOR TX-2,14:PR I NT" 

2870 CURSOR TX-2,13:PRIHT" 

2880 CURSOR TX-2,13:PR I NT" 

2890 CURSOR TX-2,14:PRINT" 

2900 CURSOR TX-2,15:PRINT" 

2910 CURSOR TX,15:PRINT K7$ 

2920 TX-TX+3:KT-KT-1000 
2930 CURSOR TX,14:PRINT S$(L) 

2940 CURSORTX+2,14:PRlNT"--0:•" 

2950 COLOR, , 7:CURS0R X,12:PR I NT"7*7!!":FOR I -0TO 1 000:NEXT:COLOR,,2 
2960 CURSOR TX+2,14:PRINT" O " : CURSORX, 1 2:PR I NT" ":C0L0R,,7 

2970 CURSOR TX-1,12:PR I NT" -:FORI-0TO500 :NEXT 

2 980 CURSOR TX-2, 1 2 : PR I NT" >> j ■)": FOR I - 0TO 5 0 0 : NEXT: CURSORTX-2, 12: PRINT" 

■ :GOTO3350 

2990 REM Mi l.74rv? 9>77" Mi 
3000 COLOR,,3:CURS0RTX,15:PRINT K7$ 

3010 COLOR,,7:CURS0RTX,12:PRINT"*t-M" 

30 2 0 FORI-0TO1 5 :COLOR,,3:P0KESB16 , (RND (1 )*20)+200 :USR(68) 

3030 CURSORTX-1, 14:PRINT" DOS QD ' 

3040 COLOR,,7:CURS0R X+3,12:PR I NT 'D"7!": COLOR,,3 
3050 CURSORTX-1, 14:PRINT" /BS^S 
3060 CURSORTX-1,14:PRINT" 

3070 CURSOR X+3,12:PRINT" 

3080 CURSORTX-1,14:PRINT" 

3090 CURSORTX-1,14:PRINT" 

3100 NEXT:USR(71) 

3110 CURSOR TX,12:PRINT" 

3120 CURSOR TX,14:PRINT S$(L) 

3130 COLOR,,7:CURS0R TX,12;PR1NT' ":FOR 1 -0TO500:NEXT 

3140 CURSOR TX-2, 12:PRINT"l.7^+9 7>77'" : FOR 1 - 0TO8 0 0 : NEXT : CURS ORTX-2, 1 2 : PR 1 NT" 
":KT-KT-800:GOTO3350 
3150 REM MSI '17^+7 7*77' Mi 
3160 COLOR, , 7:CURS0R TX, 1 2 : PR 1 NT't -( • ! " 

3170 COLOR,,3:F0RI-0TO10 _ 

3180 CURSOR TX+1, 13:PRINT"| I ESB I BZMBieEB&/I':P0KE$B16, 20e:USR (68) 


qq 

QQ2] 


106 Oh! MZ 1986.10. 


i j: 9 c,. h IX < nz> iiii:X 

mn m) 


3190 

3280 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3458 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3598 
3600 
3618 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3798 
3800 
3810 
3820 
3830 
3840 
3858 
386 0 
3870 
3880 
3890 
3900 
3910 
3920 
3938 
3940 
3950 
3968 
3970 
3980 
3998 
4000 
4010 
4 028 
4030 
4040 
4050 
4860 
4 070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4 200 
4210 
4 2 20 
4230 
4240 
4250 
4260 


CURSOR TX+1, 13:PRINT' E Oa OB EC m3 ' 

CURSOR TX+l, 13:PRINT''| / WMl /fgWjfWKe gn / [' ;P0KE$B16, 150:USR ( 68 ) 
CURSOR TX+ 1 , 13:PRINT” CEBDBD EB_DC 

CURSOR TX+l, ISrPRINT'l n f : P0KE$B 1 6 , 1 8 8 : USR (6 8 ) 

CURSOR TX+ 1 , 13:PRINT' QD tm CP OBP 

CURSOR TX+1, 13:PR1NT'| OB 10^03019X00/ I' : POKE$B 1 6 , 6 0 : U S R ( 68 ) 

CURSOR TX+ 1 , 13:PRIHT' g3 O B tI3B 

CURSOR TX+1, 13:PRINT“| n 1 ' : POKE$B 1 6,90 : USR ( 68 ) 

CURSOR TX+1, 13: PRINT” EO__ni3 DB DD_" 

CURSOR TX+ 1 , 13:PRINT'| / nm /Tmunrage mga / r :P0KE$B16, 155 
CURSOR TX+ 1 , 13:PR1NT'' BO [OP 0 3 00 33 

CURSOR TX+1, 13: PRINT'I I QQa | CDOm^DD/ I” : POKE$B 1 6 , 187 
CURSOR TX+ 1 , 13:PRINT'' [123 033 ED OZD ” :NEXT:USR (71) 

CURSOR TX,14:PRINT S$(L) 

COLOR, , 7:CURS0R TX, 1 2 : PR I NT” ” : FOR I - 0TO750 : NEXT 

CURSOR TX-1, 12:PRINT”'J7^+? FOR 1 - 0TO80 0 : NEXT : CURSOR TX- 1 , 1 2 : PR I NT” 

” :KT-KT-908 
GOSUB7010:GOTO20 
REM HH 9:4^) HH 
HN-2:IF JU<>0 THEN 480 
FX-INT (5*RND (1)) + 1 
ON FX GOTO 480,3500,3610 
REM Mi J 1 MU 

IF (X-TX-3) + (X-TX-4) THEN 3430 
GOTO480 

FORI-0TO30:POKE$B16, I + 6 0*RND (1) :USR ( 68 ) 

COLOR,,7:CURS0R TX,12:PR I NT”7?!” 

COLOR,, 3:CURS0RTX+2, 15:PRINT”-iB33-' ' 

CURSOR TX+2,15:PRINT” “:NEXT:CURSOR TX,12:PR I NT” ”:USR(71) 

COLOR,,7:CURSOR X-1,12:PR I NT”7' 7 !“:FOR I -0TO1208 :NEXT 
CURSOR X-1,12:PRINT” 

KT-KT-1100:GOTO20 

REM Mi 9=17 J 777'# 2 Wm 

IF X-TX<>2 THEN 480 

COLOR,,3:CURS0R TX,15:PR INTK7$_ 

CURSOR TX,14:PRINT” OOQSHUJUlf'' r:MUSIC”RR” 

CURSOR TX,14:PRINT” QOS OB OSB ' 

COLOR,,7:CURS0R TX,12:PR I NT”79r!!'_ 

COLOR, , 3:CURS0R TX,14:PRINT” Qfn a/y":HUSIC”R” 

CURSOR TX, 14:PRINT' BSQ BO CEH ’ ^MUS IC”-lfF-lfC-«G' 

CURSOR TX,12:PRINT” 

CURSOR TX,14:PRINT S$(L) 

GOSUB7010:KT-KT- 130 0:GOTO 20 
REM Mi ^>^7 J 377'# 3 Mi 
IF X-TX<>2 THEN 480 

CURSOR TX+2, 15:PRINT”-'nBr-' 5MUSIC”-E-DFORI-0TO80 0 : NEXT 
COLOR,,7:CURS0R TX-2,12:PR I NT”t37 ) KF 7 ”:FOR I-0TO750 :NEXT 
CURSOR TX-2, 12:PRINT”>>77v»7 77-^7" : FORI-0TO 1 750 : NEXT 
CURSOR TX-2,12:PRINT” 

CURSOR TX+2,15:PRINT” QB ” 

COLOR,,3:CURS0R TX,15:PRINT K7$ 

IF TX>4 THEN TX-TX-3:CURSOR TX,14:PRINT S$(L) 

TI$-”008800”:RT-1:GOTO20 
REM Ml 7^707 ) 7f' ■■ 

REM Mi tY777'# Mi 
KT-KT-l:IF X-TX<0 THEN 410 

COLOR,,5:CURS0R X-1,15:PR I NT” i-” 

COLOR,,7:CURSOR X+1,12:PR I NT'77!' 

CURSOR X-1,15:PRINT” 

IF X-TX<4 THEN TS-TS-40:MUSIC”C” 

Wl-INT (3*RND (1))+ 1:CURSOR X+1,12:PR I NT” 

IF Wl<-2 THEN 20 
GOTO410 

REM Mi 7*; Mi 

KT-KT-3:IF X-TX<1 THEN 410 

COLOR,,7:CURSOR X+1, 1 2:PR I NT”* 77 ! ' :KT-KT-1 

COLOR,,5:CURS0R X-2,16:PRINT K$(3) 

IF X-TX<3 THEN TS-TS-80:MUSIC"A” 

W2-INT (3*RND (1))+1 

CURSOR X-2,16:PRINT K1$:CURS0R X+1, 1 2 : PRINT' 

IF W2<-1 THEN 20 
GOTO410 

REM Mi v>77;^ Mi 

KT-KT-20:IF (YA-1) + (YA-2)THEN 3 9 30 

IF YA-0 THEN 3940 

G0T03950 

COLOR,,5;CURSOR X+1,14:PR I NT'IDBL':kt-KT-3:GOTO 3960 
COLOR, , 5: CURSOR X- 1 , 1 4 : PR I NT” >—HO*-" 

COLOR, , 7:CURS0R X-2, 1 2 : PR I NT” *7 F: FOR I - 0TO 1 0 0 8 : NEXT 
CURSOR X-2,12:PRINT”3v vV 77 a!”:FOR I-0TO 1080 :NEXT 
CURSOR X-2, 12:PRINT” 

CURSOR X-1, 14:PRINT” 03 " 

IF YA-0 THEN 410 
R3-INT (5*RND(1) ) +1:YA-0 
SC-SC+ (R3*60) 

GOTO20 

REM Mi Mi 

KT-KT-40:IF X-TX<>3 THEN Z-0 
IF X-TX-3 THEN Z-1 
COLOR,,5:CURS0R X-1,15:PRINT K$(N) 

CURSOR X-1,14:PRINT”T-aaa'—” 

IF Z=0 THEN 4160 

COLOR, , 7:CURS0R X-4, 1 2 : PR I NT ’ *7 F7' Y 7 > ' : MU S IC ” JfD#C#D ” 

FORI-0TO800:NEXT 

CURSOR X-4,12:PRINT”3# 3' 3- ':FOR I-0TO500 :NEXT 

CURSOR X- 4 ,12:PRINT” > 7 ! ”:FOR1 -0TO 1 000 :NEXT 

R4-INT (7*RND (1))+1 

IF (L=10) + (L- 6 ) + (L-5) THEN 6860 

CURSOR X-4,12:PRINT” 

CURSOR X-1,14:PRINT” ” 

CURSOR X-1,15:PRINT” ” 

IF Z-0 THEN 410 
GOTO6350 

REM MU 10eF77> Mi 

IF X-TX 03 THEN KT-KT-60:Z-0 

IF X-TX-3 THEN Z-1 

COLOR,,5:CURS0R X-1,15:PRINT K$(N) 

COLOR,,7:CURS0R X-2,12:PR 1 NT”77777••” 

FORI-1TO30:POKE$B16, (RND(1)»20)+10:USR(68) :COLOR, , 5 


m (i?) 


t*# :|fc4C0S 107 


4 270 CURSOR X-1,14:PR INT'-^DD^flD—“ 

4280 CURSOR X-1, 1 4 : PR I NT' □□ 03 " 

4 290 CURSOR X-1, 15:PR I NT" —' 

4300 CURSOR X-1, IS-.PRINT" ' 

4310 CURSOR X-1, 16:PRlNT"--'a3rin3_" 

4320 CURSOR X-1, 1 6 : PR I NT' {BOB ' 

4330 NEXT;USR(71) 

4340 CURSOR X-2, 12:PRINT" 

4350 IF Z'0 THEN 410 

4360 IF (L-9) + (L-5) + (L-10) THEN 6860 

4 37 0 COLOR, , 7:CURS0RX-2, 12:PRINT"999?9J»-" 

4380 COLOR,,3;CURS0R TX,13:PRINT SS(L) 

4390 COLOR,,5:CURS0RX-1,15:PRINT K$(N) 

4400 CURSOR TX,17:PRINT" 

4410 FORI‘1TOI10:POKESB16,(RND(1)*26):USR(68):COLOR,,5 
4420 CURSOR X,15:PRINT'\B “ 

4 4 30 CURSOR X, 14:PR I NT AD 
4440 CURSOR X,13:PRINT-\B 
4 4 50 NEXTrUSR (71) 

4460 CURSOR X-2,I2:PR1NT" 

4 4 7 0 COLOR,,3:CURS0R TX-1, 13:PR1NTS1$ _ _ 

4 480 COLOR, , 3:CURS0R TX-2, 1 3 : P R 1 NT" ♦f XOaBELAODCO/ 

4490 FORI'0TO250:NEXT _ _ 

4 500 CURSOR TX-2, 13:PR1NT~ OHS BED 
4510 CURSOR TX- 2 , 17:PRINT“*MA" :MUSIC"-D 
4 520 COLOR,,7:CURS0R TX-2, 1 5:PRlNT"hA?" 

4530 CURSOR X, 1 2 : PR 1 NT" t-?h " : FOR 1 * 0TO7 50 : NEXT 
4540 CURSORX-2,12:PRINT"kt?^7y>■ 

4 5 50 FORI '0TO2500 :NEXT 
4560 CURSORTX-2,17:PR1NT" 

4570 CURSORTX-2,15:PRINT" 

4 580 CURSOR X, 12:PR1NT" 

4 5 90 CURSOR X-2, 12:PRINT" 

4600 COLOR,,3:CURS0R TX- 1 , 1 4:PR 1 NT S$ (L) 

4610 FX-INT ( 6 »RND (1))+1 

4620 COLOR,,7:0N FX GOTO 4630,4650,4670,4680,4710,4720 

4 630 COLOR, , 7:CURS0R TX-3, 1 2 : PR I NT" i'j ^ h" : FO R I - 0TO 1 0 0 0 : NEXT 

4 640 CURSOR TX-3, 1 2 : PR I NT" i ^ D > 7 ! " : FOR 1 * 0TO 1 5 0 0 : NEXT : GOTO 4 7 4 0 

4 6 5 0 CURSOR TX-3, 12 :PR I NT"a,A 7 a,••":FOR I-0TO 1 0 00 :NEXT 

4660 CURSOR TX- 3 , 1 2 : PR I NT" ^ Yt" ! " : FOR I = 0TO 1 5 0 0 : NEXT : GOTO 4 74 0 

4 670 CURSOR TX, 1 2 : PR I NT" 7 ! ! ' : FOR I - 0TO 1 5 0 0 : NEXT : GOTO 4 7 4 0 

4680 CURSOR TX-2, 1 2 : PR I NT" 31/a 7 7 " : FOR I - 0TO 1 0 0 0 : NEXT 

4 6 9 0 CURSOR TX-5, 1 2 : PR 1 NT' 7 '>t7y 7" : FOR I - 0TO 1 500 : NEXT 

4700 CURSOR TX-5, 12:PRINT" : FOR 1 - 0TO 2 0 0 0 : NEXT : GOTO 4 74 0 

4710 CURSOR TX-2,12:PRlNT"Y7i7 ay!!':FOR I“0TO 1 50 0 :NEXT:GOTO 4740 

4720 CURSOR TX- 2 , 1 2 : PR I NT" Y9'! ! " :FOR I - 0TO 1 000 : NEXT 

4730 CURSOR TX-2, 12:PR1NT" 97>77v! ":FOR I-0TO 1 500:NEXT:G0T04740 

4740 KT-KT-80:GOTO6350 

4750 REM M m 

4760 IF X<“9 THEN JT-0:GOTO410 

4770 JU-JU+1 

4780 IF JU>1 THEN 4840 

4790 COLOR,,5:CURS0RX-1,15:PRINT Kl$ 

4800 CURSOR X-1, 17:PRINT' 

4810 IF JU-1 THEN CURSOR X-1,12:PRINT K$ (5) : MUSIC"R0' 

4820 IF X-NJ THEN JK-0 
4830 CURSOR X-1,12:PRINT K2$ 

4840 IF JU-1 THEN CURSOR X-5,10:PRINT KS(6):G0T0 410 
4850 CURSOR X-5,10:PR1NT K3$:MUSIC"R' 

4860 X-X-7 

4870 COLOR,,5:CURS0R X,15:PRINT K$(l) 

48^0 1FBNO0 THEN 4910 
4890 IF RO-0 THEN 4930 

4 900 NJ-INT (30*RND (1) )-t-l : IF NJ<15 THEN 4 90 0 
4910 BN-1 

4 9 20 IF JK-0 THEN NB-1 :GOTO6920 
4 930 Tl-INT (50»RND(1) ) +1 
4940 IF Tl-1 THEN BN-0:RO-0 
4950 KT-KT-5:JU-0:JT-0:GOTO410 
4960 REM Wm 

4970 IF X>27 THEN JT-0:GOTO410 

4980 COLOR,,5:CURS0RX,15:PRINT K7$:KT-KT-5:COL OR,,3:CU RS0RTX,14:PRINT SS(L) 

4 990 X-X■^2:C0L0R,^ 5:CURS0R X,12jPRINT" DSDEDWIllS" = M 0 S I C " R R' 

5000 CURSOR X,12:PRINT' CB [g a [B tP ' _ 

5010 X-X^4:CURS0R X,10;PRINT" ^^90 *999 95// ri ailMa/-: uii ^ T r “ R n B" 

5 020 CURSOR X,10:PRINT" maim iwiim - 

5030 X-X+2 :CURS0R X,15:PR INTK$ (N) :JT = 0:G0T0410 
5040 REM Wm Aj)' 

5050 KT-KT-40 

5060 IF X<9 THEN 410 

5 0 70 IF X-TX'2 THEN ATM 

5080 COLOR,,7:CURS0R X, 12:PR 1 NT"7?7“ 

5090 COLOR,,5:CURS0RX-1,15:PRINT" '-":FOR I -0TO50 0 :NEXT 

5100 COLOR,,3:CURS0R TX,14:PRINT S$(L) 

5110 CURSOR X-1, 17:PRINT" ":CURSOR X,12:PRINT" 

5120 CURSOR X-1, 15:PRINT" 

5130 COLOR,,5:CURS0R X,15:PRINT Kl$ 

5140 COLOR,,3:CURS0RTX,14:PRINT S$ (L) 

5150 COLOR,,5:CURS0R X,11:PR1NT K$ (4) :FOR 1•0TO500:NEXT:COLOR.,3:CURSOR TX.14:PRI 
NT SS(L) 

5160 COLOR,,5:CURS0R X,11:PRINT K4$ 

5170 CURSOR X-3,10:PR1NT K$ ( 6 ) :FOR I•OTO 5 0 0:NEXT 
5 180 CURSOR X-3, 10:PRINT K 6 $ 

5190 COLOR,,3:CURS0R TX,14:PRINT S$ (L) 

5200 COLOR,,5:X-X-6:CURS0R X,15:PR1NT K$(l) 

5210 IF AT-0 THEN KT•KT-5:GOTO410 
5220 AT’0 

5 2 30 COLOR, , 7:CUR SOR X - 2 , 1 2 : PR I NT" a 7 v» aJ' r.'r: " : FOR I - 0TO 1 7 5 0: NEXT 
5240 CURSOR X-2,12:PR1NT" 

52 5 0 IF (L’5) + (L- 6 ) ML-9) + (L-10)-^ (L-7) THEN 6860 
5 2 6 0 COLOR, , 7 : CURSOR TX 1 , 1 2 : P R ! NT"''M 7 ! " : MU S I C " fiC FRRRRR 
527 0 CURSOR TX - 2 , 1 2 : P R 1 NT" aM a': MU S I C »C0R JtGR CR-DR SDRR 
5280 CURSOR TX 3, 12:PR1KT" 

5290 COTO6350 

5300 REM mm wm 

5310 KT“KT-45:IF X-TX<>2 THEN AT’0:GOTO5330 
5320 ATM 

5330 COLOR, , arCURSOR X, 1 4 : P R I NT i IB*-" 

534 0 IF ATM THEN 5380 

5350 MUSIC"-#DE":C0L0R..7:CURS0R X.12:PR1NT'M:7?':FORI -0TO 6 O0:NEXT 

► MAGICiiiii/i-Ti-o C n-rCG cOr"- A *• 1;, 

70S nhiM 7 lQfifiin t </jAc'o FIX<^)C: t i^magiFORTHcOli? 

^ A ^ AS OS L i-If 

per BASE (i l ' m A* ? # -v V - 7 tK& MAGIC&S OS "TJ'-iifi ^ o < A 



5360 
5370 
5380 
5390 
54 00 
5410 
54 20 
5430 
5 4 4 0 
54 50 
54 60 
5 4 70 
5480 
54 90 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5 570 
5580 
5590 
5 6 00 
5610 
5620 
5630 
5640 
5650 
5660 
56 70 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
10: IF 
5890 
5 900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
60 90 
6100 
6110 
6120 
6130 
6140 
XT 

6150 
6160 
6170 
6180 
NEXT 
6190 
6200 
6210 
6220 
8230 
624 0 
6250 
XT 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
XT 

634 0 
6350 
6360 
6370 
6380 
6390 


CURSORX-2,12:PRINT'JY37>>':FORI-8TO1250:NEXT:IF (L>4)*(L<10) THEN 6860 
CURSORX-2,12:PRINT' 

CURSOR X, 14:PRINT‘ EB " 

IF AT-0 THEN 410 
AT-0:GOTO6350 

R2-INT (3*RND (1))+1:SC-SC + R2»L*50 

REM WM M 

COLOR,,5:CURS0R X,15:PR1NT Kl$ 

CURSOR X, 17:PRINT" 

COLOR,,3;CURS0R TX,14:PRINT S$(L) 

COLOR,,5:CURS0RX-1,16:PR1NT K$ (7) 

COLOR,,7:CURSORX- 1,12:PR I NT”:COLOR,,5 
F 0 R 1 - 0 T 0 6 0 : P 0 K E $ B 1 6, RND(l)* 240jU S R (6 8) 

NEXT:USR (71) :KT-KT-70 

CURSOR X-1,12:PRINT' iaaagiaJlWTI 

IF X-TX<>3 THEN 5730 
IF (L-6) + (L-8) + (L-10) THEN 6860 
IF L<>5 THEN 00-1 

CURSOR X-1,16:PRINT JU$:CURSORX,15:PR I NT KS(1) 

IF 00-1 THEN 02-1 :GOTO5730 

REM mm A-h r 75rA mm 

COLOR,,5:CURS0R X-1,16:PRINT JU $:CURS0R X,IS r PRlN T K$(l) 

COLOR,, 3:CURS0R TX,14:PRINT' V □BIlJnSEBBUEED/IV'' 

COLOR,,7:CURS0R TX,12:PR I NT”^^:FOR I -0TO900 :NEXT 
COLOR,,5:CURS0RX+1,15:PR1NT” ” 

CURSORX-1,15:PR1NT”-" 

CURSOR TX IZ^PRINT^ 

COLOR, , 7:CURS0R X, 1 2 : PR I NT” •>79 ! ” : FOR 1 - 0TO 5 0 0 : NEXT 
CURSOR X,12:PRINT” ”:CURS0R X-1, 1 5:PR I NT” 

COLOR,,2:CURS0R X-1,15:PR I NT 

COLOR, , 7: CURSOR X-1, 1 2 : PR I NT ” *9 h»7>” : FOR I - 0TO 1 5 0 0 : NEXT 
GJ-INT (3*RND(1))+1 
CURSOR X-1, 12:PRINT” 

COLOR,,7:CURS0R TX-1,12:PRINT HH$ (GJ) :FOR I-0TO750 :NEXT 
CURSOR TX-1,12:PRINT” 

OO-0 :KT-KT-15:G OTO6350 

CURSOR X-1, 12:PR1NT” 

COLOR,,5:CURS0R X-1.16:PRINT JU$:CURS0R X,15:PRINT K${1) 

COLOR,,3:CURS0R TX,14:PRINT S$(L) 

00-0: IF 02-0 THEN 5790 

O2-0:GOTO6350 

GOTO410 

REM mm H 
IFX-TX<>2 THEN KT-KT-20:Z-0 
IF X-TX-2 THEN Z-1 
D2-INT (3»RND (1))+1 


\ THEN COLOR,, 

5:CURS0R 

X,14:PR1 

I NT”— EBB— 

i THEN COLOR,, 

5:CURS0R 

X,14:PRI 

INT”t_” 

THEN COLOR,, 

5:CURS0R 

X,14:PR1 

int”-»^EBD'^‘ 

THEN CURSOR X 

, 14:PRINT 

ebb 

” :GOTO410 

7:CURS0R X-5, 

12:PRINT 

ws (D2) 

■ ta777'f9" 


{L-10) + ((L-5)*(D2<>3)) THEN 6860 
CURSOR X-5,12:PRINT ” 

CURSOR X,14:PRINT” EBS ”: X-X +2:COLOR,,3:CURSOR TX,14:PRINT S$(L) 
CURSOR X,14:PRINT ” EB EB ' 

COLOR,,5:CURS0RX,15: PRINT K$(l) 

CURSOR X, 15:PRINT- BBDD " 

COLOR,,7:ON D2 GOTO 5950,6000,6020 
CURSOR X, 12:PRINT”4viAt>>. . ” : FOR I-0TO500 : NEXT 
CURSOR X, 12 :PRINT”>> 7 'Y*!!■:FORI-0TO 1 0 00 :NEXT 
CURSOR X, 12:PRINT” 

D3-INT(5*RND(1))+1 

COLOR,,7:0N D3 GOTO 6040,6080,6160,6200,6270 

CURSOR X, 12 :PRINT” 4 -?i 7 Yyf A':FORO-0TO7 50 :NEXT 

CURSOR X,12:PRINT”7h 5 #...”:FOR 1 - 0 TO 1 000:NEXT:GOTO5970 

C4IRS0R X, 12:PRINT”4yt.7 7 ? 7 'j&lf?”'• FOR 1 - 0TO 1 0 0 0 : NEXT 

CURSOR X, 12:PRINT”4<Y>1/! ! ! ” : FOR I - 0TO 1 2 9 0 : NEXT: GOTO 5 9 7 0 

CURSORTX, 12:PRINT”7>7..”:FOR I -0TO750 :NEXT:HUS1C” + B +BR" 

CURSORTX, 12:PRINT”a'7*7'” _ _ _ 

COLOR, , 6:CURS0R TX-1, 14:PRINT” «r EBOBU^ IMMM I ■ liaias \~ 
FORI-0TO1500:NEXT:CURSOR TX,12:PRINT” ”:GOTO8620 

CURSOR TX,12:PRINT” 9797 !”:FOR I -0TO750 :NEXT:MUSIC"AA” 

CURSOR TX,12:PRINT” ”:CURS0R X-1, 1 2 : PR I NT”r9h7 7 ” :FORI-0TO750 :NEXT 

CURSORX-1, 12:PRINT”ky-/ a ” :FORI-0TO850 :NEXT 


”:F 

NT” 

7H/U. . ■ : 

:, 14 

:PRlNT”i 

NT” 

- : 

NT” 

3 ^ 7 !!n' 

NT” 

79 ^ 97 ..” 


CURSORX-2, 12:PRINT 


COLOR,, 6:CURS0R TX, 14:PRINT~L« EEDO ^ 

CURSOR TX-2,I2:PR1NT” ”;GOTO6620 

CURSOR TX-3, 12:PRINT”^99t J 4tx ” : FOR I • 0TO 1 0 0 0 : NEXT 

CURSOR TX-3,12:PRINT" aii' 7J ”:FOR I-0TO500 :NEXT 

CURSOR TX-3, 12:PRINT”4;9f*>:/9> ! ” : FOR 1 • 0TO 1 2 0 0 : NEXT 

CURSOR TX-3,12:PRINT”797tAt'. ” : FOR I-0TO 1 000 :NEXT 

CURSOR TX-3, 12:PRINT”a,A 79'H/b ” : FOR 1 -0 TO 1 2 0 0 :NE XT 
COLOR, , 6:CURS0R TX, 14:PRINT”. e EISBS. T 


I //”:FORI-0TO 1 000 :NE 


L' :FOR1-0TO 1 000: 


" :F0RI-0TO 1 5 0 0 :NE 


” :GOTO6620 
:FORI-0TO1300:NEXT 


CURSORTX-3,12:PRINT” 

CURSORTX-2, 12:PRINT”7>Kf'r! " 

CURSORTX-2,12:PRINT” 

CURSOR X-3, 12:PRlNT”^^7737:f y* h' 7 ” : FOR I - 0TO 1 0 0 0 : NEXT 
CURSOR X-3, 12:PRINT”tH;'117* ” : FOR I - 0TO 1 5 0 0 : NEXT 
CURSOR X-3,12:PR1NT” 

CURSOR TX,12:PRINT”tA”A'” _ _ _ 

COLOR, , 6:CURS0R TX, 1 4 : PR I NT ”. \e EBBBXNBD/ \'= FOR I - 0TO 1 5 0 0 : NE 

CURSOR TX,12: PR1NT” “:GOTO6620 

REM 

COLOR,,3:CURSOR TX,14:PRINT S$(L) 

H-0: COLOR,, 5 :CURSORX, 15:PRINT KS (1) 

V-INT (11»RND(1))+1 
IF 1?“4 THEN Z-0:GOTO6 450 


► ^ NEW BASICcojjVcO ^ 

lX^h\ H.IHJ (19) 


109 





8400 IF W-5 THEN Z-0:GOTO6580 

6410 IF W-6 THEN 6470 

6420 IF W-7 THEN 6470 

6430 IF W>8 THEN 8630 

6440 GOTO410 

6450 COLOR,,7:FOR1-3TO0STEP-1 

6460 CURSOR TX+1,11:PRI NT I;"8: MUSIC' + CRRR':NEXT 
6470 CURSOR TX+3,14:PR I NT" ■:C0L0R,,7 
6480 CURSOR TX-1,12:PRINT SH$ (V) 

64 90 COLOR,,2:CURS0R TX,13:PR I NT"•. " 

6500 CURSOR TX, 1 4 : P R I NT" r’ : HU S 1 C " - E - D " 

6510 FORI-0TO1500:NEXT 
6520 CURSORTX+2,1 1 :PR1NT" ’ 

6530 CURSORTX-1,12:PRINT" 

6540 CURSOR TX,13:PRINT" 

6550 CURSOR TX,14:PRINT" 

6560 COLOR,,3:CURS0R TX,14:PRINT Sl$ 

6570 GOTO690 


6580 

REM M 




6590 

CURSOR 

TX-3 

,12:PRINT' 


6600 

COLOR,, 

7:CURS0R X-2, 1 

2:PRINT': 

6610 

CURSOR 

X-2, 

12:PRINT" 

>> 7 'YA! 

6620 

CURSOR 

X-2, 

12:PRINT" 


6630 

R5-INT (10*RND(1))+1:C0L0R, , 7 

6640 

CURSOR 

TX-1 

, 12:PRINT 

SHS (R5) 

6650 

COLOR,, 

2:CURS0R TX-1, 

14:PRINT 

6660 

CURSOR 

TX-1 

,15:PRINT" 


6 67 0 

CURSOR 

TX-1 

, 16:PRINT" 

. r ■ 

6680 

CURSOR 

TX- 1 

,17:PRINT" 


6690 

MUSIC"- 

A + C" 

:TW-0 


6700 

FORI-0TO2500:NEXT 


6710 

CURSOR 

TX-2 

, 12:PRINT' 


6720 

CURSOR 

TX-1 

,14:PRINT" 


6730 

CURSOR 

TX-1 

,15:PRINT" 


6740 

CURSOR 

TX- 1 

, 16:PRINT" 

* 

6750 

CURSOR 

TX-1 

,17:PRINT" 


6760 

IF Lol 

THEN TN-0 



fvi/\ • " :FORI-0TO 1 00 0 :NEXT 
:FOR1-0TO1000:NEXT 


6770 L-1:NE-0:GOTO760 
6780 REM WM game OVER Hi 

6790 COLOR,,7:CURS0R 14,3:PR I NT'GAME OVER":REST0RE8430 
6800 REM "F6ER2E6DR3F8G#E8E6D9R0" 

6810 CURSOR 11,5:PR1NT"Y0UR SCORE -";SC*10 
6820 GOTO6830 

6830 CURSOR 11,8:PR I NT"PUSH [R] KEY !!" 

6840 GETD$:IF (D$-"R') + (CG-600) THEN 7980 
6850 CG-CG+1:GOTO6840 

6860 REM WM 7f* J' ftf'f ■■ _ 

6870 A>INT(5*RND(1))41:CURS0R X, 1 2 : PR I NT'BOB 

8880 COLOR,,7:CURS0R X,12:PRINT HH$ (A) :FOR I-0TO750:NEXT 

6890 CURSOR X,12:PRINT' _" 

6900 CURSORX-1, 14:PR1NT' DEED ":H•0:AT-0:Z-0 

6910 GOTO410 

6920 REM ■■ ? ? ? ■■ 

6930 NJ-NJ+3:C0L0R,,6 

6 94 0 CURSORNJ+1,15:PRINTCHR$ (32, 2 3 3, 3 2) 

6 9 50 CURSORNJ+1, 1 6 : PR INTCHRS (32, 200,233) 

6 96 0 COLOR,,2:CURS0RNJ+1,17:PRINTCHR$ (8 3) :COLOR,,6:CURSORNJ + 2,17:PRINTCHRS(213, 3 

2) :COLOR,,7 

6970 HUSIC'+A+D+A" 

6980 BN-0:NB-1:RO-0:GOTO4950 

6990 CURSORNJ-1, 16 : PR INTBB* 1 0:HUS IC" + E5 + C4B+C8R0" 

7000 SC-SC+BB:KT-KT+1500:CURSORNJ-1,16:PRINT" 

REM ■■ 


:RT-0 

" :NB-0:RO-0:JK-0:GOTO20 


" :COLOR,,5:HUSIC"-#C-#D" 


7010 

7020 COLOR,,5:CURS0R X,1S:PRINT KIS 
7030 CURSORTX+3,15:PRINT" 

7040 CURSOR X,14:PR1NT K$ (2) 

7050 COLOR,, 7:CURSOR X-2, 1 2 : PR I NT" >7 ! ! 

7060 FORI-0TO800:NEXT 
7070 CURSOR X,12:PRINT' 

7080 CURSOR X,15:PR1NT K9$;CURS0R X,15:PRINT KS(1):RETURN 
7090 REM ■■ y>5iQ>) J MM 

7100 IF RT-2 THEN HN-2 

7110 ON HN GOSUB 7 1 20, 7 1 60, 7280 :GOTO6780 

7120 REM mm r:i - Mi _ _ _ 

7130 COLOR,, 2:CURS0R X,14:PRINT" DOB r CDB-M*'^ HUS 1 C * - C-C" 

7140 COLOR,,3:CURS0R TX,14:PRIHT S$ (L) 

7150 COLOR,,7:F0R1l-lT04:CURSORTX-2,12:PRINT ZS$ (I 1) :FOR I -0TO300 :NEXT I,I 1:RETURN 
7160 REM MSI 7 ' MSI 

7170 COLOR,,3:CURS0RTX,14:PRINT S$ (L) 

7180 COLOR,,5:CURS0R X,15:PRINT K$(l) 

7190 COLOR,,7:CURS0R X,12:PR I NT' 33 ":FOR I-0TO80:POKESB16, (SIN (I) + 1)♦100:USR (68) 
:NEXT:USR (71) 

7200 CURSOR X,12:PRINT" 

7210 CURSORX+2, 13:PRINT"!* ":FOR I -0TO500 :NEXT 
7220 COLOR,,4:CURS0R X+1,14:PR I NT' 

7230 CURSOR X-1, 1 3 : PR 1 NT'V^Tr 
7240 COLOR,,2:CURS0R X+1,12:PR I NT" 

IC"_F_G":IF (RT-2)♦ (L<>10) THEN RETURN 
7250 COLOR,,7:CURS0R TX-1, 1 2:PR I NT'17i a':FOR I>0TO750 :NEXT 
7260 CURSOR TX-1, 1 2 : PR I NT'11.3 a': FOR 1 - 0TO750 : NEXT 
7270 CURSOR TX-1, 1 2 : PR I NT" i?7> ! ! " : FOR 1 - 0TO 1 7 5 0 : NEXT: RETURN 
7280 REM mm 7 ' MSI 

7290 COLOR, , 7:CURS0R X-3, 1 2 : PR I NT' j^a* , • a* , “ : FOR I - 5 0TO 0 STEP - 2 : POKESB 1 6, I : U SR (68 
) iMEXT*USR(71) 

7300 COLOR,, 2:CURS0R X+1, 14:PRINT'«- DBS-1-' : FOR I • 5 0TO 0 STEP - 2 : POKESB 1 6, I :USR (68 
) :NEXT:USR (71) 

7310 CURSOR X+1, 16:PRINT"^/11XB \ '^RETURN 

7320 REM ■■ > 1 ^ ^79^ WM 

7330 CLR:P0KE$3444,0:COLOR,,7,0:PRINT'B'; 

7340 KT-5000:SC-0:JK-l:R0-l:N-l:L-l:X-33:TX-6:TS-300 
7350 RT-0:DIHNA$ (10) :DIM1?A$ (8) 

7360 CG-0:DIM HHS(5):DIM Q (8) : D I MWS (3) 

7 37 0 TI$-' 000000" :HH$ (1) - ":f3! ! ! ' :HH$ (2) - "A'j^! • :HHS (5) " :HH$ (4) -" >7^ 7 ! ! " : HH 

S (3) 

7 380 W$ (1) -'h-JY' :W$ (2) -'t3 9' :W$ (3) -"Yi7' . 

7390 JUS-" EB BXa cma ~:DIMT1S(7) :DIMT2S(14) 

7400 DIM K$(7):DIM SS(I0):DIH SHS(1I):DIM BOS(3):DIM BKS(3):DIH ZSS (4) 

7410 ZSS (1)-"a7A,a':ZSS (2)-"737 ^ Y " : ZSS (3) - " t h3y ?fc' a" :ZSS (4)-"t Hfv 
7420 K7S-" 


I" : FORI-0TO 1 000 : NEXT: COLOR,, 7 
\,‘:HUS 


110 Oh! MZ 1986.10. 


► 8 n 21 H i C F M C 'o -V-rU 4* {: ^ L "C t^ /t 9 o 

Yrm ( 15 ) w\m 


KB ' :K2$’' ~ OS 


K4$<' BB ESB BS ':X6$>* 

KS(7)- 
K3$-" 

K9$“' _ 

BK$ (1) •* BS BS 
80$ (1) ---OBJ®- 

Ki$-' Bsa^ _ 

SH$(1) •' ' :SH $ (9) ! “ : SH$ (3) - 

K$ (4)-"•/i^M^cnunDr \'5K$ (5)-"•OBL __ 

K$ (6) - \\B:^“ :SH$ (6) ’-XUA' ! ” :SH$ (7) ! !” :SH$ (8) -“7d! ! ! " 

SH$ (2) - ' 7 /'" " :SH$ (10) ““ tr! ! ! “ : SH$ (1 1) - "au-7! ! ” 

11 rmn » 


7430 
7440 
7450 
7460 
7470 
7480 
7490 
7 500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 S$ (5) -■ 
7620 S$ (6) 
7630 SS(7)-' 
7640 S$(8)-' 
7650 S$ (9) 
7660 S$(10)- 
7670 Sl$-' 
7680 REM 


* :BK$ (2) 
-■:B0$(2) 


□ mm 

o-bt®- 


® 

® bZ3 


“ :BK$ (3) -'m ® m 
" : 80$ (3) -“BHShBS- 


"57A' ! ' :SH$ (4) -‘7a' ir! ” : SH$ (5) • 


Alj- i' 




o bed w Bm ■ gam / \ 

4.- maia w nc ccB ^ 

♦ mm I BEE ■ ®Bn / \ 



/W\ 


7690 

NA$ 

(1) 

■ i,95 A* 

" :NA$ (2) 

-h' “ 

7700 

NA$ 

(3)-- 

■9''(t 

' ;NA$(4) 

-"997' 

7710 

NA$ 

(5) -■ 

A-P 

" :NA$(6) 


7720 

NA$ 

(7)-* 


" :NA$(8) 

-"a9' 

7730 

NA$ 

(9)-‘ 

■ Va!? 

" :NA$(10) 

-"9t7 

7740 

REM 

BNI 

79' J 

9?x EMU 


7750 

WA$ 

(1) ■' 


' ^ 


7760 

WA$ 

(2)-‘ 

’75*9' 9 



7770 

WA$ 

(8)-‘ 

’K37 7 

79 


7780 

WA$ 

(4)-‘ 

■♦9h 9 



7790 

WA$ 

(5)-‘ 

■i:9P t+9l/79> " 


7800 

WA$ 

(6)-' 


A*'>9> 


7810 

WA$ 

(7)-‘ 

’t.9P *'(a79> ' 


7820 

WA$ 

(8)- 

■$9h > 

'»7A9'>" 


7830 

REM 

■■ 

a^9Y 

7 *9 Hi 



7840 COLOR,,4,0:FORI-0TO39:CURSOR I,18:PRINT1 :NEXT 
7850 F0RI-1T015 

786 0 V-INT (RND (1) ♦RO) + 1 :W-INT (RND (1) ♦ 11) + 1 : COLOR,, INT (RND (1) *7) 

7870 CURSOR V,« : PR 1 NT”.“:NEXT 
7880 FORI-1TO30 

7890 V-INT (RND (1) »39) + 1: If-I NT (RND (1) » 11) + 1: COLOR,, I NT (RND (1) *7) 

7900 CURSOR V, W:PRINT"•":NEXT:C0L0R,,4 
7910 COLOR,,7:W-1 

7920 F0RI-1T07:READ P1:READ P2:SET P1,P2:NEXT 

7930 GOTO20 

7940 REM WM 7*00-9” 

7950 RESTORE:COLOR,,7,0:PRINT"i':TEMP07 

7960 F0RI-1T0222:READ MJ$:CURSOR 39,12:PRINT MJ$;:POKE$D800+39 +40» 1 2, 200 : CURSOR 
0,12:PRINT CHR$ (16) 

7970 MUS1C’+A1R2":NEXT:MUSIC”R0' 

7980 REM WM H 

7990 PRINT'!* 

8000 PRINT" <«[4;9h J thn PART 

8010 PRINT" ir>9o>> 9 7^777 10>,A-/ J 7# 


1 ]»>" 

h 99*7799'' 


80 2 0 

PRINT' 



$9hv 

>9> T 

'>v« 7v+ X 

fUAi !!' 

8038 

PRINT 








8040 

PRINT' 





KEY } 



8050 

PRINT" 

1—1 





1—1" 


8060 

PRINT" 

Kl 



71 


hi .... 

7>D -(F'7" 

8078 

PRINT" 

1_1 





1_1' 


8080 

PRINT" 

1—1 





1—1 * 


8090 

PRINT" 

|t| 



71 

JUMP 

|4| .... 

7>o JUMP" 

8100 

PRINT" 

1_1 





1—1' 


8110 

PRINT" 

1—1 

1—1 

■ 





8120 

PRINT" 

ixn 

ilVl 



79' 

7 *IA 


8130 

PRINT" 

1_1 

1_1 

1) 

t-f9 

>7' ♦ 

2) 7v9* 

■ 9" 

8140 

PRINT" 



3) 

ta7 

7 79 

(3 A-/) 


8150 

PRINT" 



4) 

$9h 

5)4:9h 

t¥ 9I/79>" 

8160 

PRINT" 



6) 


a aD' 

>97 7)4:9P 

*Y779>" 

8170 

PRINT" 



8) 

$9h 

>' a7A9' 


8180 

PRINT" 

1-1 





1—1 ” 


8190 

PRINT" 

ISPCI 



79' 

7 9' 7 

|C| .... 

i'>97A‘ 

8200 

PRINT" 

'-' 





'—' (7A* -h' X 9*7) 


8210 PRINT 
8220 PRINT 
8230 PRINT 
8240 REM 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 DATA 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 


(C) LUM SOFT" 

ARRANGED BY YAMATO SOFT & NISHIYA" 


A-A+l:C0L0R,,INT(RND(l)*7)+l;CURS0R 1 2,22:PR I NT"HIT ANY KEY I!" 
IF A-1500 THEN A-0:GOTO7940 
GETA$:IF A$-"" THEN 8250 

MUSIC"G5F5R2G5R5F4RlF4RlF4RlF4RlF4Rl»D5D5R51tD5F5R2«G5RlG5R5G9R0' 

GOTO7320 

REM ■ 7 'oii-9' h ♦9h>ftY J 7'-9 ■ 

DATA 2, 0, 0. 0,^1, , 7, , U,4, V,,?, ,^, 9,” , ? 

DATA ,'),9,7,*,',b,7,^,9,,t,9,A,A,' 

DATA 9,7, 9, ,7,7,9,.,, 

DATA 7, 7, , 9, ,7, , r,*, 9, h, , 9, 7, J 

DATA !,!,,7,7,9,7,,::,,7,9,9,A,,7,7 
DATA 7,,*,v,7,,t,h,,^,7,>,7,7,7,” 

DATA >,,7,,4;,9,P,v,7,9,>,,7,,7,9,' 

DATA 7,7, , t,9, ' , , A, , 9, 9, *, I, 9, I/, A 

r, t, Y, 4r, 7, 7, 

» i', t, 7, J , , 


6, 38, 9, 40, 1 2, 43, 1 3 


DATA ♦, a, 7, ,7, 

DATA 

DATA ,,,,,,,,,,,,,,,,, 

DATA 39,1,34,3,42,4,39 

REM. 

REM 4;rh7tP3 

REM 9'>99 - i>v'39>” >> v' ( SP- 5 0 30) 
REM TU'yy ^ ivt t97'; (700 S-BASIC) 

REM 1985^ 12fl23B (H) 

REM ---------.-... 


► X10 FM 3 - 7 C Ao T t.' it Li 

S W.)*' 1 E' i 4* A t :ooc -C n > 

m (17) 


:lt4<ns 111 
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18 GOTO7940 

28 REM m } t:3'7>' m 

30 CURS0R22, 22 :PRINT"7!f'= ';WA$(W); 

40 CURS0R22, 20 :PR1NT'7# = '■;NA$(L); 

50 CURSOR 1,22:PRINT“SC0RE > ' ; RIGHT$ (' 0000"^SIRS(SC»10),5) ; 

60 CURSOR 1, 20:PRINT''7Y';3^ > " ; R I GHT$ (" 0 0 0 0 ' ■> STR$ (KT) ,5); 

70 XT-VAL (TI$) :IF L-1 THEN HN'l 
80 IF JU>0 THEN 4770 
90 IF KT<=0 THEN 120 

100 IF (RT=1)♦ (XT>300) THEN RT-2:GOTO120 
110 GOTO140 

120 REM 'tsm 7^>;37 t' MHi 
130 CURSOR 8,20:PBINT'' 0 0 0 0 0 ‘ : GOTO 7 8 9 0 

140 AT-0:REM —nTWn'""f" fmmmmmm 

150 Ql-INT (20*RND (1))+1 

160 Q2-INT{18*RND (1))+1 

170 IF (Ql-1)» (NE<>0) THEN KT-KT+50*Q2 

180 IF NBol THEN 200 

190 IF NJ-X THEN I 1-I NT (5*RND (I))+1:BB- 1 000*I 1:GOTO 6990 
200 CURSOR X,15:PRINT K$(N) 

210 IF TX<3 THEN TX=3 
220 CURSORTX,14:PRINT S$(L) 

230 IF TX-l-X THEN KT-KT-1 0*L:MUSIC"-#D-«C”:GOSUB7010 

240 REM m if- ::3>7';37 01 

250 POKE $952,0:GET A$:P0KE $952,166 

268 IF A$-'4’ THEN X»X-1:KT-KT-1 

270 IF A$-'6" THEN X-X+1 :KT-KT-1 

280 IF AS-'X” THEN W-W+1 

290 IF A$-"V' THEN W-W-1 

300 IF A$-'C' THEN 3900 

310 IF A$-' ' THEN 390 

320 IF A$»'8'’ THEN JT-1 : G0T04 750 

330 IF A$-'2" THEN JT-1:G0T04960 

340 IF W-9 THEN W-1 

350 IF W-8 THEN W-8 

360 IF X>-36 THEN X-36 

378 IF X<-4 THEN X-4 

380 GOTO410 

390 REM m J ^ A-f'y ^ ■■ 

400 ON W +2 GOTO 410,3720,3720,3810,5800,4040,4210,5048,5300,5420 
410 REM m 7^ ) A-^'J A m 

420 CURSORTX,14:PRINT S$(L) 

430 IF Lol THEN 460 

440 IF TN>2 THEN NE-I NT (9*RND (1))+1 

450 IF NE=8 THEN 480 

460 REM m ^ WM 

470 TW°N E:L-NE-H ;0N NE GOTO 840, 9 80, 1230, 1510, 1680, 188 0, 2260, 2590, 3360 
480 REM 

490 IF TX<3 THEN TX-3 

500 IF (X-TX)<0 THEN ZG-2:GOTO520 

510 ZG--2 

520 S1-INT( (ZG+6)»RND(1))+1 
530 S2-INT ((-ZG+6) ♦RND (1) )+1 
540 IF HY-1 THEN 560 
550 TS-308* (NE+1) :HY-1 
560 IF TX<3 THEN TX-3 
578 IF TS<=0 THEN 690 

580 IF (Sl< = 3)♦ (TX<33) THEN TX-TX+1:TS-TS-. 1 

690 IF (S2<-3)♦ (TX>0) THEN TX-TX-1:TS-TS-. 1 

600 IF S2>-5 THEN 630 

610 IF (KK->3) ♦ (KY-1) THEN 820 

620 GOTO20 

630 REM ■■ (7^) ■■ 

640 IF JT-1 THEN GOTO20 

650 CURSOR TX + 2,15:PRINT'-,':TS-TS-1 

660 IF ((X-TX)>0)♦ ( (X-TX)<4) THEN MUSIC"#C”:KT-KT-20*L:G0SUB7010 
678 CURSOR TX+2,15:PRINT' 

680 GOTO20 

690 REM Mi 7^ y'yr WM 
708 IF JT-1 THEN GOTO80 
710 CURSOR TX,14:PRINT S 1 $ : MUS I C’-D' 

720 CURSOR X, 15:PRINT K$(N) 

730 CURSOR TX, 17:PRINT'XM/\" 

740 CURSORTX-1, ISJPRINT'f-'H?' 

750 FORI-0TO2500:NEXT 
760 TN-TN+1 

778 R2-INT (3*RND (1))+1:SC-SC+2 0*R2*L 
780 CURSOR TX, 17:PRINT'' 

790 CURSOR TX-1,15:PRINT" 

800 TX-INT (16*RND(1))+1 
810 IF TX<-3 THEN 800 

820 IF Lol THEN TN - 0 : TW - 0 : L - 1: NE - 0 : M Y-0 
830 TS-300:GOTO410 
840 REM m 7A* -h' 

850 HN-1 :IF YA-1 THEN 898 
860 R7-INT (4*RND (1) ) +1 
870 IF R7-1 THEN 890 
880 GOTO540 
890 YA-YA+1 

900 IF (JU-1) + (JU-2) THEN YA-0:GOTO920 

910 F0RI-1T08:P0KE$F1A,I:USR ($F14) :NEXT 

920 IF (YA>3) + (YA-3) THEN 960 

930 Gl-INT (6*RND (1) ) +1 

940 IF Gl<3 THEN 20 

950 GOTO480 

960 CURSOR X, 14:PRINT'>-»-»" 

970 FORI=0TO800:NEXT:HN-1:KT-0:GOTO20 

980 REM m m 

990 R8-INT (4*RND (1) ) :HN-1 

1000 IF R8=l THEN BO-1 

1010 IF R8-2 THEN BO-2 

1820 IF R8-3 THEN BO-3 
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1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1478 

1480 

1490 

1580 

1518 

1520 

1530 

1540 

1550 

1568 

1570 

1580 

1590 

1600 

1618 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1880 

1810 

1820 

1830 

1840 

1850 

I860 

1870 

1888 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2088 

2090 

2100 


IF (R8-0) + (JT-1) THEN 488 
R9- INT (18*END (1) ) +1 
IF R9»l THEN 1870 
GOTOl100 

CURSOR TX-2, 12:PRINT':iy >.'9*1;' ': FOR I - 8TO 1 0 0 0 : NEXT 
CURSOR TX-2, 12:PRINT”<#j,Al; It ' : FOR I = 0TO 1 2 5 0 : NEXT 
CURSOR TX-2, 12:PRINT' 

CURSOR TX + 2,14:PRINT BO$ (BO) 

FORI“0TO108:NEXT 
IF (X-TX)<8 THEN 1140 
GOTOl180 

IF JU-1 THEN 1180 
IF JU-2 THEN 1180 
IF (X-TX)<1 THEN 1180 

CURSOR X,12:PRINT“a'+";KT-KT-450:MUSIC"-C-D-D':GOSUB7010 
CURSORTX+2,14:PRINT BK$ (BO) 

CURSOR X, IZ-PRINT” 

Hl-INT (6*RND (1)) 

IF Hl<4 THEN 20 
GOTO 480 

CURSOR TX,14:PRINT S$(L) 

KM-INT (2*RND (1)) :HN-1 

IF (KM-1) ♦ (JT-0) THEN 1280 

GOTO540 

P-INT (6*RND (1)) + 1 
IF TX+P>37 THEN P-0 
FORI-ITOP 

CURSOR TX+I,14:PRINT S$(L) 

NEXT 

TX-TX+P 

CURSOR TX+2,14:PRINT' “ 

CURSOR TX+2, 155PRINTV\" 

CURSOR TX+2,15:PRINT" ” 

CURSOR TX+2, lOrPRINTVX” 

CURSOR TX+2,16:PRINT“ ' 

IF (X-TX-2) + (X-TX-1) + (X-TX-0) THEN AT“ 1: GOTO 14 1 0 
GOTO1430 

CURSOR X, 12:PRINT':7'if' :FORI-3TO2 0:POKE$F1A, I :USR ($F14) : NEXT: KT-KT-588 
CURSOR X,12:PRINT“ '':GOSUB7018 
CURSOR TX,14:PRINT S$ (L) 

FORI-ITOP 

CURSOR TX-I,14:PRINT S$ (L) 

NEXT 


:P0KE$F1A,RND(1)♦2+l:USR($F14) 
:P0KE$F1A,RND(1)+1:USR($F14) 
:P0KESF1A,RND(1)+l:USB($F14) 
:P0KE$F1A,RND (1)♦1.2+1:USR($F14) 


TX-TX-P 

Ul-INT (6»RND(1))+1 
IF Ul<3 THEN 20 
GOTO480 

REM H A-h H 
AT-0:HN-1 

CURSOR TX,14:PRINT S$(L) 

R5-INT ((10-UY) ♦RND (1)) +1 
UY-UY+1 

IF UY>8 THEN UY-8 

IF (R5-1) ♦ (JT-0) THEN 1590 

GOTO480 

Rl- INT (3*RND (1) ) +1 
CURSOR TX+2, 14:PRINTVOX' 

IF Rl-1 THEN CURSOR TX-1,12:PR I NTVfxa*':FOR I-0TO750 :NEXT 
CURSOR TX+2,14:PRINT' O ' 

CURSOR TX+3, 15: PRINT'-f-' ^ FOR I - 0TO5 0 0 : NEXT 

CURSOR TX-1,12:PRINT" 

IF (X-TX<1) + (X-TX>3) THEN 1678 
KT-KT-850 :HUSIC'-#EirG' :GOSUB7010 
CURSOR TX+3,15:PRrNT" ":GOTO480 

HN-3:IF JT-1 THEN 488 
Y2-INT (3*RND (1))+1 
IF Y2-1 THEN 488 
FORI-0TO3 

CURSOR TX+2, 14:PR INT' rrrocH> 

CURSOR TX+2, 14:PRINT'rrr<^ 

CURSOR TX+2, 15:PR INT'jjjCKX. 

CURSOR TX+2, 15:PR INT'-* 

NEXT 

IF (X-TX>0) ♦ (X-TX<7) THEN 1800 
GOTO1850 

CURSOR TX,14:PRINT S$(L):CURSOR X,15:PRINT K$(N) 

CURSOR TX, 12:PRINT":f>h' :FORI-0TO750 :NEXT 
CURSOR TX-2,12:PRINT'7Yf3>>7>':FORI-0TOl500:NEXT 
CURSOR TX-2,12:PRINT' 

KT-KT-1500:GOSUB7010:GOTO20 
Yl-INT (6*RND (1) ) +1 
IF Yl<3 THEN 20 
GOTO480 

HN-2:IF JT-1 THEN 480 
Y2-INT (7*RND (1) ) 

IF Y2>-1 THEN 480 

IF (X-TX-3) + (X-TX-4) + (X-TX-5) THEN F-1 : GOTO 1 9 5 0 
IF (X-TX-2) + (X-TX-3) + (X-TX-4) THEN F-2 : GOTO 1 950 
GOTO480 

Yl-INT (4»8ND (1) ) 

REM IF Yl-1 THEN 460 
IF F-2 THEN 2140 
REM Hi ('y' + ^') Hi 

IF TX>27 THEN 1938 
TX-TX+1 .'CURSOR TX, 14:PRINT S$(L) 

CURSOR TX,12:PRINT'Arr!!" 

F0RI-1T06:P0KE$F1A,I♦12:USR($F14) 

CURSOR TX+2,14:PRINT'/\':CURS0RTX+2,14:PRINT' ' 

CURSOR TX+2,15:PRINT'--':CURS0RTX+2,15:PRINT" " 

CURSOR TX+2,16:PR1NT'\/':CURS0RTX+2,16:PRINT' ':NEX 
CURSOR TX,I2:PRINT' 

CURSOR X,15:PRINT K$ (N) 

CURSOR TX,14:PRINT' OOOO ^OOO OOOO ":TX-TX+7 
CURSOR TX,14:PRINT S$ (L) 

CURSOR TX.12:PRINT' ' : FOR I - 0TO 5 0 0 : NEXT 
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2110 CURSOR TX, 12:PRINT'^jD>>'4’:FORI-0TO 1 500 :NEXT 
2120 CURSOR TX,12:PRINT" ';KT-KT-900 

2130 CURSOR X, 12:PRIKT'>'7!!”:FORr-0TO 1 000 :NEXT:CURSOR X,12:PRINT" ’:GOTO20 

2140 REM ■■ J Hi 

2150 CURSORTX,14:PBINT S$ (L) 

2160 CURSOR X,15:PRINT K$ (N) 

2170 TX-TX+1 .'CURSORTX, 14:PRINT SS (L) 

2180 CURSOR TX+1, 12:PRINT’’^77 ! " :FORI-0TO500 :NEXT 

2190 CURSOR TX+2,15:PRINT”-":CURSOR X+2,15:PR I NT”!":FOR I -50TO0 STEP - 2. 3:POKESF 

lA, I :USR ($F14) :NEXT 
2200 HN-3:KT-KT-400 
2210 CURSOR TX+1,12:PRINT' 

2220 CURSOR X, 1 2:PR INT“a' 77 !':FOR I-0TO 1 000 :NEXT 
2230 CURSORTX + 2,15:PRINT' 1 'iCURSOR X,15:PRINT K$ (N) 

CURSORTX,14:PRINT S$ (L) 

”:X-X-1:GOTO20 


2240 

2250 


CURSOR X, 12:PRINT" 

2260 REM Hi Hi 
2270 HN-3:IF JT-1 THEN 480 
2280 Y2-INT (7*RND (1)) f 1 
2290 IF Y2-1 THEN 2510 
2300 IFTX->23THEN 2530 
2310 IF Y2>-5 THEN 480 
2320 SQ-INT(15*RND (1))+1 
2330 IF X>34 THEN SQ-35-TX 
2340 FORI-0TO2 

2350 CURSOR TX+2,1S:PR I NT'rr"^HUS IC" + #C' 

2360 CURSOR TXt2,15:PR INT'J^" 

2370 CURSOR TX+2, 1 5:PR INT'tt":HUS IC"4#C" 

2380 CURSOR TX+2,15:PR I NT'll-;NEXT 

2 39 0 FORI-0TOSQ:POKE$F1A,INT (RND(1)$5 0+1) :USR($F14) 

2400 CURSOR TX43+I,17:PRINT'W':NEXT 

2410 IF (TX + SQ+2>-X)♦ (TX<X) THEN CURSOR X, 1 2 : PR I NT"7?!":FOR I»0TO7 5 0 :NEXT:GOTO 24 
30 

2420 GOTO2470 

2430 CURSOR X,12:PRINT" ":KT»KT-650 
2440 CURSOR TX,12:PRINT"^>h':FORI-0TO500:NEXT 
2450 CURSOR TX-2, 1 2 : PR I NT":?71»77^> ' : FOR I - 0TO 1 000 : NEXT 
2460 CURSOR TX-2,12:PR I NT' 

2470 FORI-0TOSQ 

2480 CURS0RTX+3+I,I7:PRINT" ':NEXT 
2490 GOTO20 

2500 Y3-INT (2*RND (1) ) + 1 
2510 IF TX<7 THEN 2550 
2520 IF Y3-1 THEN 20 
2530 PORI-0TO2 

2540 CURSOR TX-1,14:PR I NT S$ (L) :NEXT:TX-TX-I:GOTO20 
2550 Y3-INT(2*RND(1))+1 
2560 IF Y3-1 THEN 20 
2570 FORI-0TO2 

2580 CURSOR TX+1,14:PR I NT S$ (L) :NEXT:TX-TX+I:GOTO20 

2590 REU Hi ^><7 Hi 

2600 HN-3:IF JU<>0 THEN 480 


2610 

IF 

Ul-1 

THEN 

800 

2620 

Y3 

-INT (7*RND (1) ) + 

2630 

IF 

Y3>1 

THEN 

2650 

2640 

GOTO 480 


2650 

ZX 

-X-TX 



2660 

IF 

ZX-7 

THEN 

2710 

2670 

IF 

ZX-5 

THEN 

2840 

2680 

IF 

ZX-2 

THEN 

3150 

2690 

IF 

ZX-3 

THEN 

2990 

2700 

GOTO480 




OC<x>CX> OC> 
SS(L) 


" :HUSIC"R" 

' :HUSIC" + #C" 
" :hUSIC" + #D" 
':H0SIC"+#E' 
' :HUSIC"+#G" 
':HUSIC"+«B" 
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j Hi 

2720 IF TX>18 THEN 480 
2730 CURSOR TX,15:PRINT K7$ 

2740 CURSOR TX +2, 1 3 : PR I NT" 0<><HfcO<><>iO<><>//OC><><>/" 

2750 CURSOR TX+2, 13 : PR I NT" OOO ' : FOR I -0TO 1 5 : NEXT 

2760 CURSOR TX+4,10rPRINT'ks7!" 

2770 CURSOR TX+4, 12 : PR I NT" 0OCK>ilOC*-' 000«>C«<': POKESF 1 A, 2 : USR ($F 1 4) 

2780 CURSOR TX +4, 12 : PR I NT" OOC> OO OOOOO ' 

2790 CURSOR TX+4, 1 2 : PR I NT' 0OCx> in 0C>«>OOO'-■<>«»" : POKE$F 1 A, 1: USR ($F 1 4) : FOR I - 0TO 5 

:NEXT 

2800 CURSOR TX+4, 12:PRINT" 

2810 CURSOR TX+4,10:PRINT" 

2820 TX-TX+10:CURSOR TX,14:PRINT 
2830 KT-KT-500:GOTO3350 
2840 REH Hi 

2850 CURSOR TX-2, 15 :PRINT'-'-'-'iJ-'-'" 

2860 CURSOR TX-2, 14 : PR I NT" -*0 
2870 CURSOR TX-2, 1 3: PR I NT" -'J -> 

2880 CURSOR TX-2,13:PR I NT" 

2890 CURSOR TX-2,14:PR I NT" 0 
2900 CURSOR TX-2,15:PRINT' i 
2910 CURSOR TX,15:PRINT K7$ 

2920 TX-TX+3:KT-KT-1000 
2930 CURSOR TX,14:PRINT S$(L) 

2940 CURSORTX+2,14:PRINT'--o:." 

2950 CURSOR X, 1 2 : PR I NT'7"7!!":FOR I-0TO 1 000 :NEXT 
2960 CURSOR TX+2,14:PRINT" o ':CURSORX,12:PR I NT" 

2970 CURSOR TX-1, 1 2 : PR I NT" f'jV ' : FOR I - 0TO 5 0 0 : NEXT 

2 980 CURSOR TX-2, 12:PR I NT"7":FORI -0TO500 :NEXT:CURSORTX-2,12:PRINT' 

":GOTO3350 ) 

2990 REM Hi t/7^+7 777" Hi 
3000 CURSORTX,15:PRINT K7$ 

3010 CURSORTX, 12:PRINT'4;t-!! ' 

3020 FORI-0TO15:POKE$F1A, (RND (1) ♦ 2 0) + 2 0 0 : USR ($F 1 4) 

3030 CURSORTX-1, 14:PRINT' /OOC>0H-_ _0OOO " 

3040 CURSOR X+3,12:PRINT"i' 7 !■ 

3050 CURSORTX-1, 14:PRINT' /OO«>0H OC> ' 

3060 CURSORTX-1, U.'PRINT' OOO OOC>C» ' 

3070 CURSOR X + 3, 12:PR1NT" 

3080 CURSORTX-1, 14:PRINT" \0’<»OC>/_H90OCX> " 

3090 CURSORTX-1, 14:PRINT" (>OC>C>0> OOOO OO " 

3100 NEXT 

3110 CURSOR TX,12:PRINT' 

3120 CURSOR TX,14:PRINT S$ (L) 

3130 CURSOR TX,12:PRINT" ":FOR I-0TO500 :NEXT 

3140 CURSOR TX-2, 12;P.RINT'U7+t7 777" : FOR I - 0TO8 0 0 : NEXT: CURSORTX-2, 1 2 : PR I NT" 

riifi.ijj c4'o T L ^ o 
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3158 

3168 

3178 

3188 

3198 

3288 

3218 

3228 

3238 

3248 

3258 

3268 

3278 

3288 

3298 

3388 

3318 

3328 

3338 

3348 

3358 
3368 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3538 
3548 
3558 
3568 
3578 
3588 
3598 
3688 
3610 
3620 
3630 
3640 
3850 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3980 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4820 
4030 
4840 
4 850 
4060 
4070 
4080 
4090 
4100 
4110 
4 120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4 200 


':KT-KT-800:GOTO3350 
REM m m 

CURSOB TX,12:PRINT'tY77.!* 

FORI=0TO10 

CURSOR TX+1, 13:PRIKT'I : POKESF 1 A, 20 8 : USR ($F 1 4) 

,13: PR I NT" ooo OOO OO " 

, 13:PRINT" I /<>CK><>|/<><>C»>oi0OC><><>/I " : P0KE$F 1 A, 1 58 : USR ($F 1 4) 
OOOO ooo OO OOOO " 

CURSOR TX+1, 13:PRINT" |OC>j—OC>O«*!>Oi0O«>Cx>/| ” :P0KE$F1A, 1 08 : USR ($F 1 4) 
CURSOR TX+1, 13:PRINT" OO 0<XX> OO " 

CURSOR TX+1, 13: PRINT" | OC||\OOO10\OO>C>C<>/ | " :P0KE$F lA, 60 :USR ($F14) 


CURSOR TX+1, 

CURSOR TX+1, 

CURSOR TX+1,13:PRINT" 


CURSOR TX+1,13:PRINT" 
CURSOR TX+1,I3:PRINT" 
CURSOR TX+1,13:PRINT" 


OO OO OOO ^OOOO 
|0<>|—-<><>C’<>1O<>10 <XXp/\ 

oo oooo oo ooo " 


:P0KE$F1A,90:USR($F14) 


:HUSIC"RR" 


:MUSIC"R" 

:MUSIC"-#F-«C-#G" 


:FORI-0TO800:NEXT 


CURSOR TX+1, 13:PRINT" I /O<X*!>c€0<VOOO/1" ' P0KE$F 1 A, 1 5 5 

CURSOR TX+1,13:PRINT" OOOO OO OOOO " 

CURSOR TX+ 1,13:PRINT"1 Jooo] |000*00100000/[":POKESF1 A, 187 
CURS.OR TX+1, 13:PRINT" OOO OOO OO OOOO ":NEXT 
CURSOR TX,14:PRINT S$(L) 

CURSOR TX, 12:PRINT":^>F ": FOR I » 0TO 7 5 0 : NEXT 

CURSOR TX-1, 12:PRINT"'j7$v7 ^97'": FOR I - 0TO808 : NEXT : CURSOR TX-1, 1 2 : PR I NT" 
":KT=KT-908 
GOSUB7810:GOTO20 
REM H 9:47 M 
HN“2:IF JU<>0 THEN 480 
FX«INT (5*RND (1) ) +1 
ON FX GOTO 480,3580,3610 
REM m 747 J :777"^ 1 H 
IF (X-TX-3) + {X-TX-4) THEN 3438 
GOTO480 

FORI-1TO30:P0KE$F1A,I + 60*RND (1) :USR ($F14) 

CURSOR TX, 12:PRINT"77!" 

CURSORTX+2, 15:PRINT"-1 OOO-' ' 

CURSOR TX+2,15:PRINT" ":NEXT:CURSOR TX,12:PR I NT" 

CURSOR X-1,12:PRINT"7'7!":FORI-0TO1280:NEXT 
CURSOR X-1,12:PRINT" 

KT»KT-1100:GOTO20 
REM H 947 7 n79"^ 2 Hi 
IF X-TX<>2 THEN 480 
CURSOR TX,15:PRINT K7$ 

CURSOR TX,14:PRINT" oOOOilo«1000_I' 

CURSOR TX, 14:PRINT" OOO OO OOO " 

CURSOR TX,12:PRINT'79r!!" 

CURSOR TX,14:PRINT" OOOO/IJ/OOOCl/OOOI" 

CURSOR TX,14:PRINT" OOO OOOO 0OO|" 

CURSOR TX,12:PRINT" 

CURSOR TX,I4:PRINT S$(L) 

GOSUB7810:KT-KT-1300:GOTO20 
REM Hi 947 ) 777'^ 3 Hi 
IF X-TX<>2 THEN 480 

CURSOR TX+2,15:PRINT'J0Or-":MUSIC"-E-D" 

CURSOR TX-2,12:PRINT"k37 ) th7":FOR I-0TO750 :NEXT 
CURSOR TX-2,12:PRINT'>>97^»7 77Y7":FOR I-0TO1 750 :NEXT 
CURSOR TX-2,12:PRINT" 

CURSOR TX+2,15:PRINT" OO " 

CURSOR TX,15:PRINT K7$ 

IF TX>4 THEN TX-TX-3:CURS0R TX,14:PRINT S$(L) 

TI$="800000":RT'l:GOTO20 
REM Hi 9>9tr7 ) lY Hi 
REM IH 1:-/9>7"4 Hi 
KT»KT-l:IF X-TX<8 THEN 410 

CURSOR X-1,15:PRINT" I-' 

CURSOR X+1,12:PRINT'79!’ 

CURSOR X-1,15:PRINT" 

IF X-TX<4 THEN TS-TS-40:MUSIC"C" 

Wl-INT (3*RND (1))+1:CURSOR X+1,12:PR I NT" 

IF Wl<-2 THEN 20 
GOTO410 

REM Hi Hi 

4IT-KT-3:IF X-TX<1 THEN 410 
CURSOR X+1,12:PRINT~*797!':KT-KT-1 
CURSOR X-2,16:PRINT K$ (3) 

IF X-TX<3 THEN TS-TS-80:MUSIC"A" 

W2-INT (3*RND (1))+1 

CURSOR X-2,16:PRINT K1$:CURS0R X+1, 1 2 : PRINT" 

IF ff2<-l THEN 20 
GOTO410 

REM Hi 9>77^ Hi 
KT-KT-20: IF (YA-1) + (YA-2) THEN 39 30 
IF YA-0 THEN 3940 
GOTO39S0 

CURSOR X+1,14:PRINT"lOOL':KT-KT-3:GOTO3960 
CURSOR X-1, 14:PRINT">-H>0'-'' 

CURSOR X-2, 12 : PRI NT'^Jhi^Jr^" : FORI-0TO 1 00 0 : NEXT 
CURSOR X-2, 12:PRINT"::> •;>77 a ! ' : FOR I - 0TO 1 0 0 0 : NEXT 
CURSOR X-2,12:PRINT" 

CURSOR X-1,14:PRINT" OO ' 

IF YA-0 THEN 410 
R3-INT (5*RND (1))+1:YA-0 
SC-SC+ (R3*60) 

GOTO20 

REM Hi Y Hi 

KT-KT-40:IF X-TX<>3 THEN Z-0 
IF X-TX-3 THEN Z-I 
CURSOR X-1,15:PRINT K$(N) 

CURSOR X-1, 14:PRINT"t-OO0'—" 

IF Z=0 THEN 4160 

CURSOR X-4, 12:PRINT"49h9' : MUSIC"ifD#C#D" 

FORI=8TO800:NEXT 

CURSOR X-4,12:PRINT"3k" 37a" “ ":FOR I-0TO500 :NEXT 
CURSOR X-4,12:PRINT" 4 vxa 97! ":FOR I-0TO 1 008 :NEXT 
R4-INT(7*RND(1))+1 
IF (L-10) + (L-6) + (L-5) THEN 6860 
CURSOR X-4,12:PRINT" 

CURSOR X-1,14:PRINT" " 

CURSOR X-1,1S:PRINT" " 

IF Z=0 THEN 410 
GOTO6350 
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4210 

4220 

4230 

4240 

425 0 

426 0 
4270 
4 280 
4290 
4300 
4310 
4 320 
4330 
434 0 
4 350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
44 30 
44 4 0 
44 50 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4 530 
4540 
4 550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
484 0 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 

4 990 

5 0 00 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5 0 9 0 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5 2 0 0 
5210 
5220 
5230 
524 0 
5250 
5260 
5270 
5280 


REM Wm 100t^7y> M 
IF X-TX<>3 THEN KT=KT-60:Z»0 
IF X-TX-3 THEN Z-1 
CURSOR X-1,15:PRINT K$(N) 

CURSOR X-2,12:PRINT"793?9. . ' 

FORI“1TO30:POKE$F1A, (RND(1)♦20) +10:USR($F14) 

CURSOR X-1, 14:PRINT"——” 

CURSOR X-1, 14:PRINT" OO {>0 ' 

CURSOR X-1, ISrPRINT' — ” 

CURSOR X-1, ISrPRINT" " 

CURSOR X-1, 16:PRINT"-JOC’rOOO—” 

CURSOR X-1, 16:PRINT" “DO OOO •• 

NEXT 

CURSOR X-2,12;PRINT" 

IF Z-0 THEN 410 

IF (L-9) + (L-5) (L = 10) THEN 6860 
CURSORX-2, 12:PRINT"5(?9???. " 

CURSOR TX,13:PRINT S$ (L) 

CURSORX-1,15:PRINT K$ (N) 

CURSOR TX IZ^PRINT** 

FORI-lTOl10:POKE$F1A, (RND (1)♦20) + 1:USR($F14) 

CURSOR X, I3:PRINT''\O0 <N>\' 

CURSOR X, UtPRINT’ 0<>\00 " 

NEXT 

CURSOR X, 14:PRINT“ ” 

CURSOR X-2, 12:PRINT'' 

CURSOR TX-1, 13:PRINTS1$ 

CURSOR TX-2, 13:PRINTV«—OC><XX=* 

FORI-0TO250:NEXT 

CURSOR TX-2,13:PRINT' OOOOO OOOO " 

CURSOR TX-2, 17:PRINT'**/\“ :MUSIC“-D" 

CURSOR TX-2, 15:PRINT”h*tf7' 

CURSOR X, 12:PRINT''4:i?F':FORI-0TO75 0 :NEXT 
CURSORX-2, 12:PRINT''t^;?l.7ir>'' 

FORI-0TO2500:NEXT 
CURSORTX-2,17:PRINT' 

CURSORTX-2,15:PRINT" 

CURSOR X,12:PRINT" 

CURSOR X-2, 12:PRINT“ 

CURSOR TX-I, 14:PRINT S$ (L) 

FX-INT (6*RND (1) ) +1 

ON FX GOTO 4630,4650,4670,4680,4710,4720 

CURSOR TX-3, 12:PRINT“^7iy >> h'" : F OR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-3, 12:PRINT''3lj i 4fii>7 ! “ : FOR I » 0TO 1 500 : NEXT : GOTO4740 

CURSOR TX-3, 12 :PRINT''a7 A7A,. . ' : FOR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-3, 12:PRINT':f>M:^-<t' ! ' : FOR I - 0TO 1 5 0 0 : NEXT: GOTO 4 740 

CURSOR TX, 12:PRINT'4rtlv! ! “ : FOR I » 0TO 1 5 0 0 : NEXT: G0T04 7 4 0 

CURSOR TX-2, 12:PRINT''3i.A 77': FOR I - 0TO 1 000 : NEXT 

CURSOR TX-5, 12:PRINT'7'7 ' : FOR I - 0TO 1 5 0 0 : NEXT 

CURSOR TX-5, 12:PRINT' : FOR I - 0TO2 0 0 0 : NEXT: GOTO 474 0 

CURSOR TX-2, 12:PRINTV7i7 37 ! ! " : FOR I - 0TO 1 5 0 0 : NEXT: GOTO 4 7 4 0 

CURSOR TX-2, 12:PRINT"^4!iW9' ! ! ’: F OR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-2, 12:PRINT' : FOR I » 0TO 1 500 : NEXT: GOTO4740 

KT-KT-80:GOTO6350 

REM ■■ 7X m 

IF X<-9 THEN JT=0:GOTO410 

JU-JU+1 

IF JU>1 THEN 4840 
CURSORX-1, 15:PRINT Kl$ 

CURSOR X-1, 17:PRINT” '; 

IF JU-1 THEN CURSOR X-1,12:PRINT K$ (5) :MUSIC”R0” 

IF X-NJ THEN JK=0 
CURSOR X-1, 12:PRINT K2$ 

IF JU-1 THEN CURSOR X-5,10:PRINT K$(6):G0T0 410 
CURSOR X-5,10:PRINT K3$:MUSIC'R' 

X-X-7 

CURSOR X, 15:PRINT K$ (1) 

IFBNO0 THEN 4910 
IF RO-0 THEN 4930 

NJ-INT(30*RND(1) )+1:IF NJ<15 THEN 4900 
BN-1 

IF JK-0 THEN NB=1 :GOTO6920 
Tl-INT (50*RND (1)) + 1 
IF Tl-1 THEN BN-0:RO-0 
KT-KT-5:JU-0:JT-0:GOTO410 

IF X>27 THEN^JT=0:GOTO410 

CURSORX,15:PRINT K7$:KT-KT-5:CURSORTX,14:PR I NT S$(L) 

X-X+2:CURS0R X, 12:PRINT" •OOO/ft OOOOlOOW'OoX" : MUS I C'RR" 

CURSOR X,12:PRINT‘' &00 OCXX> OO OO ' 

X-X + 4:CURS0R X, 10:PRINT" /Hi\*0OOOOO'>// \-&000000/" : MUS I C ' R 0R “ 

CURSOR X,10:PRINT" 0OO^<xx> " 

X-X+2:CURSOR X,15:PRINTK$ (N) :JT-0:G0T0410 

HEM SHI flH 

KT-KT-40 
IF X<9 THEN 410 
IF X-TX-2 THEN AT-1 
CURSOR X, 12:PRINT''7j-J>' 

CURSORX-1, 15:PRINT" '-":FOR I -0TO 5 0 0 :NEXT 

CURSOR TX, 14:PRINT S$ (L) 

CURSOR X-1, 1 7:PRINT” ":CURSOR X,12:PRINT" 

CURSOR X-1, 15:PRINT" 

CURSOR X, 15:PRINT Kl$ 

CURSORTX, 14 rPRINT S$ (L) 

CURSOR X,ll:PRINT K$ (4) :FOR I-0TO500 :NEXT:CURSOR TX,14:PRINT S$(L) 
CURSOR X, 1 1 : PRINT K4$ 

CURSOR X-3,I0:PRINT K$ (6) : FOR I-0TO500:NEXT 
CURSOR X-3, 10:PRINT K6$ 

CURSOR TX,14 rPRINT S$(L) 

X-X-6:CURS0R X,15:PRINT K$(l) 

IF AT‘0 THEN KT-KT-5:G0T0410 
AT“0 

CURSOR X-2, 12:PRINT”37>aAij' : FOR I - 0TO 1 7 50 : NEXT 
CURSOR X-2, 12:PRINT" 

IF (L-5) + (L-6) + (L=9) + (L-10) + (L-7) THEN 6860 
CURSOR TX- 1, 12:PRINT"7* ! " : MU S I C" - #C - FRRRRR " 

CURSOR TX-2, 12:PRINT'3'^3':^^. ":MUSIC"-#C0R-11GR-GR-DR-#DRR" 

CURSOR TX-3,12:PRINT' 
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5296 
5366 
5316 
5326 
5336 
5346 
5356 
5366 
5376 
5386 
5396 
5406 
54 10 
5420 
54 30 
5440 
54 50 
5466 
5470 
5480 
5490 
5500 
5510 
5520 
5536 
5540 
5556 
5560 
5570 
5580 
5590 
5600 
5616 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
PRINT 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
624 0 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 


GOTO6350 

REM ■■ 

KT-KT-45:IF X-TX<>2 THEN AT-0:GOTO5330 
AT-1 

CURSOR X, 14:PRINT"— 

IF AT-0 THEN 5380 

MUSIC'-8DE": CURSOR X, 1 2 : PR I NT" 4= ^ F " : FOR I • 0TO 6 0 0 : NEXT 

CURSORX-2, 12:PRINT"i?Y375r>" :FORI'0TO 1 250 :NEXT: IF (L>4)*(L<10) THEN 6860 
CURSORX-2, 12:PRINT" 

CURSOR X, I4:PRINT" " 

IF AT-0 THEN 410 
AT-0:GOTO63S0 

R2-INT (3*RND (1))+1:SC = SC + R2*L*5 0 

REM Bn mm 

CURSOR X,I5:PRINT Kl$ 

CURSOR X, 17:PRINT" 

CURSOR TX,14:PRINT S$ (L) 

CURSORX- 1,16:PRINT K$ (7) 

CURSORX-1,12:PRINT"^79???." 

FORI-0TO60:POKE$F1A,RND (1)*24 0+ 1 :USR ($FI4) 

CURSOR X-1, 16:PRINT" _ -" 

NEXT:KT-KT-70 

CURSOR X-1, 12:PRINT" <>C»C><><><><N>4>04> 

IF X-TX<>3 THEN 5730 

IF (L-6) + (L-8) + (L-10) THEN 6860 

IF L<>5 THEN 00-1 

CURSOR X-1,16:PRINT JUS : CURSORX, 1 5:PR I NT K$(l) 

IF 00-1 THEN O2-l:GOTO5730 

REM m A-h Mi 

CURSOR X-1,16:PRINT JU$:CURS0R X,15;PRINT K$(l) 

CURSOR TX,14:PRINT S$ (5) 

CURSOR TX,12:PRINT"^t.":FORI-0TO900:NEXT 
CURSORX+1,15:PRINT" " 

CURSORX-1,15:PRINT"-' 

CURSOR TX,12:PRINT" 

CURSOR X, 12:PRINT"77?!FORI-0TO500 :NEXT 
CURSOR X,12:PRINT' "iCDRSOR X-1, 1 5 : PR I NT" 

CURSOR TX+1,I6:PRINT"*" 

CURSOR X-1, 12:PRINT"i;?h>'a7Aif'>":FORI-0TOl 500 :NEXT 
GJ-INT(3*RND (1))+1 
CURSOR X-1,12:PRINT" 

CURSOR TX-1,12:PRINT HH$ (GJ) :FOR I-0TO750 :NEXT 
CURSOR TX-1,12:P8INT" 

OO-0:KT-KT-15:GOTO6350 


REM 

CURSOR X-1, 12;PRINT" 

CURSOR X-1,16:PRINT JU$:CURSOR X,15:PRIHT K$(l) 

CURSOR TX, 14:PRINT S$ (L) 

00-0: IF 02-0 THEN 5790 

O2-0:GOTO6350 

GOTO410 

REM ■■ t:a7 ■■ 

IFX-TX<>2 THEN KT-KT-20:Z-0 
IF X-TX-2 THEN Z-1 
D2-INT (3*RND (1) ) +1 

IF D2-2 THEN CURSOR X,14:PRINT"—OOx>__" 

IF D2-3 THEN CURSOR X, 1 4 : PR I NT"-i OO*-" 

IF D2-I THEN CURSOR X, 1 4 : PR I NT'n OOO^" 

IF Z-0 THEN CURSOR X,14:PRINT" ■:GOTO410 

CURSOR X-5,12:PRINT W$(D2);" ": FOR I - 0TO 1 500 : NEXT: CURSOR 


X-5, 12: 


KT-KT-10:IF (L-1 0) + ( (L-5) * (D 2<> 3)) THEN 6860 

CURSOR X,14:PRINT" 4^00 ":X-X+2:CURSOR TX,14:PRINT S$(L) 

CURSOR X,14:PRINT " OO OO " 

CURSORX, 15:PRINT K$ (1) 

CURSOR X,15:PRINT" -❖OOOO " 

ON D2 GOTO 5950,6000,6020 

CURSOR X,12:PRINT"?7iAt7..":FOR I -0TO500:NEXT 
CURSOR X, 12 :PRINT"v>7"Y*!!":FOR I -0TO 1 0 0 0 :NEXT 
CURSOR X, 12:PRINT" 

D3-INT (5*RND (1) ) +1 

ON D3 GOTO 6040,6080,6160,6200,6270 

CURSOR X, 12:PRINT"^7i7Y7fA':FORO-0TO750:NEXT 

CURSOR X, 12:PRINT"7I' 51'19" : FOR I - 0TO 1 0 0 0 : NEXT: G0T059 70 

CURSOR X, 12:PRINT"4yi.7 7 ? 7* Klf? " J FOR I - 0TO 1 0 0 0 : NEXT 

CURSOR X, 12:PRINT"^t-^irH ! ! " : FOR I - 0TO 1 290 : NEXT : GOTO5970 

CURSORTX, 12:PRINT"7>^..FORI-0TO750 :NEXT:MUSIC" + B + BR" 

CURSORTX,I2:PRINT"a"7'7*" 

CURSOR TX-1, 14:PRINT" %r \\ iyooc«> |i OOOOO \' 

FORI-0TO1500:NEXT:CURSOR TX,12:PRINT" ":GOTO6620 

CURSOR TX, 12:PRINT"97J'7!":FORI-0TO7 50 :NEXT:MUSIC"AA" 

CURSOR TX,12:PRINT" ":CURSOR X-1, I 2 : PR I NT"77F’> 7": FOR I ■ 0TO 7 5 0 : NEXT 

CURSORX-1, 12:PRINT"t7-f a " : FOR I - 0TO 8 5 0 : NEXT 
CURSORX-1, 12:PR I NT"43177! ' : FOR I -0TO 1 500 :NEXT 
CURSORX-2, 12:PRINT' 

CURSOR TX-1,12:PRINT"77H/..":FOR I -0TO500 :NEXT 

CURSOR TX, 14:PRINT"i OOOOX>/M\ //': FOR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-1,12:PRINT" ":GOTO6620 

CURSOR TX-2,12:PRINT"3Y7!!!!":FOR I -0TO750 :NEXT 

CURSOR TX-2,12:PRINT"77775..":FOR I -0TO 1 0 0 0 :NEXT 

CURSOR TX, 14:PRINT"Le 0<XX»<x>;iD OOOOOXX L" : FOR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-2,12:PRINT" ":GOTO6620 

CURSOR TX-3, 12:PRINT"-/?7t " : FOR I - 0TO 1 0 0 0 : NEXT 

CURSOR TX-3,12:PRINT" aii' 7J ":FOR I-0TO500 :NEXT 

CURSOR TX-3, 12:PRINT'4;7F>:/7> i; Y! " : FO R I • 0TO 1 2 0 0 : NEXT 

CURSOR TX-3,12:PRINT"777tAt'. " : FOR I-0TO 1 000 :NEXT 

CURSOR TX-3, 12:PRINT"A5A,y'" : FOR I - 0TO 1 2 0 0 : NEXT 

CURSOR TX, 14:PRINT". 8 OOOCXX’, #-« OOOOO ■DOC>^// " : FOR I - 0TO 1 5 0 0 : NEXT 
CURSORTX-3, 12:PRINT" ":GOTO6620 

CURSORTX-2,12:PRINT"7>h47Y!':FORI-0TO1300:NEXT 
CURSORTX-2, 12:PRINT" 

CURSOR X-3, 12:PRlNT"4f77377 7'h'7" :FOR I-0TO 1 000 :NEXT 
CURSOR X-3,12:PRINT"tH?'YiXh :FORI■0TO1500:NEXT 

CURSOR X-3, 12:PRINT" 

CURSOR TX,12:PRINT"kA'A*" 

CURSOR TX, 14:PRINT".\» // 0OC>C<>\\\0OOO/ \" : FOR I - 0TO 1 5 0 0 : NEXT 

CURSOR TX, 12:PRINT" ":GOTO6620 

REM wmmmmmmmmm 


► 7 r >«: t O T 9 H h 0)r L 4.*^ ^m(\ ^ 

7 etc mt (16) 
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6360 
6370 
6380 
6390 
64 00 
6410 
6420 
64 30 
6440 
64 50 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 


6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6845 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 


CURSOR TX,14:PRINT S$(L) 

H-0:CURSORX, 15:PR1NT K$(l) 

V-INT(1URND (D) +1 
IF W*4 THEN Z-0:GOTO6450 
IF W=5 THEN Z“0:GOTO8580 
IF W'6 THEN 6470 
IF W=7 THEN 6470 
IF W-8 THEN 6630 
G0T04 10 

FORI-3TO0STEP-1 

CURSOR TX+1,11:PRINT I;:MUSIC"+CRRR”:NEXT 
REM CURSOR TX+3,14:PR I NT” ” 

CURSOR TX-1,12:PRINT SH$ (V) 

CURSOR TX,13:PRINT"*. ” 

CURSOR TX, 14:PRINT” rv‘-":UUSIC”-E-D” 

FORI-0TO1500:NEXT 
C’URSORTX+2, 11 :PRINT“ ' 

CURSORTX-F,12:PRINT’ 

CURSOR TX,13:PRINT” 

CURSOR TX,14:PRINT” 

CURSOR TX,14:PRINT Sl$ 

GOTO690 

REM ■■■■■■nMi 

CURSOR TX-3,12:PRINT” 

CURSOR X-2,12:PRINT”^7Ia 19..":FOR I-0TO1 000 :NEXT 
CURSOR X-2, 12:PRINT” :FOR I-0TO I 600 :NEXT 

CURSOR X-2, 12:PRINT' 

R5-INT(10»RND(1) ) +1 
CURSOR TX-1,12:PRINT SH$(R5) 

CURSOR TX-1,14:PRINT”r. * . “ 

CURSOR TX-1,15:PRINT"- ‘t . * 

CURSOR TX-1, 16:PRINT”. /-» ” 

CURSOR TX-1,17:PRINT“.|:, ” 

MUSIC'-A+C”:TW-0 
FORI-0TO2500:NEXT 
CURSOR TX-2,12:PRINT' 

CURSOR TX-1,14:PRINT' 

CURSOR TX-1,15:PRINT' 

CURSOR TX-1,18:PRINT” 

CURSOR TX-1,17:PRINT' 

IF Lol THEN TN-0 


L-1 :NE-0:GOTO760 
REM ■■ GAME OVER ■■ 

CURSOR 14,3:PRINT”GAME OVER” 
HUSIC”F6ER2E6DR3F8GIIE6E6D9R0‘ 

CURSOR 11,5:PRINT'Y0UR SCORE -';SC»10 
GOTO6830 

CURSOR 11,8:PRINT”PUSH [R] KEY !!' 

GETD$:IF (D$-” ”) + (D$-'R') + (CG-600) THEN 7980 
CURSOR 24,9:PRINT”.0.” 

CG-CG+1;GOTO6840 

REM ■■ 711” r ■■ 

A-INT (5*RND (1)) +1 

CURSOR X,12:PRINT HHS (A) :FORI-0TO750 :NEXT 
CURSOR X,12:PRINT” 

CURSORX-1, 14:PRINT” 4><xx> ' : H-0 : AT-0 : Z-0 

GOTO410 

REM ■■ ? ? ■■ 


6930 NJ-NJ+3 

6940 CURSORNJ+2,15:PRINT'\' 

8950 CURSORNJ+2,16:PRINT“S\” 

8960 CURSORNJ+2,17:PRINT'I” 

8970 HUSIC'+A+D+A” 

6980 BN-0:NB-1 :RO-0:GO.TO4950 

6 990 CURSORNJ-1,16:PR INTBB* 1 0:MUSIC'+ E5 +C4B + C8R0”:RT-0 

7000 SC-SC+BB:KT-KT+1500:CURSORNJ-1,16:PRINT” ':NB-0:RO-0:JK-0:G0T020 

7010 REM H ■■ 

7020 CURSOR X,15:PRINT Kl$ 

7030 CURSORTX+3,15:PRINT” 

7040 CURSOR X,14:PRINT K$ (2) 

7050 CURSOR X-2,12:PRINT' 7!! ”:MUSIC”-#C-#D" 

7060 FORI-0TO800:HEXT 
7070 CURSOR X, 12:PRINT” 

7080 CURSOR X,15:PRINT K9$:CORSOR X,15:PRINT KS(1):RETURN 
7090 REM ■■ WM 

IF RT-2 THEN HN-2 

ON HN GOSUB 7120,7160,7280:G0T06780 
REM H if”n :: H 

CURSOR X,14:PRINT” OOC>C3C> OCkxx>\ r OOC>OC>-Bi* ” : MUS I C ”-C-C " 

CURSOR TX,14:PRINT S$(L) 

FORIl-lT0 4:CURS0RTX-2,12:PRINT ZS$(11) :FOR I -0TO300 :NEXT 1, 11:RETURN 

REM H WM 

CURSORTX,14:PRINT S$(L) 

CURSOR X, 15:PRINT KS(1) 

CURSOR X, 12:PRINT”4:'a3”:FORI-lTO80:POKESFlA, ABS (S IN (I) + 1) ♦ 1 0 0+1: USR ($F 1 4) : 


7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

NEXT 

7200 

7210 

7220 

7230 

7240 


CURSOR X, 12:PRINT” 

CURSORX+2,13:PRINT”!•”:FORI -0TO500 :NEXT 

CURSOR X+1, 14:PRINT” •OC>C>/\000\/4>00/| ” : FOR I - 0TO 1 0 0 0 : NEXT 
CURSOR X-1, 13:PRINT”\3y7r-../” 

CURSOR X+1, 12:PRINT' ^VOOOOC’r..<>000^. : '. OOOOO. It* 4>«><xx>. | \, ' : MUS I C ”-F-G ” 
:IF (RT-2)♦ (L<>10) THEN RETURN 
7250 CURSOR TX-1,12:PR I NT”a':FOR I-0TO 1 000 :NEXT 
7280 CURSOR TX-1, 1 2 : PR I NT” 1 1.:: a' : FOR I - 0TO 1 000 : NEXT 
7270 CURSOR TX-1,12:PR I NT”i7>!!“:FOR I-OTO 1 750 :NEXT:RETURN 
7280 REM ■■ 7 ' ■■ 

7290 CURSOR X-3, 12 : PR I NT” ;ia', . :xa -7 ' : FOR I - 5 0TO 2 STEP - 2 : P0KE$F 1 A, I : USR ($F 1 4) : NEXT 
7 30 0 CURSOR X+ 1, 14: PR I NT”. \'0C^/E-" : FOR I - 5 0TO 2STEP-2 : P0KE$F 1 A, I :USR ($F14) :NEXT 
7310 CURSOR X+1, 16:PRINT” ; \ ”:RETURN 

7320 REM mm t??-/ ■■ 

7330 CLR:PRINT”C”; 

7340 KT-5000:SC-0:JK-l:RO-l:N-l:L-l:X-33:TX-6:TS-300 
7350 RT-0:DIMNAS(10) :DIMWAS (8) 

7360 CG-0:DIM HHS(5):DIM Q (8) : D I MW$ (3) 

7 37 0 TIS-' 000000”:HH$ (1) - ':^::! ! ! ■ :HH$ (2) - ‘A'i^! ' :HH$ (5) - ” : HHS (4) - ” 9^? f ! ” : H 

H$ (3) h' 

7 38 0 W$ (1) -'h9Y' :WS (2) : WS (3) -'YK?" 

7390 JUS-” ':DIMT1S (7) :DIMT2S (14) 


► t (:*•< MZ-2000 -r }{$'?* /j”{ti;')^'7-ROM{if|iT^C!)2000 J: L xi 
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7400 DIM K$(7):DIH S$(10):DIM SH$(11):DIM B0$(3):DIM BK$(3):DIM ZS$(4) 

7410 ZS$ (1)-'’a7A7a“ .*ZS$ (2) y':ZS$ (3) a“ : ZSS (4) = ” tUfv i?*t97?I!" 

7420 K7$-" •000<> OOOOO OOOOO 

7430 K4$-' 0C»O OOO “ : K6$•=" OOOC^OO OO " 

7440 K$(7)-’-10<5ih 000*<^000r 

74 5 0 K3$-'' 0<>C><><><><>C><><> OO ':K2$-' OOO OOO OOOO ” 

7460 K9$-' OO^OO 

7470 BK$(1)-" OO OO ':BK$(2)-'’0 OO <^0 " : BK$ (3) - "00 OO OO 

7480 B0$ (1) “"-OO^OO-" :B0$ (2) »"0-0OJ<^<>-" :B0$ (3) - ' 00-0C>-, OO-" 

7 4 9 0 K1 $ -" OOOOO 0<>OO OOOOO 

75 0 0 SH$(1) -"fc7"7' !":SH$(9) - "9^1/7 ! " : SH$ (3) -"?7a' ! ‘ : SH$ (4) - " 7a* ^: SH$ (5) -"Aj'i' 


K$ (4) -"•/0O<^h0OO\\0OO_ \" :K$ (5) ' ■•000r\\0«*>00//0000/" 

K$ (6) “"L/Bi\000000*L \\0O\" :SH$ (6) -"ida* ! " : SH$ (7) - " ! ! ' : SH$ (8) - " 7ti! ! ! ‘ 


SH$ (2) • 
K$ (1) 

K$ (2) 

K$ (3) »" 
S$(l) 
S$(2) 
S$(3)-" 
S$(4) • 


7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 

7630 S$(7) 

7640 S$ (8) 

7650 S$ (9) 

7660 S$ (10) - 
7670 Sl$-' 

7680 REM H 
7690 NAS (1) - 
7700 NAS (3) -'?* Yt 
7710 NAS (5)-"A-h 
7720 NAS (7) 

7730 NAS (9) " :NAS (10) 

7740 REM Hi ir } Hi 
7750 WAS (1) 

7760 WAS (2)-"TvJr* •; 

7770 WAS (3)-'ka7 7 7? 

7780 WAS(4)-'4;yh f* " 

7790 WAS(5)-"4;7h tt^I.7ir> ' 
7800 WAS (6)Ai*:/Jr> ' 
7810 WAS (7) i'fayir'y " 

7820 WAS ( 8) v* »^Atf * 

7830 REM WM 7 Hi 

7840 FORI-0TO39 


7a' 9!':SHS(10) -“ki! ! !":SHS(11 )-"ai,7! !" 
Hi OOOO • OOOOO ■ OOOOO /I " 

oooooo oooooo •HI oooc»oo /1 

-/ OOOOO / 0<>OO //J <>oooo • " 

D oooo OOOOO ■ OOOOO / \ " 

#i-» oooooo iJ OOOOO oooooo / I " 

4 oooo ■ oooo I OOOOO / \ " 

§/\ oooooo ■ oooo ■ O OOO O I \ " 

Ss(5)-" f OOOOO /iV ooooooo Hi oooooo /lx " 
ss(6)-' o oooo i< OOOOO I OOOOO / \ " 

0 oooo ■[ OOOOO i OOOOO /! 

D oooo i^ OOOOO I OOOOO I ) ' 

0 oooo i^ OOOOO I OOOOO I \ " 
o OOOOO OOOOO ■ OOOOO < \ ” 

oooooo _ oooooo oooooo 

7^ ) f'tx Hi 

S-77A- " ;NAS (2)-"7A--h" 

" :NAS (4) -"i^97* " 

' :NA$ (6)-"i,Y 
:NA$(8)-'a7* 


7850 

CURSOR 

I,18:PRINT"i"; 


7860 

NEXT 




7910 

W-1:CURS0R 12,3 



7920 

PRINT" 

00 

.OOOOO* 

0.00 .00. 

7930 

GOTO20 




7940 

kem Hi 

7'ttlT-ir* i 



7950 

RESTORE 

:PRINT"C" 

:CONSOLEC4 0,S0, 24:TEMPO7 

7960 

FORI-1 

TO 180:READ MJSiCURSOR 39,12:PRINT MJS 

MUSIC 

"+A1R2": 

NEXT 



7970 

FORI-1 

TO 39:CURS0R 1,12 

:PRINT CHRS (7) ; :MUSIC 

7980 

REM Hi 

till Hi 



7990 

PRINT'C 

" ; 



8000 

PRINT" 

<«( J 

PART !]>>>' 

8010 

PRINT' 

Jr>?tf>> 7 7t77? 10> 

7 7^ h 

8020 

PRINT" 

^ ? A 

S7h>>Jr> 

7'7v37>^r flAi !!" 

8030 

PRINT 




8040 

PRINT" 


KEY 

7 till" 

8050 

PRINT" 

1-1 


1— 1 " 

8060 

PRINT" 

Ml .... 

'71 Yh'9 

1 6| - 

8070 

PRINT" 

1_1 


1_1 ' 

8080 

PRINT" 

1—1 


1—1 " 

8090 

PRINT" 

|8| .... 

71 JUMP 

|21 - JUMP" 

8100 

PRINT" 

1_1 


1—1 ' 

8110 

PRINT" 

1—1 1—1 " 



8120 

PRINT" 

IXI&IVI 

.... 7f' 

? iXA' 


8130 PRINT" ' 

8140 PRINT" 

8150 PRINT" 

8160 PRINT' 

8170 PRINT' 

8180 PRINT" ,-, 

8190 PRINT'ISPCI 

8200 PRINT" '-' 

8210 PRINT 
8220 PRINT' 

8230 PRINT" 

8240 REM H 
8250 
8260 
8270 
8280 
8290 


' 1) t-/ir>7" 4= 2)7i-Jr'';" 

3) k79 7 7? (Ri-aJl-r) " 

4) <;7h 5) kt;^l.7ir>" 

6)77v;» 7)|:;rh ilY37>>" 

8)4:?h 


71f* 7 ?' X I C I 


. ... ::v 

(XA- -h* ; 7 J 7 ) ‘ 


(C) LUM SOFT" 

ARRANGED BY YAMATO SOFT 4 NISHIYA" 


A-A+l:CURSOR 12,22:PR INT'HIT ANY KEY !!' 

IF A-1500 THEN A-0;GOTO7940 
GETASrIF AS-"" THEN 8250 

REM MUSIC"G5F5R2G5R5F4R1F4R1F4R1F4R1F4R1#D5D5R5#D5F5R2#G5R1G5R5G9R0 
GOTO7320 


8300 REM H 7’oo-7' ) f"-? H 
8310 DATA 2,0,0,0,?,>,' ",7," 
8320 DATA , 7, Jr, 7, J, ' , 7, ^ 

8330 DATA ,7,^,7," 


8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 


DATA 7,7," 
DATA !,!,“ 
DATA 7," " 
DATA * 
DATA 9,7," 
DATA .," " 


", l', ' '» 7 

" ",t,7,*,A,* 

“ ",7,?,?,.," " 
‘',ir ”,7," ', h, " ",>,7,Jr,7,j 

',7,7,J^,7,' ",7,7,7,A," ",7,7 

" , Y, 7 , >, 7, 7, 7, * 

»)," J^, F, >, >, y, 7, " ',7,' ’,7,7,' 

k, Jr, ' , " ",A," ", 7,'j, J, I, !f, A 

t, Y, 7, 7, 

DATA " ’,7,', 7, t,7, j, " ", 

DATA 3,5," ", A,*,7,7,Y,' 

REM 

REM —. 

REM 4;7h74ha 

REM jr'7iljr -r r75,*37v' (SP-5030) 

REM 7l.7>' -» k1I7'; (700 S-BASIC) 

REM -f>s7 -» (MZ-80B, 2000) 

REM ... .. — 

REM 




► S71/ ryiPj 

X'hh, ^ < I'o MML 

i '7-71/(15 0 ^o-r ! j 

i \ (16) mmm 
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8 n‘ -Cl'4 jilf&■>"'—/> ?) I.’J; 

J: 5 C^)] ?) I.' ^ 4- I) '>4 < 4 

oTi'4o ioT, :& o $ t jie!) 5ifi4<^ 

-r* o 4 „ 

i t'li i; X h 3 0±m h 4 4 ro 

t LT i t *^)if?.J S|i5>f' 
*4o cLTi-'c 5. 

C t 4 ii 'i —'^ -Y y 'i x'Vi^ 

^ C-r'!ijl|®0 4-i^-V 7 
^ x;>PCG0 -fe 7 h, PI L 4 r" ^ 

(FF87h #Jtll0 h-7 h 1, 

0 CAo-Ci'S), -t^CPU 0?.5:ai (7°n 
^"7A-r'« rif._||i|t,iX0.4Lj 
Ti.'S) 4J:'4L'Ci.'4„ 
j- — 4 L, 

EXIT (#^T L r IPL-tilflj) 

MAKE MAZE GtKII 4113 4) 

SAVE MAZE GilKl4-fc-7't 4) 
LOAD MAZE (IiSRf4 n - Kt 4) 
PLAY MAZE Gilfft45 i X 7 ) 

05 ■^0}:'n*‘4'^lTl-4 4 11:44„ -t 
ybu-^y “MENU” U:^-^-4ii^L, 
y — i—0fiiJ|&t1*‘Il#.::& ^^4*“45Mi■.'^ 
-■7">-r'*4<, fa;i.'77-U:D6C9ii#Il!i(:* 4 
X 5 4t —7Vt/4 HL V- i^'x y cXHX C 
ALLT 4 41111' 5. 7S C i? 1^ 4 — 'f' y 
'r'*4„ 4 0;4i:&:x-Ct.'4 0*L ON~G 
OSUB t lii) L ofc 5 4il) § 41 4 “ONGOS” 
'r'*4o 4n{)D6FAiUfJ-t!i*-iit:*4 J; 5 
4?i%o'':t0T— 7 G 1-4 HL uAn-cfcUii' 
J; i.'L.U-r'*4o ^Leliii.«*='^Li.'0-r' 
X) i >) iSf- L i.'o ^) t ixtbix 

L I.' t 4 A4'tti: t < o 

INPUTN 

»:¥4A1jL, HL wi^'x^rcAn-riK 
T-tzGi-— 

ATOI 

BASIC0VALP^1gG:M(Eo INPUTN0 


Kff)ll'T"^)4„ 

CKDISP 

(2007 ^ K) i}\ ffMit 

l& (400 7 7 F') *-4141^t 4 

>„ xux turbo 0 *# 

^t-URESOLUTIONx-f 7f-*SHIGHt:4 
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4C 

47 

:0F 

DAF8 

21 

00 

00 

lA 

13 

FE 

20 

28 : 

:94 

SUM: 

98 

94 

53 

.F7 

5A 

3E 

D7 

93 : 

:78 

DB00 

15 

D6 

30 

D8 

FE 

0A 

38 

02 

35 

DB08 

37 

C9 

D5 

29 

54 

5D 

29 

29 

01 

DB10 

19 

5F 

16 

00 

19 

D1 

10 

E3 

6B 

DB18 

B7 

C9 

D5 

32 

8B 

DB 

47 

3E 

72 

DB20 

20 

2A 

69 

E6 

E5 

CD 

49 

E6 

7A 

DB28 

10 

FB 

22 

69 

E6 

AF 

F5 

CD 

ED 

DB30 

BB 

DA 

FE 

20 

38 

14 

4F 

FI 

3F 

DB38 

47 

3A 

8B 

DB 

3D 

B8 

78 

38 

8C 

DB40 

ED 

3C 

F5 

79 

CD 

49 

E6 

FI 

84 

DB48 

18 

E4 

FE 

ID 

28 

IB 

FE 

08 

60 

DB50 

28 

17 

FE 

1C 

28 

21 

FE 

0D 

AD 

DB58 

FI 

Cl 

El 

E5 

3A 

8B 

DB 

ED 

05 

DB60 

50 

03 

72 

23 

3D 

20 

F8 

D1 

0E 

DB68 

C9 

FI 

B7 

28 

Cl 

2A 

69 

E6 

D3 

DB70 

2B 

22 

69 

E6 

3D 

18 

B7 

FI 

99 

DB78 

47 

3A 

8B 

DB 

3D 

B8 

78 

38 

8C 

SUM: 

F7 

48 

F3 

20 

05 

85 

0A 

FB : 

;E1 

DB80 

AD 

2A 

69 

E6 

23 

22 

69 

E6 

BA 

DB88 

3C 

18 

A3 

44 

CD 

C9 

DB 

38 

E4 

DB90 

05 

CD 

64 

EB 

18 

03 

CD 

4F 

58 

DB98 

EB 

CD 

Cl 

EA 

CD 

AF 

EA 

3E 

07 

DBA0 

07 

32 

6B 

E6 

21 

0C 

0F 

CD 

93 

DBAS 

B8 

E5 

11 

E4 

DB 

CD 

40 

E6 

60 

DBB0 

CD 

FA 

E6 

3E 

27 

32 

6B 

E6 

95 

DBB8 

3A 

87 

FF 

E6 

03 

32 

E3 

DB 

99 

DBC0 

11 

El 

DB 

06 

02 

CD 

6A 

E5 

FI 

DBC8 

C9 

01 

FF 

3F 

AF 

ED 

79 

3C 

59 

DBD0 

06 

37 

ED 

79 

06 

3F 

ED 

78 

4D 

DBD8 

0F 

D8 

01 

F0 

IF 

ED 

78 

0F 

6B 

DBE0 

C9 

E4 

00 

2C 

53 

45 

54 

54 

19 

DBE8 

49 

4E 

47 

20 

50 

43 

47 

00 

D8 

DBF0 

F5 

21 

00 

00 

CD 

B8 

E5 

FI 

71 

DBFS 

21 

D0 

07 

CD 

49 

E6 

2B 

47 

66 

SUM: 

B6 

1 00 

1 00 

A8 

B4 

8A 

E6 

8B 

53 : 

;E8 

DC00 

7C 

B5 

78 

20 

F6 

C9 

3E 

02 : 

;C8 

DC08 

01 

F8 

0F 

ED 

79 

CD 

8B 

DC : 

:A2 

DC10 

C9 

3E 

IE 

01 

F9 

0F 

ED 

59 : 

;74 

DC 18 

01 

FB 

0F 

ED 

51 

01 

F8 

0F : 

51 

DC20 

ED 

79 

CD 

8B 

DC 

C9 

3E 

5A : 

FB 

DC28 

18 

F3 

F3 

CD 

A5 

DC 

3E 

80 : 

:0A 
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DC30 

01 

F8 

0F 

D9 

01 

FB 

0F 

2A 

16 

DD30 

DF 

06 

02 

CD 

6A 

E5 

d9 

D9 

:A5 

DE30 

CD 

BD 

DE 

FD 

5E 

02 

FD 

56 

: 18 

DC38 

AE 

DC 

D9 

ED 

79 

CD 

9F 

DC 

11 

DD38 

FD 

4E 

00 

FD 

46 

01 

37 

CD 

:93 

DE38 

03 

B7 

ED 

52 

20 

F2 

FD 

46 

:4E 

DC40 

ED 

78 

OF 

30 

0B 

0F 

30 

F8 

E6 

DD40 

B0 

DD 

FD 

4E 

02 

FD 

46 

03 

:20 

DE40 

04 

05 

CD 

CA 

DE 

D2 

C7 

DE 

:F5 

DC48 

D9 

ED 

78 

77 

23 

D9 

18 

F0 

B9 

DD48 

B7 

CD 

B0 

DD 

FD 

4E 

04 

FD 

:5D 

DE48 

10 

F8 

CD 

CA 

DE 

D2 

30 

DE 

:5D 

DC50 

07 

FB 

C9 

F3 

CD 

A5 

DC 

3E 

4A 

DD50 

46 

05 

37 

CD 

B0 

DD 

37 

CD 

:E0 

DE50 

D9 

CD 

68 

DE 

ED 

5B 

E4 

DC 

:F4 

DC58 

A0 

01 

F8 

0F 

D9 

01 

FB 

0F 

8C 

DD58 

C2 

DD 

D9 

CD 

63 

DD 

37 

CD 

:89 

DE58 

7A 

53 

5F 

B7 

ED 

52 

C2 

C7 

:AB 

DC60 

2A 

AE 

DC 

D9 

IE 

00 

16 

02 

C3 

DD60 

C2 

DD 

C9 

D9 

21 

00 

00 

D9 

: 3B 

DE60 

DE 

CD 

CA 

DE 

D2 

C7 

DE 

C9 

:93 

DC68 

ED 

79 

CD 

9F 

DC 

ED 

78 

0F 

22 

DD68 

CD 

82 

DD 

D9 

7C 

65 

6F 

22 

:77 

DE68 

D9 

21 

00 

00 

D9 

CD 

83 

DE 

:01 

DC70 

30 

0B 

0F 

30 

F8 

D9 

7E 

ED 

B6 

DD70 

E4 

DC 

11 

02 

00 

21 

56 

00 

:4A 

DE70 

D9 

E5 

11 

02 

00 

21 

72 

00 

:64 

DC78 

79 

23 

D9 

18 

F0 

07 

FB 

C9 

48 

DD78 

22 

88 

DD 

21 

E4 

DC 

CD 

82 

:B7 

DE78 

22 

8C 

DE 

21 

E4 

DC 

CD 

83 

:BD 

SUM: 

28 

DC 

35 

82 

6A 

6E 

FE 

22 

B3 

SUM: 

2B 

31 

46 

EE 

BE 

20 

97 

5E 

:63 

SUM: 

83 

11 

AF 

52 

19 

F2 

4E 

A6 

:94 

DC80 

01 

FC 

0F 

ED 

79 

B7 

F0 

CD 

E6 

DD80 

DD 

C9 

D5 

78 

FE 

40 

38 

05 

:6E 

DE80 

DE 

El 

C9 

D5 

CD 

9B 

DE 

78 

: IB 

DC88 

8B 

DC 

C9 

C5 

06 

20 

10 

FE 

29 

DD88 

ED 

50 

C3 

8E 

DD 

56 

23 

03 

:E7 

DE88 

FE 

40 

38 

05 

ED 

51 

C3 

92 

:0E 

DC90 

01 

F8 

0F 

ED 

78 

CB 

47 

20 

9F 

DD90 

CD 

9A 

DD 

D1 

IB 

7A 

B3 

20 

:7D 

DE90 

DE 

72 

23 

03 

D1 

IB 

7A 

B3 

:8F 

DC98 

FA 

CB 

7F 

20 

F6 

Cl 

C9 

3E 

22 

DD98 

E9 

C9 

C5 

37 

CD 

C2 

DD 

06 

:20 

DE98 

20 

E9 

C9 

C5 

CD 

CA 

DE 

30 

:3C 

DCA0 

07 

3D 

20 

FD 

C9 

01 

FA 

0F 

34 

DDA0 

08 

CB 

12 

D9 

D2 

A8 

DD 

23 

:38 

DEA0 

26 

16 

00 

06 

08 

CD 

CA 

DE 

:BF 

DCA8 

ED 

51 

CD 

8B 

DC 

C9 

00 

80 

BB 

DDA8 

D9 

CD 

C2 

DD 

10 

F3 

Cl 

C9 

:D2 

DEA8 

D9 

30 

01 

23 

D9 

CB 

12 

10 

:F3 

DCB0 

01 

4D 

41 

5A 

45 

20 

44 

41 

D3 

DDB0 

F5 

F5 

C5 

CD 

C2 

DD 

Cl 

0B 

:E7 

DEB0 

F4 

Cl 

C9 

21 

00 

00 

CD 

CA 

:36 

DCB8 

54 

41 

20 

20 

20 

20 

4F 

42 

A6 

DDB8 

78 

B1 

28 

03 

FI 

18 

F2 

FI 

:40 

DEBS 

DE 

D0 

23 

18 

F9 

21 

00 

00 

:03 

DCC0 

4A 

20 

00 

40 

00 

80 

00 

00 

2A 

DDC0 

FI 

C9 

C5 

30 

09 

3A 

D3 

DC 

:A1 

DEC0 

CD 

CA 

DE 

D8 

23 

18 

F9 

C3 

:44 

DCC8 

00 

00 

2C 

41 

0D 

0A 

3B 

0D 

CC 

DDC8 

08 

3A 

D2 

DC 

18 

06 

38 

09 

:54 

DECS 

00 

D6 

C5 

01 

01 

lA 

ED 

78 

: 1C 

DCD0 

0A 

4D 

41 

33 

ID 

0F 

2E 

05 

2A 

DDD0 

3A 

D5 

DC 

08 

3A 

D4 

DC 

18 

:F5 

DED0 

0F 

30 

F4 

0F 

38 

F8 

ED 

78 

:D7 

DCD8 

E8 

03 

28 

00 

28 

00 

B8 

06 

FE 

DDD8 

00 

01 

03 

lA 

F5 

3E 

01 

ED 

:3F 

DED8 

0F 

D2 

C7 

DE 

0F 

D2 

D6 

DE 

: IB 

DCE0 

14 

00 

14 

00 

55 

53 

11 

13 

F4 

DDE0 

79 

FI 

CD 

08 

DF 

AF 

ED 

79 

:33 

DEE0 

3A 

D6 

DC 

CD 

08 

DF 

ED 

78 

:05 

DCE8 

DF 

06 

02 

CD 

6A 

E5 

AF 

01 

B3 

DDES 

08 

CD 

08 

DF 

01 

01 

lA 

ED 

:C5 

DEES 

0F 

D2 

C7 

DE 

0F 

3A 

D7 

DC 

:82 

DCF0 

03 

lA 

ED 

79 

21 

E4 

21 

CD 

76 

DDF0 

78 

0F 

D2 

C7 

DE 

Cl 

C9 

11 

:99 

DEF0 

DC 

08 

DF 

Cl 

C9 

01 

01 

lA 

:69 

DCF8 

F5 

DE 

F3 

21 

56 

00 

22 

88 

E7 

DDF8 

11 

DF 

06 

02 

CD 

6A 

E5 

F3 

:07 

DEF8 

ED 

78 

0F 

D2 

C7 

DE 

AF 

CD 

:67 

SUM: 

F7 

25 

3F 

DC 

7F 

22 

Cl 

Cl : 

;5A 

SUM: 

0B 

3F 

IE 

72 

33 

94 

D9 

6A 

:E4 

SUM: 

A8 

ID 

C9 

08 

44 

7E 

BF 

71 

:88 

DD00 

DD 

21 

B0 

DC 

11 

20 

00 

FD : 

;B8 

DE00 

21 

72 

00 

22 

8C 

DE 

21 

00 

:40 

DF00 

08 

DF 

2B 

7C 

B5 

20 

FI 

C9 

: ID 

DD08 

21 

D8 

DC 

CD 

37 

DD 

FB 

C9 : 

;7A 

DE08 

7F 

11 

20 

00 

FD 

21 

D8 

DC 

:82 

DF08 

F5 

3D 

C2 

09 

DF 

FI 

C9 

E9 

:7F 

DD10 

21 

00 

01 

CD 

F5 

DE 

21 

ED : 

;D0 

DE10 

CD 

2F 

DE 

FB 

C9 

F3 

21 

ED 

:9F 

DF10 

01 

E9 

02 

E9 

0A 




:DF 

DD18 

50 

22 

88 

DD 

21 

00 

FF 

01 : 

:F8 

DE18 

51 

22 

8C 

DE 

21 

00 

FF 

01 

:FE 











DD20 

00 

80 

11 

00 

40 

FD 

21 

DE : 

;CD 

DE20 

00 

80 

11 

00 

40 

FD 

21 

DE 

:CD 

SUM: 

FE 

05 

EF 

6E 

9E 

11 

BA 

B2 

:7B 

DD28 

DC 

F3 

CD 

37 

DD 

FB 

11 

0F : 

;CB 

DE28 

DC 

CD 

2F 

DE 

C3 

2D 

DD 

D9 

:5C 












•jX h 3 7. j. 





.Z80 



0630 

AF 


XOR 

A [ITEM # 




.PHASE 

0D600H 


0631 

E5 


PUSH 

HL [SAVE MENU ADDR. 

EB25 


WL280 

EQU 

0EB25H 


0632 

CD 

D6A2 

MENUSL: CALL 

MNS [DISP 1 ITEM 

EB3A 


WH280 

EQU 

0EB3AH 


0635 

3C 


INC 

A 

EB4F 


WL240 

EQU 

0EB4FH 


0636 

10 

FA 

DJNZ 

MENUSL [DISP ALL ITEM 

EB64 


WH240 

EQU 

0EB64H 





; 


BB79 


WH480 

EQU 

0EB79H 


0638 

El 


POP 

HL [MENU ADDR. 

EACl 


CLS 

EQU 

0EAC1H 


0639 

22 

D67E 

LD 

(MENUAD),HL 

EAAF 


PINIT 

EQU 

0EAAFH 


D63C 

23 


INC 

HL 

E900 


GO 

EQU 

0E900H 


0630 

7E 


LD 

A,(HL) 

EA97 


RPOINT 

EQU 

0EA97H 


D63E 

47 


LD 

B,A 

EBCl 


WMODE 

EQU 

0EBC1H 


D63F 

C5 


MENUS1: PUSH 

BC 

EBC2 


DOWNDT 

EQU 

0EBC2H 


0640 

F5 


PUSH 

AF 

E038 


STRAY 

EQU 

0E038H 


0641 

CD 

E55B 

MENUS2: CALL 

GETK 

EllB 


BLOOK 

EQU 

0E11BH 


0644 

B7 


OR 

A 

E54C 


MAGICl 

EQU 

0E54CH 


0645 

20 

FA 

JR 

NZ,MENUS2 [WAIT NO KEY 

E54D 


MAGIC2 

EQU 

0E54DH 





; 


E54E 


MAGIC3 

EQU 

0E54EH 


0647 

FI 


POP 

AF 

E551 


XP 

EQU 

0E551H 


0648 

Cl 


POP 

BC 

E553 


YP 

EQU 

0E553H 


0649 

2A 

D67E 

LD 

HL,(MENUAD) 

E555 


VECT 

EQU 

0E555H 


D64C 

F5 


PUSH 

AF [A=MENU# 

E55B 


GETK 

EQU 

0E55BH 


0640 

CD 

0680 

CALL 

MNSS [REVERSE ITEM 

E56A 


T049 

EQU 

0E56AH 


0650 

CD 

E55B 

MENUS3: CALL 

GETK 

E5B8 


LOCATE 

EQU 

0E5B8H 


0653 

B7 


OR 

A 

E5D5 


PRINTN 

EQU 

0E5D5H 


0554 

28 

FA 

JR 

Z,MENUS3 

E640 


PRINTS 

EQU 

0E640H 





; 


E649 


PRINTC 

EQU 

0E649H 


0656 

FE 

20 

CP 

20H [SPACE? 

E669 


CADDR 

EQU 

0E669H 


0658 

28 

22 

JR 

Z,MENUS6 

E66B 


CATTR 

EQU 

0E66BH 


D65A 

FE 

00 

CP 

0DH [CR? 

E66C 


PALET 

EQU 

0E66CH 


D65C 

28 

IE 

JR 

Z,MENUS6 

E6FA 


ILPCG 

EQU 

0E6FAH 





; 











;1F=DN,1E=UP 


0009 


MDTOP 

EQU 

9 1 

IMAZE DATA SAVE BEGIN 

065E 

06 

IE 

SUB 

lEH 

8000 


DISKBF 

EQU 

8000H 

IDISK BUF (16KB) 

0660 

28 

06 

JR 

Z,MENUS4 

7F00 


FCBA2 

EQU 

7F00H ; 

: BLANC FCB AREA 

0562 

FB 

01 

CP 

1 

FF87 


DRNO0 

EQU 

0FF87H ; 

;DRIVE # 

0664 

28 

OA 

JR 

Z,MENUS5 



; 




0666 

18 

E8 

JR 

MENUS3 

D600 

31 0500 

START: 

LD 

SP,0D500H :SET SP 

0668 

FI 


MENUS4: POP 

AF 

D603 

CO 0B8C 


CALL 

INIT 


0669 

47 


LD 

B,A 

D606 

CO EACl 


CALL 

CLS 


D66A 

B7 


OR 

A 

D609 

21 06C9 

STARTL: 

LD 

HL,MESL0 


D66B 

28 

02 

JR 

Z,MENUS 1 

D60C 

CO 0629 


CALL 

MENU 

IGET MENU # 

0660 

30 


DEC 

A [UPPER ITEM 

D60F 

21 06FA 


LD 

HL.MEST0 


D66E 

18 

CF 

JR 

MENUS 1 

D612 

CD 061C 


CALL 

ONGOS ; 

ION GO 






0615 

3E 20 


LD 

A, ' ’ 


0670 

FI 


MENUS5: POP 

AF 

0617 

CD DBF0 


CALL 

CLS0 


0671 

47 


LD 

B, A 

061A 

18 ED 


JR 

STARTL ; 

; LOOP 

0672 

3C 


INC 

A 



; 




0673 

2A 

D67E 

LD 

HL,(MENUAD) 

061C 

BE 

ONGOS: 

CP 

(HL) 


0676 

BE 


CP 

(HL) 

0610 

00 


RET 

NC 

lOVER 

0677 

38 

C6 

JR 

C,MENUS 1 

06 IE 

23 


INC 

HL 


0679 

30 


DEC 

A [U.NDER ITEM 

06 IF 

87 


ADD 

A,A 

ION Acc GOTO 

D67A 

18 

C3 

JR 

MENUS 1 

0620 

5F 


LD 

E,A 







0621 

16 00 


LD 

0,0 


D67C 

FI 


MENUS6: POP 

AF [A=ITEM# 

0623 

19 


ADD 

HL,DE 


0670 

C9 


RET 


0624 

5E 


LD 

E,(HL) 







0625 

23 


INC 

HL 


D67E 



MENUAD: OS 

2 [WORKAREA 

0626 

56 


LD 

0,(HL) 







0627 

EB 


EX 

DE.HL 





[PRINT WITH REVERSE ATTR. 

0628 

E9 


JP 

(HL) 


0680 

F5 


MNSS: PUSH 

AF 



: 




0681 

3A 

E66B 

LD 

A, {CATTR) 

0629 

AF 

MENU; 

XOR 

A 


0684 

E6 

F7 

AND 

0F7H 

062A 

57 


LD 

D,A 


0686 

32 

E66B 

LD 

(CATTR),A 

062B 

5F 


LD 

E,A ; 

;ALL BLACK 

0689 

78 


LD 

A,B 

06 2C 

CD E66C 


CALL 

PALET 


06 8A 

CD 

D6A2 

CALL 

MNS 

062F 

46 


LD 

B,(HL) 

[COUNT 

0680 

3A 

E66B 

LD 

A„(CATTR) 


122 Oh! MZ 1986.10. 















D690 

F6 08 


OR 

OSH 

D779 

21 OA0D 


MM2: 

LD 

HL.0A0DH 

D692 

32 E66B 


LD 

(CATTR),A 

D77C 

CD E5B8 



CALL 

LOCATE 

D695 

FI 


POP 

AF 

D77F 

11 D849 



LD 

DB,MMZW4 

D696 

CO D6A2 


CALL 

MNS 

D782 

CD DABl 



CALL 

INPUTN 

D699 

3A B66B 


LD 

A,(CATTR) 

D785 

E5 



PUSH 

HL 

D69C 

E6 F7 


AND 

0F7H 

D786 

CD DBC9 



CALL 

CKDISP 

D69E 

32 E66B 


LD 

(CATTR),A 

D789 

11 018D 



LD 

DE,398-2+1 

D6A1 

C9 


RET 


D78C 

30 03 



JR 

NC,MM25 



; 



D78B 

11 00C5 



LD 

DE,198-2+1 



;PRINT 1 ITEM 

(Acc#) 

D791 

B7 


MM2 5: 

OR 

A 

D6A2 

C5 

MNS: 

PUSH 

BC 

D792 

ED 52 



SBC 

HL.DE 

D6A3 

E5 


PUSH 

HL 

D794 

El 



POP 

HL 

D6A4 

F5 


PUSH 

AF 

D795 

30 B2 



JR 

NC,MM2 

D6A5 

23 


INC 

HL 

D797 

E5 



PUSH 

HL 

D6A6 

23 


INC 

HL 

D798 

11 0002 



LD 

DE,2 

D6A7 

SB 


LD 

E, (HL) 

D79B 

B7 



OR 

A 

D6A8 

23 


INC 

HL 

D79C 

ED 52 



SBC 

HL.DE 

D6A9 

56 


LD 

D, (HL) 

D79E 

El 



POP 

HL 

D6AA 

23 


INC 

HL 

D79F 

38 D8 



JR 

C,MM2 

D6AB 

E5 


PUSH 

HL 

D7A1 

23 



INC 

HL 

D6AC 

6F 


LD 

L.A 

. D7A2 

23 



INC 

HL 

06AD 

26 00 


LD 

H,0 

D7A3 

22 0807 



LD 

(DATA0+6),HL 

D6AF 

19 


ADD 

HL.DB 




j 



D6B0 

CD E5B8 


CALL 

LOCATE 

D7A6 

21 0A0E 



LD 

HL,0A0EH 

D6B3 

El 


POP 

HL ;BACK ADDR. 

D7A9 

CD B5B8 



CALL 

LOCATE 

D6B4 

FI 


POP 

AF 

D7AC 

CD D869 



CALL 

GETYN 

D6B5 

F5 


PUSH 

AF 

D7AF 

FE 4E 



CP 

’N’ 



; 



07B1 

CA D756 



JP 

Z,MM1 

D6B6 

B7 


OR 

A 




; 



D6B7 

28 08 


JR 

Z,MNS2 

D7B4 

CD D7D2 


MM3: 

CALL 

sbLwi 






D7B7 

CD EACl 



CALL 

CLS 



•SKIP 

MENU ITEM 

D7BA 

21 0F0C 



LD 

HL,0F0CH 

D6B9 

47 


LD 

B.A 

D7BD 

CD E5B8 



CALL 

LOCATE 

06BA 

7B 

MNSl: 

LD 

A,(HL) 

D7C0 

11 D85D 



LD 

DE,MESMAK 

D6BB 

23 


INC 

HL 

D7C3 

CD B640 



CALL 

PRINTS 

D6BC 

B7 


OR 

A 

D7C6 

11 D801 



LD 

DE,DATA0 

D6BD 

20 FB 


JR 

NZ.MNSl 

D7C9 

CD E900 



CALL 

GO 

D6BF 

10 F9 


DJNZ 

MNSl 




; 








D7CC 

3E 20 



LD 

A, ’ ' 

D6CI 

EB 

MNS2: 

EX 

DE.HL 

D7CB 

CD DBF0 



CALL 

CLS0 ;CLR CHAR 

D6C2 

CD E640 


CALL 

PRINTS ;PRINT ITEM 

D7D1 

C9 



RET 


D6C5 

FI 


POP 

AF 




; 



D6C6 

El 


POP 

HL 

D7D2 

2A D807 


SELWI: 

LD 

HL,(DATA0+6) ;Y 

D6C7 

Cl 


POP 

BC 

D7D5 

11 00C7 



LD 

DE,198+1 

D6C8 

C9 


RET 


D7D8 

B7 



OR 

A 






D7D9 

ED 52 



SBC 

HL.DE 



•MENU 

FORMAT 


D7DB 

38 04 



JR 

C,SBLWI5 

06C9 

05 

MESL0: 

DB 

5 :ITEM NUMB. 

D7DD 

CD EB79 



CALL 

WH480 

06CA 

00 


DB 

0 ;DEFAULT START 

D7E0 

C9 



RET 


D6CB 

0101 


DW 

0101H :START LOC 




; 



D6CD 

45 58 49 54 


OB 

’EXIT’,0 

D7E1 

CD DBC9 


SELWIS; 

: CALL 

CKDISP 

D6D1 

00 




D7E4 

17 



RLA 

;Acc <- CY 

D6D2 

4D 41 4B 45 


DB 

’MAKE MAZE’,0 

D7B5 

2A D805 



LD 

HL,(OATAO+4) ;X 

D6D6 

20 4D 41 5A 




D7E8 

11 0140 



LD 

DE,320 

D6DA 

45 00 




D7EB 

B7 



OR 

A 

D6DC 

53 41 56 45 


DB 

’SAVE MAZE’,0 

D7BC 

ED 52 



SBC 

HL.DE 

D6E0 

20 4D 41 5A 




D7EE 

8F 



ADC 

A, A 

D6E4 

45 00 




D7EF 

E6 03 



AND 

3 

D6E6 

4C 4F 41 44 


DB 

’LOAD MAZE’,0 

D7F1 

21 D7F8 



LD 

HL,SELWI6 

D6EA 

20 4D 41 5A 




D7F4 

CD D61C 



CALL 

ONGOS 

D6EE 

45 00 




D7F7 

C9 



RET 


D6F0 

50 4C 41 59 


DB 

’PLAY MAZE’,0 




; 



D6F4 

20 4D 41 5A 




D7F8 

04 


SELWI6 

: DB 

4 

D6F8 

45 00 




D7F9 

EB3A 



DW 

WH280 






D7FB 

EB64 



DW 

WH240 



;0N GO TABLE 


D7FD 

BB25 



DW 

WL280 

D6FA 

05 

MEST0: 

DB 

5 

D7FF 

EB4F 



DW 

WL240 

D6FB 

D705 


DW 

EXIT -.EXIT 







D6FD 

D719 


DW 

MMAZE 

D801 

0000 0002 

DATA0: 

DW 

0,2,10,12 

D6FF 

D893 


DW 

SMAZE 

D805 

000A 0O0C 




D701 

D97F 


DW 

LMAZE 

0809 

02 



DB 

2 

D703 

DA73 


DW 

PMAZE 









; 



D80A 

4D 41 5A 

45 

MMZWl; 

DB 

’MAZE SIZE:X= ,Y= 

D705 

21 OA0E 

EXIT: 

LD 

HL.OAOEH 

D80B 

20 53 49 

5A 




D708 

CD E5B8 


CALL 

LOCATE 

D812 

45 3A 58 

3D 




D70B 

CD D869 


CALL 

GETYN 

D816 

20 20 20 

20 




D70E 

FE 4E 


CP 

’N’ 

D81A 

20 2C 59 

3D 




D710 

C8 


RET 

Z 

D81E 

20 20 20 

20 




D711 

01 1D00 


LD 

BC,1D00H 

D822 

00 





D714 

ED 79 


OUT 

(C),A ;BOOT 

D823 

53 50 41 

43 

MMZW2: 

DB 

’SPACE=MAKE / ESC=CHANGB 

D716 

C3 0000 


JP 

0000H 

D827 

45 3D 4D 

41 






; 



D82B 

4B 45 20 

2F 






•.MAKE 

MAZE 


D82F 

20 45 53 

43 




D719 

21 0A0A 

MMAZB: 

LD 

HL,0A0AH 

D833 

3D 43 48 

41 




D71C 

CD E5B8 


CALL 

LOCATE 

D837 

4E 47 45 

20 




D71F 

11 D80A 


LD 

DE.MMZWl 

D83B 

53 49 5A 

45 




D722 

CD E640 


CALL 

PRINTS 

D83F 

00 





D725 

21 160A 


LD 

HL.160AH 

D840 

49 4£ 50 

55 

MMZWS: 

DB 

’INPUT Xs’,0 

D728 

CD E5B8 


CALL 

LOCATE 

D844 

54 20 58 

3D 




D72B 

2A 0805 


LD 

HL, (DATA04-4) 

D848 

00 





D72E 

CD E5D5 


CALL 

PRINTN 

D849 

49 4E 50 

55 

MMZW4: 

DB 

’INPUT Y=’,0 



; 



D84D 

54 20 59 

3D 




D731 

21 1E0A 


LD 

HL.IEOAH 

D851 

00 





D734 

CD E5B8 


CALL 

LOCATE 

D852 

4F 4B 20 

3F 

MMZW5: 

DB 

’OK ? (Y/N)’,0 

D737 

2A D807 


LD 

HL,(DATA0+6) 

D856 

20 28 59 

2F 




D73A 

2B 


DEC 

HL 

08 5A 

4E 29 00 





D73B 

2B 


DEC 

HL 

D85D 

4D 41 4B 

49 

MESMAK; 

: DB 

’MAKING MAZE’,0 

D73C 

CD E5D5 


CALL 

PRINTN 

D861 

4E 47 20 

40 






; 



D865 

41 5A 45 

00 




D73F 

21 0A0B 


LD 

HL,0A0BH 




) 



D742 

CO E5B8 


CALL 

LOCATE 




;INPUT 

’Y’ OR 

’N’ 

D745 

11 D823 


LD 

DE,MMZW2 

D869 

11 D852 


GETYN: 

LD 

DE,MMZW5 

D748 

CD E640 


CALL 

PRINTS 

D86C 

CO E640 



CALL 

PRINTS 






D86F 

CD DABB 


GETYN1: 

: CALL 

FLGET 

D74B 

CD DABB 

MM0: 

CALL 

FLGET 

D872 

FE 59 



CP 

’Y’ 

D74E 

FE 20 


CP 

20H 

D874 

C8 



RET 

Z 

D750 

28 62 


JR 

Z,MM3 

D875 

FE 4E 



CP 

’N’ 

D752 

FE IB 


CP 

27 

D877 

C8 



RET 

Z 

D754 

20 F5 


JR 

NZ,MM0 

D878 

18 F5 



JR 

GETYN1 

D756 

21 OA0C 

MMl: 

LD 

HL,0A0CH 

D87A 

49 4E 50 

55 

SMZWl: 

DB 

’INPUT MAZE NUMBER (1-5) 

D759 

CD E5B8 


CALL 

LOCATE 

D87E 

54 20 4D 

41 




D75C 

11 D840 


LD 

DE,MMZW3 

D882 

5A 45 20 

4E 




D75F 

CD DAEl 


CALL 

INPUTN 

0886 

55 4D 42 

45 




D762 

E5 


PUSH 

HL ;CHECK 

D88A 

52 20 28 

31 




D763 

11 027F 


LD 

DE,638+1 

D88B 

2D 35 29 

00 




D766 

B7 


OR 

A 







D767 

ED 52 


SBC 

HL.DE 

D892 

00 


DORT: 

DB 

00H :D1SK OR TAPE 

D769 

El 


POP 

HL 







D76A 

30 EA 


JR 

NC.MMl 




;SAVB MAZE 


D76C 

B5 


PUSH 

HL 

D893 

CD EAAF 


SMAZE: 

CALL 

PINIT 

D76D 

11 0002 


LD 

DE,2 

D896 

21 0A0A 


SMZl; 

LD 

HL,0A0AH 

D770 

B7 


OR 

A 

D899 

CD B5B8 



CALL 

LOCATE 

D771 

ED 52 


SBC 

HL.DE 

D89C 

11 D87A 



LD 

DE.SMZWl 

D773 

El 


POP 

HL 

D89F 

CD DAEl 



CALL 

INPUTN 

D774 

38 E0 


JR 

C,MM1 

D8A2 

7C 



LD 

A.H 

D776 

22 D805 


LD 

(DATA0+4),HL 

D8A3 

B7 



OR 

A 



; 



D8A4 

20 F0 



JR 

NZ.SMZl 
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D8A6 

D8A7 

D8A9 

D8AB 

D8AE 

D8B1 

D8B4 

D8B7 

D8B9 

D8BA 

D8BD 

D8C0 

D8C2 

D8C4 

D8C7 

D8CA 

D8CC 

D8CD 

D8CF 

D8D0 

D8D1 

D8D2 

D8D4 

D8D7 

D8D8 

D8DA 

D8DD 

D8E0 

D8E3 

D8E5 

D8E6 

D8E8 

D8E9 

D8EA 

D8EC 

D8ED 

D8F0 

D8F2 

D8F5 


D8F8 

D8FB 

D8FC 

D8FD 

D8FF 

D900 

D902 

D905 

D908 

D90B 

D90D 

D90F 

D912 

D915 

D918 

D91A 

D91C 


D91F 

D922 

D925 


D928 

D929 

D92B 

D92E 

D92F 

D932 

D933 

D936 

D937 

D938 

D939 

D93B 

D93C 

093F 

D941 

D944 

D947 

D949 

D94C 

D94D 

D94E 

D951 

D952 

D955 

D958 

D95A 

D95B 

D95C 

D95D 

D95E 

D95F 

D960 

D963 

D964 

D967 

D969 

D96C 

D96D 

D96E 

D971 

D972 

D973 

D974 

D977 

D978 

D97A 

D97B 




7D 


LD 

A.L 

D97D \ 



POP 

BC 

FE 06 


CP 

6 




RET 


30 BB 


JR 

NC,SMZ1 


• 

; 



32 D928 


LD 

(FNUMB),A 



;LOAD 

MAZE 



j 



D97F 

CD BAAF 

LMAZE; 

CALL 

PINIT 

21 0A0B 


LD 

HL,0A0BH 

D982 

21 0A0A 

LMZl: 

LD .. 

HL,0A0AH 

CD E5B8 


CALL 

LOCATE 

D985 ; 

CD B5B8 


CALL. 

LOCATE 

CD D869 


CALL 

GETYN 

D988 

11 D87A 


LD 

DE.SMZWl 

FE 4E 


CP 

'N’ 

D98B 

CD DABl 


CALL 

INPUTN ■ 

C8 


RET 

Z 

D98E 

7C 


LD 

A.H ^ 





D98F 

B7 




01 1FD0 


LD 

BC,1FD0H 

D990 

20 F0 


JR 

NZ,LMZ1 

3A EBCl 


LD 

A,(WMODE) 

D992 

7D 


LD 

A,L 

CB A7 


RES 

4 ,A 

D993 

FE 06 


CP 

6 

ED 79 


OUT 

(C),A 

D995 

30 EB 


JR 

NC.LMZl 

21 D801 


LD 

HL,DATA0 

D997 

32 D928 


LD 

(FNUMB),A 

01 8000 


LD 

BC,8000H 



; 



16 09 


LD 

D,9 

D99A 

21 0A0B 


LD 

HL,0A0BH 

7E 

SMZ2: 

LD 

A,(HL) 

D99D 

CD E5B8 


CALL 

LOCATE 

ED 79 


OUT 

(C),A ;COPY SIZE 

D9A0 

CD D869 


CALL 

GETYN 

23 


INC 

HL 

D9A3 

FE 4E 


CP 

■N’ 

03 


INC 

BC 

D9A5 

C8 


RET 

Z 

15 


DEC 

D 

D9A6 

CD EACl 


CALL 

CLS 

20 F8 


JR 

NZ,SMZ2 

D9A9 

3A D892 


LD 

A, (DORT) 


; 



D9AC 

B7 


OR 

A 

3A D892 


LD 

A, (DORT) 

D9AD 

28 35 


JR 

Z,LMZD 

B7 


OR 

A 



;TAPE 



28 13 


JR 

Z.SMZD -.DISK 

D9AF 

01 1FD0 

LMZT: 

LD 

BC,1FD0H 


;TAPE 



D9B2 

3A EBCl 


LD 

A, (WMODE) 

CD DCE6 


CALL 

WHEAD 

D9B5 

CB A7 


RES 

4,A 

CD DD10 


CALL 

WBODY 

D9B7 

ED 79 


OUT 

(C) ,A 


; 



D9B9 

CD DDF7 


CALL 

RHEAD 

01 8000 

SMZ3: 

LD 

BC,8000H 

D9BC 

06 11 


LD 

B, 17 

16 09 


LD 

D,9 

D9BE 

11 7F00 

LMZTl; 

; LD 

DE,FCBA2 

AF 


XOR 

A 

D9C1 

21 DCB0 


LD 

HL.FCBA 

ED 79 

SMZ4: 

OUT 

(C),A ;ERASE SIZE 

D9C4 

lA 


LD 

A,(DE) 

03 


INC 

BC 

D9C5 

BE 


CP 

(HL) 

15 


DEC 

D 

D9C6 

13 


INC 

DE 

20 FA 


JR 

NZ,SMZ4 

D9C7 

23 


INC 

HL 

C9 


RET 


D9C8 

20 E5 


JR 

NZ,LMZT -.NEXT HEAD 


i 



D9CA 

10 F2 


DJNZ 

LMZTl 

3A DBE3 

SMZD: 

LD 

A,(DRNO) 

D9CC 

CD DE15 


CALL 

RBODY 

F6 80 


OR 

80H 






CD DC80 


CALL 

MSD ;MOTOR ON 

D9CF 

21 D801 

LMZ2: 

LD 

HL,DATA0 

CD DC06 


CALL 

RSTR 

D9D2 

01 8000 


LD 

BC,8000H 


; 



D9D5 

16 09 


LD 

D,9 


;D=TRACK#,E=CUR 

.# 

D9D7 

IE 00 


LD 

E,00H 

3A D928 


LD 

A, (FNUMB) 

D9D9 

ED 78 

LMZ3: 

IN 

A, (C) 

87 


ADD 

A,A 

D9DB 

77 


LD 

(HL) ,A -.COPY SIZE 

87 


ADD 

A,A 

D9DC 

ED 59 


OUT 

(C),E ;ERASE 

C6 09 


ADD 

A.MDTOP ;TOP TR 

D9DE 

23 


INC 

HL 

57 


LD 

D.A 

D9DF 

03 


INC 

BC 

IE 00 


LD 

E,00H 

D9E0 

15 


DEC 

D 

CD DCll 


CALL 

SEEK 

D9E1 

20 F6 


JR 

NZ,LMZ3 





D9E3 

C9 


RET 


01 1FD0 


LD 

BC,IFD0H 






3A EBCl 


LD 

A,(WMODE) 

D9E4 

3A DBE3 

LMZD; 

LD 

A,(DRNO) 

CB A7 


RES 

4,A 

D9E7 

F6 80 


OR 

80H 

ED 79 


OUT 

(C) , A 

D9E9 

CD DC80 


CALL 

MSD ;MOTOR ON 

CD D929 


CALL 

W16K 

D9EC 

CD DC06 


CALL 

RSTR 

01 1FD0 


LD 

BC,1FD0H 



:D=TRACK#.E=CUR 

.# 

3A EBCl 


LD 

A,(WMODE) 

D9EF 

3A D928 


LD 

A,(FNUMB) 

CB E7 


SET 

4,A 

D9F2 

87 


ADD 

A, A 

ED 79 


OUT 

(C) ,A 

D9F3 

87 


ADD 

A, A 

CD D929 


CALL 

W16K 

D9F4 

C6 09 


ADD 

A.MDTOP ;TOP TR 





D9F6 

57 


LD 

D.A 





D9F7 

IE 00 


LD 

E,00H 

3A DBE3 


LD 

A,(DRNO) 

D9F9 

CD DCll 


CALL 

SEEK 

CD DC80 


CALL 

MSD ;MOTOR OFF 






C3 D8E0 


JP 

SMZ3 

D9FC 

01 1FD0 


LD 

BC,1FD0H 


I 

RET 


D9FF 

3A EBCl 


LD 

A,(WMODE) 


5 



DA02 

CB A7 


RES 

4 ,A 


FNUMB; 

DS 

1 

DA04 

ED 79 


OUT 

(C) ,A 





DA06 

CD DAIF 


CALL 

R16K 

3E 02 

W16K: 

LD 

A,2 






01 8000 


LD 

BC,8000H ;RED 

DA09 

01 1FD0 


LD 

BC,1FD0H 

F 5 

W16K1: 

PUSH 

AF 

DA0C 

3A EBCl 


LD 

A,(WMODE) 

CD D93C 


CALL 

W8K 

DA0F 

CB E7 


SET 

4,A 

C 5 


PUSH 

BC 

DAll 

ED 79 


OUT 

(C) ,A 

CD DC26 


CALL 

STEPIN 

DA13 

CD DAIF 


CALL 

R16K 

Cl 


POP 

BC 






FI 


POP 

AF 

DA16 

3A DBE3 

’ 

LD 

A,(DRNO) 

3D 


DEC 

A 

DA19 

CD DC80 


CALL 

MSD ;MOTOR OFF 

20 F3 


JR 

NZ,W16K1 

DAIC 

C3 D9CF 


JP 

LMZ2 

C9 


RET 




: 

RET 


3A DBE3 

W8K: 

LD 

A,(DRNO) 

DAIF 

3E 02 

R16K: 

LD 

A,2 

F6 80 


OR 

80H ;SIDE 0 

DA21 

01 8000 


LD 

BC,80O0H 

CD D94D 


CALL 

W4K 

DA24 

F5 

R16K1: 

PUSH 

AF 

3A DBE3 


LD 

A,(DRNO) 

DA25 

CD DA32 


CALL 

R8K 

F6 90 


OR 

90H ;SIDE 1 

DA28 

C5 


PUSH 

BC 

CD D94D 


CALL 

W4K 

DA29 

CD DC26 


CALL 

STEPIN 

C9 


RET 


DA2C 

Cl 


POP 

BC 





DA2D 

FI 


POP 

AF 

C5 

W4K: 

PUSH 

BC 

DA2E 

3D 


DEC 

A 

CD DC80 


CALL 

MSD 

DA2F 

20 F3 


JR 

NZ,R16K1 

Cl 


POP 

BC 

DA31 

C9 


RET 


11 1000 


LD 

DE,1024*4 

DA32 

3A DBE3 

R8K: 

LD 

A, (DRNO) 

21 4000 


LD 

HL,4000H 

DA35 

F6 80 


OR 

80H ;SIDE 0 

ED 78 

W4K1: 

IN 

A, (C) 

DA37 

CD DA43 


CALL 

R4K 

03 


INC 

BC 

DA3A 

3A DBE3 


LD 

A,(DRNO) 

77 


LD 

(HL),A 

DA3D 

F6 90 


OR 

90H ;SIDE 1 

23 


INC 

HL 

DA3F 

CD DA43 


CALL 

R4K 

IB 


DEC 

DE 

DA4 2 

C9 


RET 


7A 


LD 

A,D 






B3 


OR 

E 

DA43 

C5 

R4K: 

PUSH 

BC 

C2 D958 


JP 

NZ,W4K1 

DA44 

CD DC80 


CALL 

MSD 

C5 


PUSH 

BC 

DA47 

21 4000 

’ 

LD 

HL,4000H 





DA4A 

16 01 


LD 

D,1 :SECTOR # 

21 4000 


LD 

HL,4000H 






16 01 


LD 

D,1 ;SECTOR # 

DA4C 

22 DCAE 

R4K2: 

LD 

(BUFAD),HL 





DA4F 

D5 


PUSH 

DE 

22 DCAE 

W4K2: 

LD 

(BUFAD),HL 

DA50 

E5 


PUSH 

HL 

D5 


PUSH 

DE 

DA51 

CD DC2A 


CALL 

READD 

E5 


PUSH 

HL 

DA54 

El 


POP 

HL 

CD DC53 


CALL 

WRITD 

DA55 

D1 


POP 

DE 

El 


POP 

HL 

DA56 

14 


INC 

D 

D1 


POP 

DE 

DA57 

01 0100 


LD 

BC,256 

14 


INC 

D 

DA5A 

09 


ADD 

HL,BC 

01 0100 


LD 

BC,256 

DA5B 

3E 1 I 


LD 

A, 17 

09 


ADD 

HL, BC 

DA5D 

BA 


CP 

D 

3E 11 

BA 


LD 

CP 

A, 17 

D 

DA5E 

20 EC 


JR 

NZ,R4K2 

20 EC 


JR 

NZ,W4K2 

DA60 

Cl 


POP 

BC 





DA61 

11 1000 


LD 

DE,1024*4 
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DA64 

21 4000 


LD 

HL,4000H 

DA67 

7E 

R4K1: 

LD 

A,(HL) 

DA68 

23 


INC 

HL 

DA69 

ED 79 


OUT 

(C) ,A 

DA6B 

03 


INC 

BC 

DA6C 

IB 


DEC 

DE 

DA6D 

7A 


LD 

A,D 

DA6E 

B3 


OR 

E 

DA6F 

C2 DA67 


JP 

NZ,R4K1 

DA72 

C9 


RET 




;PLAY 1 

MAZE 


DA73 

CD D7D2 

PMAZE: 

CALL 

SELWI 

DA76 

21 0002 


LD 

HL.2 

DA79 

01 0000 


LD 

BC,0 

DA7C 

CD EA97 


CALL 

RPOINT 

DA7F 

D0 


RET 

NC ;NO MAZE 1 

DASe 

3E 20 

’ 

LD 

A, ’ ' 

DA82 

CD DBF0 


CALL 

CLS0 

DA85 

CD EllB 


CALL 

BLOOK 

DA88 

3E 0A 


LD 

A,00001010B 

DA8A 

16 0A 


LD 

D,00001010B 

DA8C 

IE 0A 


LD 

E.00001010B 

DA8E 

CD E66C 


CALL 

PALET 



;SET EYE POWER 


DA91 

3E 04 


LD 

A,4 

DA93 

32 ES4C 


LD 

(MAGICl),A 



;SET ITI-SOKUTEI 

DA96 

AF 


XOR 

A 

DA97 

32 ES4D 


LD 

(MAGIC2),A 



;SET COMPASS 


DA9A 

32 ES4E 


LD 

(MAGIC3),A 

DA9D 

21 0000 


LD 

HL,0 

DAA0 

22 E5S1 


LD 

(XP),HL 

DAA3 

21 0003 


LD 

HL,3 

DAA6 

22 ES53 


LD 

(YP),HL 

DAA9 

3E 00 


LD 

A,0 

DAAB 

32 E5SS 


LD 

(VECT),A 



:SET FIRST POSITION AND DIRECTION 

DAAE 

CD E038 


CALL 

STRAY 

DABl 

3E 00 


LD 

A,0 

DAB3 

16 00 


LD 

D.0 

DABS 

IE 00 


LD 

E,0 

DAB7 

CD E66C 


CALL 

PALET 

DABA 

C9 


RET 


DABB 

CD ES5B 

FLGET: 

CALL 

GETK 

DABE 

B7 


OR 

A 

DABF 

20 FA 


JR 

NZ,FLGET 

DACl 

2A E669 

’ 

LD 

HL,(CADDR) 

DAC4 

11 FO0O 


LD 

DE,-1000H 

DAC7 

19 


ADD 

HL,DE 

DAC8 

44 


LD 

B.H 

DAC9 

4D 


LD 

C.L 

DACA 

ED 78 


IN 

A, (C) 

DACC 

F6 10 


OR 

10H 

DACE 

ED 79 


OUT 

(C) ,A 

DAD0 

CS 


PUSH 

BC 

DADl 

CD ESSB 

FLGETL 

: CALL 

GETK 

DAD4 

B7 


OR 

A 

DADS 

28 FA 


JR 

Z,FLGETL 

DAD7 

Cl 


POP 

BC 

DAD8 

FS 


PUSH 

AF 

DAD9 

ED 78 


IN 

A,(C) 

DADB 

E6 EF 


AND 

0EFH 

DADD 

ED 79 


OUT 

(C),A 

DADF 

FI 


POP 

AF 

DAE0 

C9 


RET 




;INPUT 

NUMBER 


DAEl 

CD E640 

INPUTN 

: CALL 

PRINTS ;MESSAGE 

DAE4 

3E 0S 


LD 

A,S 

DAE6 

11 DAF2 


LD 

DE,INPNW 

DAE9 

CD DBIA 


CALL 

LINPUT 

DAEC 

3E 0S 


LD 

A.S 

DAEE 

CD DAF7 


CALL , 

ATOI 

DAFl 

C9 


RET 


DAF2 


INPNW: 

DS 

S 

DAF7 

47 

ATOI: 

LD 

B,A 

DAF8 

21 0000 


LD 

HL,0000H 

DAFB 

lA 

ATOI1: 

LD 

A,(DE) 

DAFC 

13 


INC 

DE 

DAFD 

FE 20 


CP 

20H 

DAFF 

28 IS 


JR 

Z,ATOI3 

DB01 

D6 30 


SUB 

’0’ 

DB03 

D8 


RET 

C ;CY=1 

DB04 

FE 0A 


CP 

10 

DB06 

38 02 


JR 

C,ATOI2 

DB08 

37 


SCF 


DB09 

C9 


RET 


DB0A 

DS 

ATOI2: 

PUSH 

DE 

DB0B 

29 


ADD 

HL,HL ;2 

DB0C 

S4 


LD 

D.H 

DB0D 

SD 


LD 

E.L 

DB0E 

29 


ADD 

HL,HL :4 

DB0F 

29 


ADD 

HL.HL ;8 

DB10 

19 


ADD 

HL,DE :10 

DBll 

SF 


LD 

E.A 

DB12 

16 00 


LD 

D.O 

DB14 

19 


ADD 

HL,DE 

DBIS 

D1 


POP 

DE 

DB16 

10 E3 

ATOI3: 

DJNZ 

ATOIl 

DB18 

B7 


OR 

A ;CY=0 

DB19 

C9 


RET 


DBIA 

DS 

LINPUT 

: PUSH 

DE 

DBIB 

32 DB8B 


LD 

(LINW),A 

DBIE 

47 


LD 

B,A 

DBIF 

3E 20 


LD 

A, ’ ’ 

DB21 

2A E669 


LD 

HL,(CADDR) 

DB24 

ES 


PUSH 

HL 

DB25 

CD E649 

LINL: 

CALL 

PRINTC 

DB28 

10 FB 


DJNZ 

LINL 

DB2A 

22 E669 


LD 

(CADDR),HL 

DB2D 

AF 


XOR 

A 

DB2E 

FS 

LIN0: 

PUSH 

AF 

DB2F 

CD DABB 


CALL 

FLGET 

DB32 

FE 20 


CP 

20H 

DB34 

38 14 


JR 

C.LINl 

DB36 

4F 


LD 

C, A ;COPY CODI 


DB37 

FI 




POP 

AF 

DB38 

47 




LD 

B,A 

DB39 

3A 

DBSB 



LD 

A,(LINW) 

DB3C 

3D 




DEC 

A 

DB3D 

B8 




CP 

B 

DB3B 

78 




LD 

A.B 

DB3F 

38 

ED 



JR 

C,LIN0 

DB41 

3C 



’ 

INC 

A 

DB42 

FS 




PUSH 

AF 

DB43 

79 




LD 

A.C 

DB44 

CD 

E649 



CALL 

PRINTC 

DB47 

FI 




POP 

AF 

DB48 

18 

E4 



JR 

LINO 

DB4A 

FE 

ID 


LINl: 

CP 

-.LEFT 

DB4C 

28 

IB 



JR 

Z.LIN2 

DB4E 

FE 

08 



CP 

'H’-’»’ ;DEL 

DB30 

28 

17 



JR 

Z,LIN2 

DBS2 

FE 

IC 



CP 

;RIGHT 

DB54 

28 

21 



JR 

Z,L1N3 

DBS6 

FE 

0D 



CP 

0DH ;CR 

DB58 

FI 




POP 

AF 

DBS9 

Cl 




POP 

BC :CADDR 

DB5A 

El 




POP 

HL ;RET WORK 

DBSB 

ES 




PUSH 

HL ;COPY 

DB5C 

3A 

DBSB 



LD 

A,(LINW) 

DBSF 

ED 

50 


LINIL; 

IN 

D,(C) 

DB61 

03 




INC 

BC 

DBS 2 

72 




LD 

(HL).D 

DBS 3 

23 




INC 

HL 

DB64 

3D 




DEC 

A 

DB6S 

20 

F8 



JR 

NZ,LINIL 

DBS 7 

D1 




POP 

DE 

DB68 

C9 




RET 


DB69 

FI 



LIN2: 

POP 

AF 

DB6A 

B7 




OR 

A 

DB6B 

28 

Cl 



JR 

Z,LIN0 

DB6D 

2A 

E669 



LD 

HL,(CADDR) 

DB70 

2B 




DEC 

HL 

DB71 

22 

E669 



LD 

(CADDR),HL 

DB74 

3D 




DEC 

A 

DB7S 

18 

B7 



JR 

LINO 

DB77 

FI 



LIN3: 

POP 

AF 

DB78 

47 




LD 

B,A 

DB79 

3A 

DBSB 



LD 

A, (LINW) 

DB7C 

3D 




DEC 

A 

DB7D 

B8 




CP 

B 

DB7E 

78 




LD 

A,B 

DB7F 

38 

AD 



JR 

C,LIN0 

DB81 

2A 

E669 



LD 

HL,(CADDR) 

DB84 

23 




INC 

HL 

DB8S 

22 

E669 



LD 

(CADDR),HL 

DB88 

3C 




INC 

A 

DB89 

18 

A3 



JR 

LINO 

DBSB 




LINW: 

DS 

1 

DB8C 

CD 

DBC9 


INIT: 

CALL 

CKDISP 

DB8F 

38 

05 



JR 

C,STNDRD ;STANDARD 

DB91 

CD 

EB64 



CALL 

WH240 

DB94 

18 

03 



JR 

INITl 

DB96 

CD 

EB4F 


STNDRD; 

: CALL 

WL240 

DB99 

CD 

EACl 


INITl: 

CALL 

CLS 

DB9C 

CD 

EAAF 



CALL 

PINIT 





:WL280, 

,WH280, 

WL240,WH240 or WH480 

DB9F 

3E 

07 


’ 

LD 

A,07H 

DBAl 

32 

E66B 



LD 

(CATTR),A ;SET ATTR. 

DBA4 

21 

0F0C 



LD 

HL,0F0CH 

DBA7 

CD 

E5B8 



CALL 

LOCATE 

DBAA 

11 

DBE4 



LD 

DE,MESPCG 

DBAD 

CD 

E640 



CALL 

PRINTS 

DBB0 

CD 

E6FA 



CALL 

ILPCG ;SET PCG 

DBB3 

3E 

27 


’ 

LD 

A,27H 

DBBS 

32 

E66B 



LD 

(CATTR),A ;SET ATTR, 

DBB8 

3A 

FF87 



LD 

A,(DRNO0) 

DBBB 

E6 

03 



AND 

03H 

DBBD 

32 

DBE3 



LD 

(DRNO),A :DRIVE# 

DBC0 

11 

DBEl 



LD 

DE,KVSET 

DBC3 

06 

02 



LD 

B,2 

DBC5 

CD 

E56A 



CALL 

T049 

DBC8 

C9 




RET 






;200 LINE -> 

CY=1 

DBC9 

01 

3FFF 


CKDISP; 

: LD 

BC,3FFFH 

DBCC 

AF 




XOR 

A 

DBCD 

ED 

79 



OUT 

(C) ,A ;SET KVRAM 

DBCF 

3C 




INC 

A 

DBD0 

06 

37 



LD 

B,37H 

DBD2 

ED 

79 



OUT 

(C),A ;SET VRAM 

DBD4 

06 

3F 



LD 

B,3FH 

DBD6 

ED 

78 



IN 

A, (C) 

DBD8 

0F 




RRCA 


DBD9 

D8 




RET 

C ;CASE X1 

DBDA 

01 

1FF0 



LD 

BC,1FF0H;CASE TURBO 

DBDD 

ED 

78 



IN 

A, (C) 

DBDF 

0F 




RRCA 


DBEO 

C9 




RET 


DBEl 

E4 

00 


KVSET: 

DB 

OE4H,00H ;NO KEY 11 

DBE3 




DRNO: 

DS 

1 

DBE4 

53 

45 54 

54 

MESPCG: 

: DB 

’SETTING PCG’,0 

DBE8 

49 

4E 47 

20 




DBEC 

50 

43 47 

00 




DBF0 

FS 



CLS0: 

PUSH 

AF 

DBFl 

21 

0000 



LD 

HL,0000H 

DBF4 

CD 

E5B8 



CALL 

LOCATE 

DBF7 

FI 




POP 

AF 

DBFS 

21 

0700 



LD 

HL,2000 

DBFB 

CD 

E649 


CLS0L: 

CALL 

PRINTC 

DBFE 

2B 




DEC 

HL 

DBFF 

47 




LD 

B,A 

DC00 

7C 




LD 

A.H 

DC01 

B5 




OR 

L 

DC02 

78 




LD 

A,B 

DC03 

20 

F6 



JR 

NZ.CLSOL 

DC0S 

C9 




RET 



DISK 
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0FF8 

0FF8 

0FF9 

0FFA 

0FFB 

0FFC 


DC06 

DC08 

DCOB 

DC0D 

DC10 

DCll 

DC13 

DC16 

DC18 

DCIB 

DCID 

DC20 

DC22 

DC25 

DC26 

DC28 

DC2A 

DC2B 

DC2E 

DC30 

DC33 

DC34 

DC37 

DC3A 

DC3B 

DC3D 

DC40 

DC42 

DC43 

DC45 

DC46 


DC48 

DC49 

DC4B 

DC4C 

DC4D 

DC4E 

DC50 

DC51 

DC52 

DC53 
DC54 
DC57 
DC59 
DC5C 
DC5D 
DC60 
DC63 
DC64 
DC66 
DCS 8 
DC6A 
DC6D 
DC6F 
DC70 
DC72 
DC73 

DC75 

DC76 

DC77 

DC79 

DC7A 

DC7B 

DC7D 

DC7E 

DC7F 

DC80 

DC83 

DC85 

DC86 

DC87 

DC8a 

DC8B 

DC8C 

DC8E 

DC90 

DC93 

DC95 

DC97 

DC99 

OC9B 

DC9D 

DC9E 

DC9F 

DCAl 

DCA2 

DCA4 

DCA5 

DCA8 

DCAA 

DCAD 

DCAE 


1A01 

1A03 

1A02 

0072 

51ED 

0056 

50ED 



CR 

EQU 

0FF8H 

'.COMMAND REG. 


STR 

EQU 

0FF8H 

;STAT. REG. 


TR 

EQU 

0FF9H 

;TRACK REG. 


SCR 

EQU 

0FFAH 

;SECTOR REG. 


DR 

EQU 

0FFBH 

;DATA REG. 


MSDR 

EQU 

0FFCH 

;MOTOR,SIDE,DRIVE# SELEC 





/■ 

3E 02 

RSTR: 

LD 

A,02H 

; COMMAND 

01 0FF8 


LD 

BC.CR 

;BC=COMMAND REG. 

ED 79 


OUT 

(C),A 


CD DC8B 


CALL 

WNBSY 


C9 


RET 



3E IE 

SEEK: 

LD 

A, lEH 

',A=COMMAND 


;D=TRACK#,E=CUR 



01 0FF9 


LD 

BC.TR 


ED 59 


OUT 

(C) ,E 

;NOW TR 

01 0FFB 


LD 

BC.DR 


ED 51 


OUT 

<C),D 

;TO TR 

01 0FF8 

SEEKl: 

LD 

BC.CR 


ED 79 


OUT 

(C),A 

:SEND SEEK COM. 

CD DC8B 


CALL 

WNBSY 


C9 


RET 



3E 5A 

stepin: 

LD 

A,5AH 


18 F3 


JR 

SEEKl 


F3 

READD: 

DI 



CD DCA5 


CALL 

SETSCT 


3E 80 


LD 

A,80H 

;A=COMMAND 

01 0FF8 


LD 

BC.CR 

;CR=STR 

D9 


EXX 



01 0FFB 


LD 

BC.DR 

;DATA REG. 

2A DCAE 


LD 

HL,(BUFAD) '.BUFF ADD. 

D9 


EXX 



ED 79 


OUT 

(C),A 

;SEND COMMAND 

CD DC9F 


CALL 

WAITl 


ED 78 

REDl: 

IN 

A,(C) 


0F 


RRCA 


'.CHECK BUSY 

30 0B 


JR 

NC,RED2 

;END READ 

0F 


RRCA 


'.CHECK DATA REQ. 

30 F8 


JR 

NC.REDl 

;NO REQ. 

D9 


EXX 



ED 78 


IN 

A,{C) 


77 


LD 

(HL),A 


23 


INC 

HL 


D9 


EXX 



18 F0 


JR 

REDl 


07 

RBD2: 

RLCA 

;BACK STAT 

FB 


El 



C9 


RET 



F3 

WRITD: 

DI 



CD DCA5 


CALL 

SETSCT 


3E A0 


LD 

A,0A0H 

',A=COMMAND 

01 0FF8 


LD 

BC.CR 

;CR=STR 

D9 


EXX 



01 0FFB 


LD 

BC.DR 

;DATA REG. 

2A DCAE 


LD 

HL,(BUFAD) ;BUFF ADD. 

D9 


EXX 



IE 00 


LD 

E,00H 

;COUNTER 

16 02 


LD 

D,02H 

;MASK 

ED 79 


OUT 

(C),A 


CD DC9F 


CALL 

WAITl 


ED 78 

WRTl: 

IN 

A,(C) 


0F 


RRCA 


;CHECK BUSY 

30 0B 


JR 

NC,WRT2 

;END WRITE 

0F 


RRCA 


;CHECK DATA REQ. 

30 F8 


JR 

NC.WRTl 

;NO REQ. 



DCB0 

DCB5 

DCB9 

DCBD 

DCBE 

DCCl 

DCC2 

DCC6 

DCCA 



20 

4F 42 4A 
20 

4000 8000 
0000 0000 


DB 'OBJ’ 

DB 20H 

DW 4000H,80008,0000H. 


DS 8 ; DUMMY 


DCD2 41 
DCD3 33 
DCD4 ID 
DCD5 0F 
DCD6 2E 
DCD7 05 


LONGH: DB 
LONGL: DB 
SHORTH: DB 
SHORTL: DB 
W185: DB 
AFTBRW: DB 


XIL ;LONG HIGH 

XlL-14 ;LONO LOW 
XIS ;SHORT HIGH 

XlS-14 ;SHORT L 
XIW ;SAMPLING TIME 

5 ;SKIP 


DCD8 

DCD8 03E8 
DCDA 0028 
DCDC 0028 


ISET: 

IMARK1: DW 
IMARK2: DW 
IMARK3: DW 


;FCB MARK 

1000 

40 

40 


DCDE 

DCDE 0BB8 
DCE0 0014 
DCE2 0014 


DSET; 

DMARKl: DW 
DMARK2: DW 
DMARK3: DW 


;BODY MARK 

3000 

20 

20 


DCE4 


SUM: 


DS 


2 


;WORK AREA 


WRITE ROUTINE 


BEGIN ttttt 


DCE6 11 DF13 WHEAD: 

DCE9 06 02 

DCEB CD E56A 

DCEE AF 

DCEF 01 1A03 

DCP2 ED 79 

DCF4 21 21E4 

DCF7 CD DEF5 


LD DE,CMT10 

LD B,2 

CALL T049 ;CMT=10 

XOR A '.WRITE HEAD 

LD BC.C8255;8255 CONTROLE 

OUT (C),A ;WRITE 'L' 

LD HL,8676 ;COUNTER 

CALL WAITXX :WRITE 8 SBC GAP 


DCFA F3 

DCFB 21 0056 

DCFE 22 DD88 

DD01 21 DCB0 

DD04 11 0020 

DD07 FD 21 DCD8 

DD0B CD DD37 

DD0E FB 

DD0F C9 


DI 

LD HL,PATWMM 

LD (PATW),HL ;PATCH! 

LD HL.FCBA 

LD DE,32 

LD lY.ISET 

CALL WRITGO '.WRITE HEAD 

El 

RET 


DD10 21 0100 WBODY: 

DD13 CD DEF5 

DD16 21 50BD 

DD19 22 DD88 

DDIC 21 FF00 

DDIF 01 8000 

DD22 11 4000 

DD25 FD 21 DCDE 

DD29 F3 

DD2A CD DD37 

DD2D FB WBODYZ 

DD2E 11 DF0F 

DD31 06 02 

DD33 CD E56A 

DD36 C9 


LD HL,100H '.WRITE BODY 

CALL WAITXX ;WRITE GAP 

LD HL.PATWIO 

LD (PATW),HL 

LD HL,0000H-100H 

LD BC.8O00H 

LD DE,4000H 

LD IY,DSET 

DI 

CALL WRITGO ;WRITE BODY 

El 

LD DE.CMTl ;STOP 

LD B.2 

CALL T049 

RET 


:PATCH! 
;0FFO0H 
;GRAM RED 
'.LEN 


D9 

7E 

ED 79 

23 

D9 

18 F0 


EXX 

LD A.(HL) 

OUT (C),A 

INC HL 

EXX 

JR WRTl 


DD37 D9 

DD38 FD 4E 00 

DD3B FD 46 01 

DD3E 37 

DD3F CD DDB0 


WRITGO: EXX 

LD C,(IY+0) 

LD B,(IY+1| 

SCF ;CARRY=1 

CALL WMARK ;WRITE MARKl 


07 

WRT2: 

RLCA 

;BACK STAT 


DD42 

FD 4E 02 

LD 

C, (IYi-2) 

FB 


El 



DD45 

FD 46 03 

LD 

B,(IY+3) 

C9 


RET 



DD48 

B7 

OR 

A ;CARRY=0 


; 




DD49 

CD DDB0 

CALL 

WMARK :WRITE MARK2 

01 0FFC 

MSD: 

LD 

BC.MSDR 




; 


ED 79 


OUT 

(C) ,A 


DD4C 

FD 4E 04 

LD 

C,(IY+4) 

B7 


OR 

A 


DD4F 

FD 46 05 

LD 

B, (IY+5) 

F0 


RET 

P 


DD52 

37 

SCF 

;CARRY=1 

CD DC8B 


CALL 

WNBSY 

e. 

DD53 

CD DDB0 

CALL 

WMARK ;WRITE MARK3 

C9 


RET 





; 



; 




DD56 

37 

SCF 

:CARRY:1 

C5 

WNBSY: 

PUSH 

BC 


DD57 

CD DDC2 

CALL 

WBIT ;START BIT 

06 20 


LD 

B,20H 




; 


10 FE 

WNBSY0: 

DJNZ 

WNBSY0 


DD5A 

D9 

EXX 


01 0FF8 


LD 

BC,STB 


DD5B 

CD DD63 

CALL 

WBYTES :HONTAI 

ED 78 

WNBSY1: 

IN 

A,(C) 




; 


CB 47 


BIT 

0.A 


0D5E 

37 

SCF 

;CARRY:1 

20 FA 


JR 

NZ,WNBSY1 


DD5F 

CD DDC2 

CALL 

WBIT :STOP BIT 

CB 7F 


BIT 

7,A 


DD62 

C9 

RET 


20 F6 


JR 

NZ,WNBSYI 






Cl 


POP 

BC 


DD63 

D9 

WBYTES: EXX 


C9 


RET 



DD64 

21 0000 

LD 

HL,0000H :CHECK SUM 


; 




DD67 

D9 

EXX 


3E 07 

WAITl: 

LD 

A,7 


DD68 

CD OD82 

CALL 

WBSl 

3D 

WAIT2: 

DEC 

A 






20 FD 


JR 

NZ,WAIT2 


DD6B 

D9 

EXX 


C9 


RET 



DD6C 

7C 

LD 

A.H 


; 




DD6D 

65 

LD 

H.L 

01 0FFA 

SETSCT: 

LD 

BC.SCR 


DD6E 

6F 

LD 

L.A ;SWAP H-L 

ED 51 


OUT 

(C),D ;D=SECTOB# 


DD6F 

22 DCE4 

LD 

(SUM),HL 

CD DC8B 


CALL 

WNBSY 


DD72 

11 0002 

LD 

DE,2 

C9 


RET 



DD75 

21 0056 

LD 

HL,PATWMM 






DD78 

22 DD88 

LD 

(PATW),HL ;PATC 

8000 

BUFAD: 

DW 

DISKBF 


DD7B 

21 DCE4 

LD 

HL.SUM 


; 




DD7E 

CD DD82 

CALL 

WBSl :WRITE CHECK 






DD81 

C9 

BET 




TAPE 




DD82 

D5 

WBSl: 

PUSH 

DE 


FMCMT 

EQU 

1A01H 



DD83 

78 


LD 

A.B 


C8255 

EQU 

1A03H 



DD84 

FE 40 


CP 

40H 

;BC < 4000H ? 

TOCMT 

EQU 

IA02H 



DD86 

38 05 


JR 

C,MRAMW 

;THEN JUMP 






DD88 

ED 50 

PATW: 

IN 

D,(C) 

;GET FROM GRAM 

PATRMM 

EQU 

0072H 

:LD 

(HL),D:NOP 

DD8A 

C3 DD8E 


JP 

MRAMWl 


PATRIO 

EQU 

51EDH 

;OUT 

(C) ,D 

DD8D 

56 

MRAMW: 

LD 

D,(HL) 

;GET FROM MRAM 





DD8E 

23 

MRAMWl: 

INC 

HL 


PATWMM 

EQU 

0056H 

:LD 

D, (HL):NOP 

DD8F 

03 


INC 

BC 

;INC POINTERS 

PATW10 

EQU 

50EDH 

: IN 

D,(C) 

DD90 

CD DD9A 


CALL 

WBYTE 

;WRITE 1 BYTE 
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DD93 

D1 



POP 

DE 


DD94 

IB 



DEC 

DE ;DEC COUNTER 

DD95 

7A 



LD 

A,D 


DD96 

B3 



OR 

E '.CHECK 

IT 

DD97 

20 B9 



JR 

NZ.WBSl 


D099 

C9 



RET 



DD9A 

C6 


WBYTE: 

PUSH 

BC '.WRITE 

1 BYTE 

DD9B 

37 



SCF 



DD9C 

CD DDC2 



CALL 

WBIT 


DD9F 

06 08 


* 

LD 

B,8 ;8 BITS 

DDAl 

CB 12 

WBYTEl 

: RL 

D 


DO A 3 

D9 



EXX 



DDA4 

D2 DDA8 



JP 

NC,WBYTE2 


DDA7 

23 



INC 

HL ;INC CHECK SUM 

DDA8 

D9 


WBYTE2 

: EXX 



DDA9 

CD DDC2 



CALL 

WBIT ;WRITE 

1 BIT 

ODAC 

10 F3 



DJNZ 

WBYTEl 


DDAE 

Cl 



POP 

BC 


DDAF 

C9 



RET 



DDBO 

F5 

WMARK: 

PUSH 

AF ;SAVE CARRY 

DDBl 

F5 

WMARKl 

: PUSH 

AF 


ODB2 

C6 



PUSH 

BC 


DOB3 

CD DDC2 



CALL 

WBIT 


DDB6 

Cl 



POP 

BC 


DDB7 

0B 



DEC 

BC 


DDB8 

78 



LD 

A.B 


DDB9 

B1 



OR 

C ;COUNTER 

DDBA 

28 03 



JR 

Z,WMARK2 


ODBC 

FI 



POP 

AF 


DDBD 

18 F2 



JR 

WMARKl 


DDBF 

FI 

WMARK2: 

: POP 

AF 


DDce 

FI 



POP 

AF 


DDCl 

C9 



RET 



DDC2 


KBIT; 

;CY-> 

•*r’,NON CY->"0" 


DDC2 

CS 



PUSH 

BC ' 

;ii 

DDC3 

30 09 



JR 

NC,WBIT0 

; 12 or 7 

DDC5 

3A DCD3 



LD 

A,(LONGL) 

; 13 

DDC8 

08 



EX 

AF.AF' 

;4 

DDC9 

3A DCD2 



LD 

A,(LONGH) 

;13 

DDCC 

18 0B 



JR 

WBITl 

: 12 

DDCE 

38 09 

WBIT0: 

JR 

C,WBITl 

;12 or 7 

DDD8 

3A DCDS 



LD 

A,(SHORTLl 

; 13 

DDD3 

08 



EX 

AF.AF' 

;4 

DDD4 

3A DCD4 



LD 

A,(SHORTH) 

:i3 

DDD7 

18 00 



JR 

WBITl 

; 12 

DDD9 

01 1A03 

WBITl: 

LD 

BC,C8255 

;i0 

DDDC 

FS 



PUSH 

AF 

; 11 

DDDD 

3E 01 



LD 

A, 1 

:7 

DDDF 

ED 79 



OUT 

(Cl.A '.12 


DDEl 

FI 



POP 

AF '.10 


DDE 2 

CD DF08 



CALL 

WAITX ;17 


DDES 

AF 



XOR 

A ;4 


DDE6 

ED 79 



OUT 

(C),A ;12 


DDE8 

08 



EX 

AF.AF' ;4 


DDE9 

CD DF08 



CALL 

WAITX ;17 


DDEC 

01 1A01 



LD 

bc.fmcmt;10 


DDEF 

ED 78 



IN 

A,(C) ;12 


DDFl 

0F 



RRCA 

:4 


DDF2 

D2 DEC7 



JP 

NC.BREAK;10 


DDF5 

Cl 



POP 

BC ;10 


DDF6 

C9 



RET 

;10 





tttx* 

WRITE 

ROUTINE END XXXXX 





tttxt 

READ ROUTINE BEGIN XXXXi 


DDF7 

11 DFll 

i 

IHEAD: 

LD 

DE,CMT2 


DDFA 

06 02 



LD 

B,2 


DDFC 

CD ES6A 



CALL 

T049 ;CMT=2 


DDFF 

F3 



DI 

'.READ HEAD 

DE00 

21 0072 



LD 

HL,PATRMM 


DE03 

22 DE8C 



LD 

(PATR),HL 

;PATCH ? 

DE06 

21 7F00 



LD 

HL,FCBA2 

'.FCB ADD. 

DE09 

11 0020 



LD 

DE.32 

;LENGTH 

DE0C 

FD 21 DCD8 



LD 

lY.ISET 


DE10 

CD DE2F 



CALL 

READGO 


DE13 

FB 



El 



DE14 

C9 



RET 



DEIS 

F3 

RBODY: 

DI 


;READ BODY 

DE16 

21 SI ED 



LD 

HL,PATR10 


DE19 

22 DE8C 



LD 

(PATR),HL 

;PATCH! 

DEIC 

21 FF00 



LD 

HL,0OO0H-10OH 

:DATA ADD. 

DEIF 

01 8000 



LD 

BC.8000H 

'.GRAM RED 

DE22 

11 4000 



LD 

DE,400OH 

;LENGTH 

DE2S 

FD 21 DCDE 



LD 

lY.DSBT 


DE29 

CD DE2F 



CALL 

READGO 


DE2C 

C3 DD2D 



JP 

WBODYZ 






El 







RET 



DE2F 

D9 

F 

lEADGO: 

EXX 



DE30 

CD DEBD 

REDGOl: 

CALL 

COUNT0 ;COUNT 

.. 0 .. 

DE33 

FD SE 02 



LD 

E, (lY+2) 


DE36 

FD S6 03 



LD 

D,(IY+3) 


DE39 

B7 



OR 

A 


DE3A 

ED S2 



SBC 

HL.DE '.CHECK 

MARK2 

DE3C 

20 F2 



JR 

NZ,REDGOl 


DE3E 

FD 46 04 



LD 

B,(IY+4) 


DE41 

0S 



DEC 

B 


DE42 

CD DECA 

REDG02: 

CALL 

RBIT 


DE4S 

D2 DEC7 



JP 

NC,BREAK 


DE48 

10 F8 



DJNZ 

REDG02 


DE4A 

CD DECA 



CALL 

RBIT ;BEAD LAST MARK 

DE4D 

D2 DE30 



JP 

NC,REDGOl 


DES0 

D9 



EXX 



DESl 

CD DE68 



CALL 

RBYTES ;READ HONTAI 

DES4 

ED SB DCE4 



LD 

DE,(SUM) 


DE58 

7A 



LD 

A.D 


DES9 

S3 



LD 

D,E 


DESA 

5F 



LD 

B,A ;SWAP H 

-L 

DESB 

B7 



OR 

A 


DE5C 

ED 52 



SBC 

HL.DE :CHECK 

SUM 

DBSE 

C2 DEC7 



JP 

NZ.CSERR 


DB61 

CD DECA 



CALL 

RBIT ;STOP BIT 

DB64 

D2 DEC7 



JP 

NC,BREAK 



DB67 

C9 


RET 


DE68 

D9 

kbytes 

: EXX 


DE69 

21 0000 


LD 

HL,O000H ;CHECK SUN 

DE6C 

D9 


EXX 


DE6D 

CD DE83 


CALL 

RBSl ;READ HONTAI 

DE70 

D9 

' 

EXX 


DE71 

E5 


PUSH 

HL 

DE72 

11 0002 


LD 

DE,2 

DE75 

21 0072 


LD 

HL,PATRMM 

DE78 

22 DB8C 


LD 

(PATR),HL ;PATCH! 

DE7B 

21 DCE4 


LD 

HL.SUM 

DE7E 

CD DB83 


CALL 

RBSl ;READ CHECK SUM 

DESl 

El 


POP 

HL 

DE82 

C9 


RET 


DE83 

D5 

RBSl: 

PUSH 

DB 

DB84 

CD DESB 


CALL 

RBYTE 

DE87 

78 


LD 

A.B 

DE88 

FE 40 


CP 

40H ;BC < 4000H ? 

DESA 

38 05 


JR 

C,MRAMR ;THEN JUMP 

DE8C 

ED 51 

PATR: 

OUT 

(C),D ;STORE TO GRAM 

DE8E 

C3 DE92 


JP 

MRAMRl 

DE91 

72 

MRAMR: 

LD 

(HL),D ;STORE TO MRAM 

DE92 

23 

MRAMRl 

: INC 

HL 

DE93 

03 


INC 

BC 

DE94 

DI 


POP 

DE 

DESS 

IB 


DEC 

DE 

DE96 

7A 


LD 

A.D 

DE97 

B3 


OR 

E '.CHECK COUNTER 

DE98 

20 E9 


JR 

NZ.RBSl 

DB9A 

C9 


RET 


DESB 

CS 

RBYTE: 

PUSH 

BC ;READ 1 BYTE 

DE9C 

CD DECA 


CALL 

RBIT 

DE9F 

30 26 


JR 

NC,BREAK ;START BIT 

DEAl 

16 00 

’ 

LD 

D,00H ;CLEAR DATA 

DBA3 

06 08 


LD 

B,8 

DBAS 

CD DECA 

RBYTE1; 

: CALL 

RBIT 

DEA8 

D9 


EXX 


DEA9 

30 01 


JR 

NC,RBYTE2 

DEAB 

23 


INC 

HL ;INC CHECK SUM 

DEAC 

D9 

RBYTE2; 

; EXX 


DEAD 

CB 12 


RL 

D ;STORE 1 BIT 

DEAF 

10 F4 


DJNZ 

RBYTE1 

DBBl 

Cl 


POP 

BC 

DBB2 

C9 


RET 


DBB3 

21 0000 

COUNT1; 

; LD 

HL,0000H 

DEBS 

CD DECA 

CTl 1'. 

CALL 

RBIT 

DEBS 

D0 


RET 

NC 

DEBA 

23 


INC 

HL 

DEBB 

18 F9 


JR 

CTll 

DEBD 

21 0000 

COUNT0; 

: LD 

HL,0000H 

DEC0 

CD DECA 

CT01: 

CALL 

RBIT 

DEC3 

D8 


RET 

C 

DEC4 

23 


INC 

HL 

DECS 

18 F9 


JR 

CT01 

DEC7 


BREAK: 



DEC 7 

C3 D600 

CSERR: 

JP 

START '.TAPE ERR 

DECA 

CS RBIT: 

PUSH 

BC 

DECB 

01 1A01 


LD 

BC,FMCMT 

DECE 

ED 78 RBITl: 

IN 

A,{C) '.IN DATA 

DED0 

0F 


RRCA 


DBDl 

30 F4 


JR 

NC,BREAK 

DED3 

OF 


RRCA 


DED4 

38 F8 


JR 

C,RBITl ;WHILE(HIGH) DO 

DED6 

ED 78 RBIT2: 

IN 

A.(C) ;12 

DED8 

0F 


RRCA 

;4 

DBD9 

D2 DEC7 


JP 

NC,BREAK ;10 

DEDC 

0F 


RRCA 

;4 

DEOD 

D2 DED6 


JP 

NC,RBIT2 ;10 





;WHILE(LOW) DO 



•NOW I 

GOT 'EDGE' ! 

DEE0 

3A DCD6 


LD 

A,(W185) ;7 

DEE3 

CD DF08 


CALL 

WAITX ;17 

DEES 

ED 78 


IN 

A,(C) 

DEES 

0F 


RRCA 


DEE9 

D2 DEC7 


JP 

NC,BREAK 

DEEC 

0F 


RRCA 


DEED 

3A DCD7 


LD 

A,(AFTERW) '.SKIP TIME 

DEF0 

DC DF08 


CALL 

C,WAITX 

DBF3 

Cl 


POP 

BC 

DEF4 

C9 


RET 




XXXXX 

READ ROUTINE END XXXXX 



XXXXX 

WAIT ROUTINE XXXXX 

DEF5 

01 1A01 1 

IfAITXX: 

LD 

BC.FMCMT;10 

DEF8 

ED 78 WAPSS; 

IN 

A,(C) ;12 

DEFA 

0F 


RRCA 

'.4 

DEFB 

D2 DEC7 


JP 

NC,BREAK;10 

DEFE 

AF 


XOR 

A ;4 

DEFF 

CD DF08 


CALL 

WAITX ;17+14*256+31 

DF02 

2B 


DEC 

HL ;6 

DF03 

7C 


LD 

A,H ;4 

DF04 

BS 


OR 

L ;4 

DF05 

20 FI 


JR 

NZ,WAPSS ;12 or 7 

DF07 

C9 


RET 

:i0 



iDAITAI 

HL*3688 


DF08 

FS WAITX: 

PUSH 

AF ;11 

DF09 

3D WAITXL: 

DEC 

A ;4 

DF0A 

C2 DF09 


JP 

NZ,WAITXL ;10 

DF0D 

FI 


POP 

AF ;10 

DF0E 

C9 


RET 

:i0 



ll+14»Acc+20 




Acc:46 

->644+31 

s675 

DF0F 

E9 01 C 

mi : 

DB 

0B9H,01 

DFll 

E9 02 CMT2: 

DB 

0E9H,02 

DF13 

E9 0A CMT10: 

DB 

0E9H,10 




END 
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5630 INPUT " 1 0 0 , 1 0 0 0 , 1 0 0 0 0 iV' j INPUT ta "!X 

5 6 4 0 TI$- " 0 0 0 0 0 0 " 

5050 FOR I'l TO X 
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5070 PRINT TI$ 

5090 END 
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100,1000,10000 J INPUT ta 1000 

000001 
READY 


mfiie* lOOOO^INPUTLYcJi-g' 

GOTO 5030 

1 0 0 , 1 0 0 0 , 1 00 0 0 :7P' J INPUT ta 1 0 0 0 0 
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T-C", IFTHEN^^t t 
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5130 INPUT "PRINT j)i ur' N ^ INPUT tH 
5140 FOR 1=1 TO X 
5 150 PRINT "♦" ; 

5160 NEXT I 
5170 PRINT 
5190 GOTO 5130 


10^8 ^INPUTT^ t: 

GOTO 5130 

PRINT N ^ INPUT 1:3 10 

PRINT %)l N 3 INPUT t3 8 

ttt***** 

PRINT N 3 INPUT tn 


2 o(7);u—y 

;X 5330 INPUT X,Y 

5335 FOR 1=1 TO X 
5340 FOR J=1 TO Y 

5345 PRINT 

5350 NEXT J 

5355 PRINT 

5360 NEXT I 
5390 END 


GOTO 5330 
? 3,15 

tt************* 

READY 
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8006 

E5 



PUSH HL 

8007 

E5 



PUSH HL 

8008 

E5 



PUSH HL 

8009 

C3 

06 

80 

JP 8006 

h 5 






mm 

$8 00 0#«fi/)'»iXif' 

-F 


8000 

3 1 

04 

80 

J P SP, 8004 

8003 

2 1 

00 

00 

LD HL, 0000 

8006 

E5 



PUSH HL 

8007 

E5 



PUSH HL 

8008 

C3 

06 

80 

JP 8006 
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Izumi Daisuke 

% -kSt 


i'^nO-fj^i^amTiLt 

'3X^i. L J: o 

t, :j— ^mUmff) 
tziib(Dmi\.'-^y')i'-^>mi3'’±mmL, 5‘bU(±y-fy;u-f^ 
V i Tfe*'- 500 mmt, i $ CS KIB<7)^ffi4-S LXli.\.'i 
Itzo ^ ZtlXii. tx hl^^XtOiX, 

L ^3lt4a'C0T'-r*''*B I--5 *'irSA' J to M 
t'o y'>>mi$-m'’±'<-'y 'Jx 
h 4'tt4^T»!lU ‘J (i S L /; i:,f.o Ti^ L T < ^ I'o i>tU 




t L T, ffl©T"—X 4 (5, ^ih-^’iSli 

tZo I'hli'r'—Oist 

Z?yX'Li l-h\ 

mixi'^it. ^fcASliOHM t{:Lito 

©t'>A o^b •? i-a-Ao {) b^Aiurt)* •) i-a-Ao as© 
t"-^©OHM^ t oTt-A-c't, 

^•rr'-/^■r■t*^ aa', oa^-fsi.', jiif&©4*'?f 

$ i J; 5 A'tAT'ii^ -7 4 f-sen^iiAtti t, i :.X\ iit K7 
4’#lt4c tCL^to il??^to-Ci.'ntfKr%'rfB(t-C5t--tJi 
tfZ It'X'^ itoi LX&f>i K7©4*‘©t'n*>t:$*>Ei,L 
Xf)i), K7 4-F^(t6 t $©$*^aiilLito C:©7 '-A©g6 ^] 

fi, c©$^fi?Laiit c t-C'to AA'L$^©iifJ:i5#{:X*5 


LD 

‘‘LD (9876h), Aj T'9876H#ife(ZA;!)<A^ 

CALL 

—’’CALL NZ, #NLj (J NZ 4'ib CALL 

RET 

— '■ret Zj (iZTd:ibRET 

INC 

1 itfo ’’INC Aj (i A = A+ 1 

DEC 

''DEC Cj (JC=C-1 

PUSH 

‘y i7lZUv:x^(7)iiS^^^^-r^(ex. ''PUSH HLj) 

POP 

ffi-rCex. rpop DEj) 

AND 

A=A AND m. mti U ^ ^ ^/c 

OR 

A=A OR m 

XOR 

A = A XOR m 

CP 


ADD 

A=A4-m,HL=HL + pp, pp(ilxHL. DE. BC) ^ /i(J: 

SUB 

E 

1 

< 

II 

< 

SBC 

A=A-m-cy, HL = HL-pp-cy. cy(iC77 7 T t'^ 1 

JP 

BASIC(7>GOTOCZ+g^o 

JR 


DJNZ 

'"DEC Bj fJR NZ, ~j ^ 1 L/C t)<7) 

EX 

’’EX DE, HLj (iDE^ HL(7)F*g^^^^-r^ 


ntfe*), aac K7^FB(t7i.'< D 4 < Ao-c, c-o 

lb $ O -b l ft*''4 < 4 -O -c L ^ 5.11' 5 MF^-T'to f 5 -r't, 
Be.f 5-r'L j; 7o m^isy z t^mcj^f^->) s - t t^iAgrto 
zn-r4iS&©^^''; >ij:*‘4 ')j£*’'5Ut'-C't„ 

II D55SVRAM^(Z)1Z':/ h;U-5^> 

^@©r'-Ayi/-ynr'ii^|5t4, K7 4Mtt4 

t^o*'t.'4W:ffi4©-r'to — SI)libnAilliiSffi*‘ib 
M14tmii'4') i-a-AL, -Sr^HitibnA K7 ?■ 5-T'to 
iA, 12X 8 b°-x 1 jli®-r', 1 il®l*IL*“B)lt4i.'11.'7 © 
feffifi < •) i-a-Ao iii®©^i-C l! A lb, ^'°'7 UA©iiiffiu-9J 

')!^6oT(iLi.'©-rto ti.'7^tli, fflttAK7©tCAIi 
^e©T"-X4-t -7 h L-CiJ*'4(.' t. iS©jliffi*'ib!)f-o-r |! A 
ibUBltA K7*fffli -^-Ci'A-AATM^fH^L ito 
^ Ait©fiS, FBttA K7©fiH:^e©T"-X4-t 

xhtst, ^SliEoAc i t, r"-i5f 4-fe-7 h t 

S ti.'7©fi:l±^r"-X(:$'M%'i!lPiS 11'7 

L ^ 7 tffr'-^-r'^4 < 4^©•rt, sy'-A©Ao^ 
c 7 -lSr"-X %■ n - K't S 1 1 .' 7 © {) ^*‘fij ^ i -a-A L, ^ 
L i-a-Ao 

i A, t-A*n'5{il©t°-xli4A4©*'4f®^t:p-sA 

fc* •) ^ t,?C-r’.Si.'|!o7,fR?|lVRAM4?) 7 
O' t o^tt 4 C. 11: L i L Ao m0©t©liiSi®A-tHow Much 
X' L A**, ^0© h © ii t.°- X Anr * 4m".VRAM-r’to 

EE^igt"-t-C" 720001 t i.' 7 t"-x (i, 07 02 00 00 00 01 t HF^B 
snsbttr'to 4©t.°-X||^©r"-Xii, MAPDATA t Lt 

^iii®©tHlst aoooh;up%(:^w a to 
5tfl©fR?l'.VRAMIJ:, MAPAREAt L T BOOOHhmtt^^ L ^ 
t*f, 4#,®, L -CilPfBt 4 ©-r'ii 4 <, MAPDATA %■ 

#ML-CJSB^t 4©-r'to 4 7 tnii*MAPDATA4>i.'< ib^ML 
i 7*4 St-i«©^i:#o:E^gt-'-X*‘lb MAPDATA ??f1soT 
4=4 4 ttfli it to 

MAPDATA©-t -7 h ASTUPRD.STLWRDt^M 

LA{)©4ffii.'i to 4nib 2o©/^-t>li, ^i4iia‘'-x© 

tT X 4B000Hlbl|5$t:ii;it#^]&tf iT"©tSg ^M-oXi'i 
L74*4 tS iia°—x#^4jlt74'’tt t L i toHLCEIgt"—X 
©t&^ft7 K^x, DEt:MAPDATA©7 KVx^-t -7 h L, 

LD A, (HL) ; E^gt"-4?, A t x ti'72H 4-fc x h 

PUSH AF ; 

CALL STUPRD ; Xfitff4At:-t-7 ho 4©li^U:7 

LD (DE),A : <S?i?.VRAM-' 

INC DE ; <^©7 Kv'Xi:L-Cfci.''r 

POP AF ; E|gt"-t4IXDait 
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CALL STLWRD ; ^lSliT{itfT2 k 
LD (DE),A ; jRf.VRAM-^ 
t i' i 7 Cffit.' |±|§T"-:5?li 1 SIfflCO 
:: n4r48|II^')iiHfii', 96<i®t°-x^MAPDATAt LX-t-y h 
LX^^t Z ti't'lt i-ftlo 

$ r fei^iiMAPDATA*' t,MAPAREA--®r-^-fe -7 h •C't*^ 
w nfiifefl cOSTDATA^Isgi' i to DEui>'y.fr i: IKS'. VRAM CD 
7 K^x, A i;-t ■> b t S t°—x#^4’A*xt'(^7 At'L t’tao 
ito mi<D'J -y^h 

L i 7o 

Zt-C. 2 oCD-t^V—D itoitii STO 
ROtto zniit'-io-r'Isg^eSfc^AC-t-;/ h L-dll'i to 
Aii2 X 2cD4@ffi'r'tcD'r', zcD:^'&t:li''L 
D A,4j IXt'C ,z t c4; 9 i to MAPDATA t:-t y 

h-rii S|gla&li42-rto znLI±liMAPDATAi';7?fSlT 

Lii', -T't 7 X t 


<^:i:62fi-*''c>®MAP-r'to Z t-li.MAPAREACl^iSJS^-t -y 
htSOi'^-ACAn-CHi'^ to 67~73ft-fAi:Ao-ri'Sffi 
#f-(d=f)£tS MAPDATA ^fHLcacmL, Z Zi'i^b'-X#^ 
%-y- toto^COaiLtMAPAREAC-t-^ h LTi'^ i t(75~109 

fi-)o * 41 ( 1 ^ 31 :fiBill! t i o7z < 9 i-a-Ao 

12~29ftiiZ0-t7V-t:/%’1l7 /Z*®t>7ti/-tr'to Z® 

1 liiffi^®t"-^ii, 3iiH®r'-Ajii®cD-gis-rto K7^ii^c 

i:'3|iH1l7 74 r-C'**B5c 9 It* t* 9 i to 7-t>7Vi/fi, jl® 

^40^^-Ki: L'CJ8000'ir'^fi-L-CAT < A'Si'o 
60fi-i:#^cz t*^#l't^)5, yBhtit^yjhSiX'L £ 7< 
zniJ:f^^fi)ffltS-t7tu—7>.^|!ni'47 Kwx*‘C,!ia*S 
/z*i:, 7 K'vx(D^TtfT4?i^9±lf-Ci'S®-r'to I'tSUB 1 
=91lAH-rt*‘i;>SUBl/16+ 1 X16=911Ah/16+ 1 X16=911h 
+ 1 X16=912hX16=9120h t 9 ^ toZEDAi:Iiilli[®<i5t)li 
fili*9itAo znuli t Ai:*>ffll*®;i!fS!)-r't*», ^t-i'^c 
7 K^xriiai Sli 7*-Sc.9}-*Ui'®-r', filit) i < 3!) J; < z 7 

1'7 z t^^9 ito 


t 9*tt')lJS,ti'7 t Z;?.-C'L J: 7 


<5!I1 lgiiVRAM?&fP€. 


eeee 





1 

; SAMPLE - 1 


9135 




78 


; 



0000 





2 

; 



9135 

7E 



79 

MAP2: 

LD 

A, (HL) 


0000 





3 




9136 

CD 

82 

91 

80 


CALL 

STDATA 


0000 





4 

*MSX: 

EQU 

1FE5H 

9139 

23 



81 


INC 

HL 


0000 





5 

♦PRINT: 

EQU 

1FF4H 

913A 

7E 



82 


LD 

A, (HL) 


0000 





6 

; 



913B 

CD 

82 

91 

83 


CALL 

STDATA 


0000 





7 

MAPDATA 

EQU 

0A000H 

913E 




84 


; 



0000 





8 

MAPAREA 

EQU 

0B00OH 

913E 

23 



85 


INC 

HL ; 

; J data 

0000 





9 




913F 

10 

F4 


86 


DJNZ 

MAP2 


8000 





10 


ORG 

8O00H 

9141 




87 


; 



8000 





11 




9141 

E5 



88 


PUSH 

HL 


8000 





12 

TEST: 



9142 

EB 



89 


EX 

DE,HL 

; HL. DE 

8000 

3E 

01 



13 


LD 

A,1 ; Numbers of scene 

9143 

11 

28 

00 

90 


LD 

DE,40 


8002 

21 

0E 

80 


14 


LD 

HL.DATA 

9146 

36 

00 


91 


LD 

(HL),0 ; 

•’7^ Y-fn* ) 

8005 

CD 

00 

91 


15 


CALL 

STORD 

9148 

19 



92 


ADD 

HL.DE 


8008 





16 


; 


9149 

36 

00 


93 


LD 

(HL),0 ; 

f -> ) ')Ua- 

8008 

3E 

01 



17 


LD 

A,1 ; Scene 1 

'9148 

19 



94 


ADD 

HL.DE 


800A 

CD 

20 

91 


18 


CALL 

MAP 

914C 

36 

00 


95 


LD 

(HL).O ; 

End Mark 9 -vy*. 

80OD 

C9 




19 


RET 


914E 

23 



96 


INC 

HL 


800E 





20 




914F 

23 



97 


INC 

HL 


8O0E 





21 

DATA: 



9150 

23 



98 


INC 

HL 


80OE 

72 

00 

03 

30 

22 


DEFB 

72H:00H:03H:30H:30H:33H ; Scene 1 

9151 

23 



99 


I.NC 

HL 


8012 

30 

33 







9152 

EB 



100 


EX 

DE.HL 

; DE = J lin( 

8014 

72 

61 

00 

02 

23 


DEFB 

72H:61H:00H:O2H:00H:00H 

9153 

El 



101 


POP 

HL 


8018 

00 

00 







9154 

0D 



102 


DEC 

C 


801A 

75 

55 

55 

02 

24 


DEFB 

75H:55H:55H:02H:05H:55H 

9155 

20 

DC 


103 


JR 

NZ.MAPl 


801E 

05 

55 







9157 




104 


; 



8020 

70 

30 

00 

02 

25 


DEFB 

70H:30H:00H:02H:33H:00H 

9157 

06 

24 


105 


LD 

B.36 


8024 

33 

00 







9159 

3E 

20 


106 


LD 

A. ’ ’ 


8026 

72 

09 

01 

80 

26 


DEFB 

72H:09H:01H:80H:00H:00H 

915B 

12 



107 

MAP3: 

LD 

(DE).A 


802A 

00 

00 







915C 

13 



108 


INC 

DE 


802C 

72 

05 

55 

55 

27 


DEFB 

72H:05H:55H:55H:0OH:85H 

915D 

10 

FC 


109 


DJNZ 

MAP 3 


8030 

00 

85 







915F 




110 





8032 

70 

20 

00 

06 

28 


DEFB 

70H:20H:00H:06H:01H:00H 

915F 




111 

: PRINT OUT 

ROUTINE 


8036 

01 

00 







915F 




112 





8038 

55 

55 

55 

55 

29 


DEFB 

55H:55H:55H:55H:55H:55H 

915F 

21 

00 

B0 

113 


LD 

HL.MAPAREA 

803C 

55 

55 







9162 

11 

28 

00 

114 


LD 

DE.40 


803E 





30 




9165 

06 

18 


115 


LD 

B.24 


9100 





31 


ORG 

9100H 

9167 

EB 



116 

PROUT: 

EX 

DE.HL i 

; HL = 40 

9100 





32 




9168 

CD 

B5 

IF 

117 


CALL 

#MSX 


9100 





33 

; SET ORIGINAL DATA 

916B 

EB 



118 


EX 

HL.DE i 

; DE = 40 

9100 





34 




916C 

19 



119 


ADD 

HL.DE 


9100 





35 

; HL 

= DATA 

ADRS 

9160 

3E 

0D 


120 


LD 

A,0DH 


9100 





36 




916F 

CD 

F4 

IF 

121 


CALL 

♦PRINT 


9100 





37 

: A 

= Numbers of Scene 

9172 

10 

F3 


122 


DJNZ 

PROUT 


9100 





38 




9174 

C9 



123 


RET 



9100 





39 

STORD: 



9175 




124 





9100 

4F 




40 


LD 

C,A 

9175 




125 

; Set 

upper 

4 bits data 

of A 

9101 

11 

00 

AO 


41 


LD 

DE,MAPDATA 

9175 




126 

; 



9104 

06 

30 



42 

STODl: 

LD 

B.48 

9175 




127 

STUPRD: 




9106 





43 


; 


9175 

C5 



128 


PUSH 

BC 


9106 

7E 




44 

STOD2: 

LD 

A,(HL) 

9176 




129 


; 



9107 

F5 




45 


PUSH 

AF 

9176 

06 

04 


130 


LD 

B.4 ; 

I A = ???? XXXX 

9108 

CD 

75 

91 


46 


CALL 

STUPRD 

9178 

87 



131 

STUDl: 

ADD 

A,A 


9108 

12 




47 


LD 

(DE),A 

9179 

30 

01 


132 


JR 

NC,STUD2 


910C 

13 




48 


INC 

DE 

917B 

3C 



133 


INC 

A 


910D 

FI 




49 


POP 

AF 

917C 

10 

FA 


134 

STUD2: 

DJNZ 

STUDl 


910E 

CD 

7F 

91 


50 


CALL 

STLWRD 

917E 

Cl 



135 


POP 

BC ; 

; A = XXXX ???? 

9111 

12 




51 


LD 

(DE),A 

917F 




136 





9112 

13 




52 


INC 

DE 

917F 




137 

; SET 

LOWER 

DATA 


9113 

23 




53 


INC 

HL 

917P 




138 

; 




9114 

10 

F0 



54 


DJNZ 

STOD2 

917F 




139 

; Set 

lower 

4 bits data 

of A 

9116 





55 


; 


917F 




140 

; 




9116 

OD 




56 


DEC 

C 

917F 




141 

STLWRD: 




9117 

20 

EB 



57 


JR 

NZ,STODl 

917F 

E6 

OF 


142 


AND 

0FH ; 

; Mask 4-8 bit 

9119 

C9 




58 


RET 


9181 

C9 



143 


RET 



911A 





59 




9182 




144 





9120 





60 

SUBl: 

ORG 

SUB1/16+1»16 

9182 




145 

; SET 

DATA 



9120 





61 




9182 




146 

; 




9120 





62 

; MAPPING 


9182 




147 

STDATA: 




9120 





63 




9182 

B5 



148 


PUSH 

HL 


9120 





64 

; A = 

Scene 

No. 

9183 

C5 



149 


PUSH 

BC 


9120 





65 

: 



9184 

D5 



150 


PUSH 

DE 


9120 





66 

MAP: 



9185 




151 


; 



9120 

47 




67 


LD 

B,A 

9185 

67 



152 


LD 

H.A 


9121 

21 

00 

00 


68 


LD 

HL,0 

9186 

87 



153 


ADD 

A. A ; 

1 *2 

9124 

11 

60 

00 


69 


LD 

DE,96 ; No. of pieces in a scene 

9187 

87 



154 


ADD 

A,A 

: *4 

9127 

19 




70 

MAP0: 

ADD 

HL.DE 

9188 

87 



155 


ADD 

A. A ; 

; *8 

9128 

10 

FD 



71 


DJNZ 

MAPO 

9189 

84 



156 


ADD 

A.H 

; *9 

912A 

11 

A0 

9F 


72 


LD 

DE,MAPDATA-96 

918A 

6F 



157 


LD 

L.A 


912D 

19 




73 


ADD 

HL.DE ; HL = (A-1)«96 + MAPDATA 

918B 

26 

00 


158 


LD 

H.0 


912E 





74 


; 


918D 

11 

B2 

91 

159 


LD 

DE.SPC 


912E 

11 

00 

B0 


75 


LD 

DE,MAPAREA 

9190 

19 



160 


ADD 

HL.DE ; 

: HL is top of ( 

9131 

0E 

08 



76 


LD 

C,8 

9191 




161 


j 


9133 

06 

06 



77 

MAPI: 

LD 

B.6 

9191 

D1 



162 


POP 

DE ; 

i V-RAM Adrs 
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9192 0E 03 
9194 06 03 

9196 7E 

9197 12 

9198 23 

9199 13 
919A 10 FA 
919C 0D 
919D 28 09 
919F 

919F E5 
91A0 21 25 00 
91A3 19 
91A4 EB 
91A5 El 
91A6 18 EC 
91A8 

91A8 21 50 00 
91AB EB 
91AC ED 52 
91AE EB 
91AF Cl 
91B0 El 
91B1 C9 
91B2 
91B2 
91B2 

91B2 20 20 20 
91B5 20 20 20 
91B8 20 20 20 

91BB 20 2D 20 
91BE 49 A1 49 
91C1 49 20 49 
91C4 

91C4 48 2D 48 
91C7 48 2D 48 
91CA 48 2D 48 
91CD 

91CD 3D 3D 3D 
91D0 20 20 20 
91D3 20 20 20 
91D6 

91D6 20 24 20 
91D9 24 24 20 
91DC 24 24 24 
9 IDF 

9IDF DB DB DB 
91E2 3A DB 3A 
91E5 DB DB DB 
91E8 

91E8 20 20 20 
91EB 4F 2D 2D 
91EE 20 20 22 
91F1 

91F1 20 DB 20 
91F4 20 DB 20 
91F7 20 DB 20 
91FA 

91FA 20 20 DB 
91FD 20 DB 3A 

9200 DB 3A DB 
9203 

9203 DB 20 20 
9206 3A DB 20 


163 LD 

164 STDTl: LD 

165 STDT2: LD 

166 LD 

167 INC 

168 INC 

169 DJNZ 

170 DEC 

171 JR 

172 ; 

173 PUSH 

174 LD 

175 ADD 

176 EX 

177 POP 

178 JR 

179 

180 STDT3: LD 

181 EX 

182 SBC 

183 EX 

184 POP 

185 POP 

186 BET 

187 


188 ; Piece Data 


C,3 

B,3 

A,(HL) 
(DE),A 
HL 
DE 

STDT2 

C 

Z,STDT3 

HL 

HL,40-3 

HL.DE 

DE.HL 

HL 

STDTl 

HL,80 

DE,HL 

HL,DE 

DE,HL 

BC 

HL 


DE = lVi/9 


DE = 24* -O r»i 


9209 DB 3A DB 
920C 

920C 20 2D 20 
920F 49 A1 49 
9212 49 20 49 
9215 

9215 20 20 20 
9218 20 20 20 
921B 20 
921C 

921C 20 20 20 
921F 20 20 20 
9222 20 20 20 
9225 

9225 20 20 20 
9228 20 20 20 
922B 20 20 20 

922E 20 20 20 
9231 20 20 20 
9234 20 20 20 
9237 

9237 20 20 20 
923A 20 20 20 
923D 20 20 20 


228 DEFM "d:d" 

229 ; 

230 ►*72: DEFM " - ” 

231 DEFM "I. I” 

232 DEFM "I I" 

233 ; 

234 DEFM 

235 DEFM 

236 DEFB 

237 

238 DEFM 

239 DEFM 

240 DEFM 

241 ; 

242 DEFM 

243 DEFM 

244 DEFM 

245 

246 DEFM 

247 DEFM 

248 DEFM 

249 

250 DEFM 

251 DEFM 

252 DEFM 


; No. A 


; No. C 


: No. D 


: No. E 


; No. F 


189 ; 

190 SPC: DEFM 

191 DEFM 

192 DEFM 

194 h*T: DEFM 

195 DEFM 

196 DEFM 

197 

198 AJ^a* : DEFM 

199 DEFM 

200 DEFM 

201 ; 

202 77: DEFM 

203 DEFM 

204 DEFM 

205 ; 

206 DEFM 

207 DEFM 

208 DEFM 

209 ; 

210 xt: DEFM 

211 DEFM 

212 DEFM 

213 

214 »4* : DEFM 

215 DEFM 

216 DEFM 

217 

218 : DEFM 

219 DEFM 

220 DEFM 

221 ; 

222 DEFM 

223 DEFM 

224 DEFM 

226 «>f7*>2: DEFM 

227 DEFM 


"H-H" 

"H-H" 

"H-H" 


"$$ " 
"$$$" 

"nno" 

" : D: " 

"odd" 


•O—’ 


" a " 
" D " 
" D " 


D" 



”□ *• 
": D " 




No. 

1 

8000 

3E 

01 

21 

0E 

80 

CD 

00 

91 :4C 

9180 

0F 

C9 

E5 

C5 

D5 

67 

87 

87 

:CC 



8008 

3E 

01 

CD 

20 

91 

C9 

72 

00 ; 

;F8 

9188 

87 

84 

6F 

26 

00 

11 

B2 

91 

:F4 



8010 

03 

30 

30 

33 

72 

61 

00 

02 : 

;6B 

9190 

19 

D1 

0E 

03 

06 

03 

7E 

12 

:94 

No. 

2 

8018 

00 

00 

75 

55 

55 

02 

05 

55 ; 

:7B 

9198 

23 

13 

10 

FA 

0D 

28 

09 

E5 

:63 



8020 

70 

30 

00 

02 

33 

00 

72 

09 ; 

;50 

91A0 

21 

25 

00 

19 

EB 

El 

18 

BC 

:2F 



8028 

01 

80 

00 

00 

72 

05 

55 

55 : 

;A2 

91A8 

21 

50 

00 

EB 

ED 

52 

EB 

Cl 

:47 



8030 

00 

85 

70 

20 

00 

06 

01 

00 ; 

lie 

91B0 

El 

C9 

20 

20 

20 

20 

20 

20 

:6A 

No. 

3 

8038 

55 

55 

55 

55 

55 

55 



;FE 

91B8 

20 

20 

20 

20 

2D 

20 

49 

A1 

:B7 













91C0 

49 

49 

20 

49 

48 

2D 

48 

48 

:00 



SUM: 

45 

BC 

58 

2D 

CM 

Q 

59 

3F 

46 : 

36 

91C8 

2D 

48 

48 

2D 

48 

3D 

3D 

3D 

:E9 













91D0 

20 

20 

20 

20 

20 

20 

20 

24 

:04 

No. 


9100 

4F 

11 

00 

A0 

06 

30 

7E 

F5 

A9 

91D8 

20 

24 

24 

20 

24 

24 

24 

DB 

:CF 



9108 

CD 

75 

91 

12 

13 

FI 

CD 

7F 

35 

91E0 

DB 

DB 

3A 

DB 

3A 

DB 

DB 

DB 

:96 



9110 

91 

12 

13 

23 

10 

F0 

0D 

20 

06 

91E8 

20 

20 

20 

4F 

2D 

2D 

20 

20 

:49 

No. 

5 

9118 

EB 

C9 

F4 

20 

F3 

23 

ED 

5B 

26 

91F0 

22 

20 

DB 

20 

20 

DB 

20 

20 

:78 



9120 

47 

21 

00 

00 

11 

60 

00 

19 

F2 

91F8 

DB 

20 

20 

20 

DB 

20 

DB 

3A 

:4B 



9128 

10 

FD 

11 

A0 

9F 

19 

11 

00 

87 













9130 

B0 

0E 

08 

06 

06 

7E 

CD 

82 

9F 

SUM: 

C3 

9F 

B3 

4C 

43 

C7 

EB 

56 

:AC 

No. 


9138 

91 

23 

7E 

CD 

82 

91 

23 

10 

45 













9140 

F4 

E5 

EB 

11 

28 

00 

36 

00 

33 

9200 

DB 

3A 

DB 

DB 

20 

20 

3A 

DB 

:20 



9148 

19 

36 

00 

19 

36 

00 

23 

23 

E4 

9208 

20 

DB 

3A 

DB 

20 

2D 

20 

49 

:C6 

No. 

7 

9150 

23 

23 

EB 

El 

0D 

20 

DC 

06 

21 

9210 

A1 

49 

49 

20 

49 

20 

20 

20 

:FC 



9158 

24 

3E 

20 

12 

13 

10 

FC 

21 

D4 

9218 

20 

20 

20 

20 

20 

20 

20 

20 

:00 



9160 

00 

B0 

11 

28 

00 

06 

18 

EB 

F2 

9220 

20 

20 

20 

20 

20 

20 

20 

20 

:00 



9168 

CD 

E5 

IF 

EB 

19 

3E 

0D 

CD 

ED 

9228 

20 

20 

20 

20 

20 

20 

20 

20 

:00 

No. 

8 

9170 

F4 

IF 

10 

F3 

C9 

C5 

06 

04 

AE 

9230 

20 

20 

20 

20 

20 

20 

20 

20 

:00 



9178 

87 

30 

01 

3C 

10 

FA 

Cl 

E6 

A5 

9238 

20 

20 

20 

20 

20 

20 

20 

20 

:00 

No. 

9 

SUM: 

CC 

10 

66 

C7 

C4 

EF 

63 

86 : 

;A5 

SUM: 

3C 

FE 

FE 

76 

29 

0D 

lA 

E4 

:E2 



—-S'fiib® B — >7"’- t (n] f 4- 7 t) 5 d t ** 


1) t c© t |! 

tor, ^TLi-fr/io b-7° 

t:.i; t L 4 to L i o 

ft**, t —Aiif'ii ^ t i: L 4 to 

3) J£0T**^S*'i3® t m<0±r-±r>z l\iX^ 4tAL, 

Z07k ^ 

ffitSf4*‘* *) 4-frAo 

H) t Lf, 7 L 4 Li 7o 

:^{Sl4MAPAREA^f^-i, /j: f * 

i<Di}'^m'<i>COX'to 
C ;-r'3fe;!f'^oAGVRAD%-1Ii.'4to ■! 
t - A 15 fS® V 

RAM(MAPAREA)±CD7 K v-x DEi: Anf'^f o f ^ 4 to .© 

i-'thLt: < A'^i'o •Ct*'G(L,H)t:ffii.'t:*4©** “H”*'f:'7 

CALL GVRAD ; HL*- GfctlVRAMr K^x 
LD A,'H' ; &MLX i' ^ 


EX DE, HL 1 

CP (HL) icP (DE)i4^Ci.'0-r', 0 

EX DE, HL J (£5 

t t4LlJr4 I'ftiao M 2 ^M,X < I'o 
17^T*■G^Tti7 7CD>'^-t:xi4j!&4 0 4 to i^lWHL Cii 
t-ACDsIC!)ra]*'-oTi£0fig**Ao-C& 4 t®f', ±ti<D:)j^X 

ti^XtS 11., 7 c t**t*'*) 4to20~22 

fi-r'li«*'i:' 7 *-4-P^''C'.'4 to m 7 g^TL 4 tA® 

r'NTFAL 14 t (23fi-)o L 4 7 Gp-s 

41 (24~27lf) o c. c I o#*-G 7j: 1)4114, (Ag t;®t-** 

4) ^ *' L' 7 **X)7‘-x. '7 y L ^ 4to GVRAD L CHRCK L HL 
v^'xX'5?i®L4tAcD-C', riNC Hj 4-2 01^'Jilt 14', (L, H) 14 
t-AC?[6]*'of*ffll)(7)J£®l$i|i iUi 0)Xt (29~3l1f )o ZZij' 
^^--30^, o4')AM..jO£'::*'i:H**iins t, t-A(4 
If i' i b D-r t *' GNOTFAL'-S^O' 4 t (33~39ff )„ 




^ {ZX^ ^i"o 


J (0 

FALLl? : LD 

A, ' ' 1 


CALL 

CHRCK J 

JR 

Z,FALL2? : 

i^FALL2?^ 

LD 

A,' = ' 1 


CALL 

CHRCK J 

I if ^ ^ 

JR 

NZ,NOTFAL ; 


FALL2? : INC 

DE 1 

1 y ^ ^ ^ 

DJNZ 

FALLl? J 


139 










~511t)<. 

53ffiz< S®aj£cDT*'i3*'$SC!) t |!-r', CHRCK0 7 7 i!'-' 

oi D-t"n7 ^ilL-cfci.' 

/w’ V v>'x 3? -SflX t) tb L T'Jf O r I.' |i ^ t (53~56ft)o 
-c'li, mT L ii I’t |! li f 5 r L i 7 o L I'JtaaiiSS- 
62^f-r'-r„ c-^t-ttaNC >j r li:<.' 

ito taND Aj ^ roR Aj ir^^X h i ^-^Ao 

^■li^5 t l!, Ali20H, 3 Dh, 48H0i,'Tn*-'C’'-r 

*‘f., i-H'n i-\tAoX’t*'(>''CALL 

FALL?j i Lf:S t-li'o 

**mTt 7*'%-f-:L7 iJ'-r'l! ibttrto •fe"n/j; li^T, 
/>-t"n/j:C,^TL^fi.'t^c') Ito 

7 %> c 0 J; 5 i:^ft L T 4=' < t, 

CALL FALL? ; 

JR Z.DOWN ; 


11'7<"^)(.'t:, A-7- I- rj:^ ^ z 



A, tf—X *?^) 5 *>, ;& i: « H' A, t. — X i 7 ii' L, 

HzLito 

f'iii-f (L, H) 11' 7 ;^- —5 L°-x^p-<'5 
*.*> I) ^ L J 7 o t;“-XCD#f-ij;®?JlVRAM (MAP 


DATA) r.f^&AX'^ >) itt'C,, (L,H)i;i)?.*S t“-x*’'f5r 

7 F'vxfi 

<k<Dl 7 C LTSCtbL ito C-XiJ:3X3-r't*‘ii.LtH^?:n 

P'n 3 -r'fllo ^^«f) i to c n-r' 1 SfflcDMAPDATAtfffi X 
t:°-X, IgEy L°-X(7)fiSi:t-A*H'^ 
i to t°-XiJ:fl|12fflft*'iiyX12+x-r', (x, y) liMAPDATA© 
^fesS*'f.l5J^M F g (:*/.• it tio UmRAMCD 

7t-fex{:j; <ffi7^i£-rto 3-r'fDSOii^Ji: J; oT^lit^c < 
f£i>i-C3k^\< 11.' 7 i to 

Z(DXy r. Ltt°-x®#f-^t#2. C Li^X'^fzi., 

Dj^fSStf s k°-x*>j;' 7 *'0!FiJ^/3'g-r'to 2. C-x 

fi ''Mj, rj^j, ''K'rj cD3o-rto ■r'IJ:fi^)3 ?rl.T </^'Si'o 

99~109fi'«3-r’fI)S7v-tVC"to loefi-f'^o %-7-tt:A 

*‘ii-r'to HtSlJt-A t ^ Cl/JfeTiXS C 

6 ZH 1 LXS') it COX', *>o 

i^fzlfo zcDtj^y t^fryfzn^coo'-txto 
(L, H) ® C- X CDMiS?r^ s ® liGTPCt*'^ 9 I: t (63~97fi-)o 
68, 69ft-r’, !140®0t"-t**MAPDATA4'0£'w*‘C,(tS^o 
11'S CD*>•5fHL i-i^'x 3? CIX 9 ai L T |!, 9 # 

fto 67, 70fi-C'DEt;HLt'^jn-S^S(L,H)*fA9 i t*>ii, 
D t E c t C/j: 9 i tfe(71~76ff)o H^SlJy 

13 fSU 9 -Wn4liPJfi:-fe 7 h $ n, L *• (. m*' c>i*' 
^X)j:<.^{i[mr.m< Z itzLitCDX, E 4-D0^) t t'S] 9, E 

-^3(D^9 4’ (AMARI) i:^ L t x 3-C'fl]7 9 *5^,*. 


SL yizLXJji) ito 

77^TT‘'t;°-X0x,yfiS5f(PCXY) irAntfc^, yX12 + x?? 
<502 gffl^T®5^x'VC7 


0000 




1 

; SAMPLE - 2 




9342 D1 


60 



POP 

DE 



0000 




2 





9343 El 


61 



POP 

HL 



9300 




3 

ORG 

9300H 



9344 C9 


62 



RET 




9300 




4 

; 




9345 


63 







9300 




5 

VRAMADR:EQU 

0BO00H 



9350 


64 

SUBl 


ORG 

SUB1/16+1»16 


9300 




6 





9350 


65 







9300 




7 





9350 


66 

; GET 

V-RAM 

ADDRESS 



9300 




8 

: fx7> »- 




9350 


67 

; 






9300 




9 





9350 


68 


Calc ADRS from HL 



9300 




10 

: HL = y*'/ -ff 




9350 


69 

; 






9300 




11 





9350 E5 


70 

GVRAD: 

PUSH 

HL 

; Save 

CSR Pos 

9300 




a2 





9351 5D 


71 



LD 

E,L 



9300 




13 

; Check posibility of falling down 


9352 16 00 


72 



LD 

D,0 

; DE = 

X-position 

9300 




14 

; 




9354 6C 


73 



LD 

L,H 



9300 




15 

; if result = 

z then OHM will fall 


9355 26 00 


74 



LD 

H,0 

; HL = 

Y-position 

9300 




16 

; 




9357 29 


75 



ADD 

HL.HL 

; Y>2 


9300 




17 

FALL?: 




9358 29 


76 



ADD 

HL,HL 

; *4 


9300 

E5 



18 

PUSH 

HL 



9359 29 


77 



ADD 

HL.HL 

; *8 


9301 

D5 



19 

PUSH 

DE 



935A 4D 


78 



LD 

C,L 



9302 

CD 

50 

93 

20 

CALL 

GVRAD ; 

f y -rt 


935B 44 


79 



LD 

B,H 



9305 

3E 

3D 


21 

LD 

A, ’ = ’ 



935C 29 


80 



ADD 

HL,HL 

; *16 


9307 

CD 

70 

93 

22 

CALL 

CHRCK 

k>* ‘Jf 


935D 29 


81 



ADD 

HL,HL 

; »32 


930A 

28 

35 


23 

JR 

Z,NTFALl 



935E 09 


82 



ADD 

HL,BC 

: »40 


930C 

13 



24 

INC 

DE 



935F 19 


83 



ADD 

HL,DE 

; X+Y*40 

930D 

13 



25 

INC 

DE 



9360 11 00 B0 


84 



LD 

DE,0B000H 

: V-RAM ADRS 

930E 

CD 

70 

93 

26 

CALL 

CHRCK : 

f 


9363 19 


85 



ADD 

HL,DE 



9311 

28 

2E 


27 

JR 

Z,NTFALl 



9364 EB 


86 



EX 

DE,HL 



9313 




28 





9365 El 


87 



POP 

HL 

; Get CSR Pos 

9313 

24 



29 

INC 

H 



9366 C9 


88 



RET 




9314 

24 



30 

INC 

H 



9367 


89 







9315 

CD 

50 

93 

31 

CALL 

GVRAD ; 

TP ) '(f 


9370 


90 

SUB3 


ORG 

SUB3/16+1 

*16 


9318 




32 

; 




9370 


91 







9318 

C5 



33 

PUSH 

BC 



9370 


92 

; CHARACTER CHECK 



9319 

06 

03 


34 

LD 

B,3 



9370 


93 

; 






931B 

3E 

48 


35 

LD 

A, ’H' 



9370 


94 

; 

Compare J 

\ with (V-RAM) 


931D 

CD 

70 

93 

36 

FALL0?: CALL 

CHRCK 



9370 


95 

; 






9320 

28 

IE 


37 

JR 

Z,NOTFAL 



9370 


96 

CHRCK; 





9322 

13 



38 

INC 

DE 



9370 EB 


97 



EX 

DE,HL 



9323 

10 

F8 


39 

DJNZ 

FALL0? 



9371 BE 


98 



CP 

(HL) 



9325 




40 

; 




9372 EB 


99 



EX 

DE,HL 



9325 

24 



41 

INC 

H 



9373 C9 


100 



RET 




9326 

CD 

50 

93 

42 

CALL 

GVRAD 

TP ) P9 











9329 

06 

03 


43 

LD 

B,3 












932B 

3E 

20 


44 

FALLl?: LD 

A, ’ ’ 












932D 

CD 

70 

93 

45 

CALL 

CHRCK 












9330 

28 

07 


46 

JR 

Z,FALL2? 












9332 

3E 

3D 


47 

LD 

A, ’ = ’ 



• ^ > y >j ^ 

h 








9334 

CD 

70 

93 

48 

CALL 

CHRCK 












9337 

20 

07 


49 

JR 

NZ,NOTFAL 












9339 

13 



50 

FALL2?: INC 

DE 

FLAG don’t 

change 

9300 E5 D5 CD 

50 

93 3E 

3D 

CD 

:B2 

9348 C2 6F 

20 CD 

67 98 CD 1 

933A 

10 

EF 


51 

DJNZ 

FALLl? ; 

by these 

opperations 

9308 70 93 28 

35 

13 13 

CD 

70 

:C3 

9350 E5 5D 

16 00 

6C 26 00 : 

933C 




52 

; 




9310 93 28 2E 

24 

24 CD 

50 

93 

:E1 

9358 29 29 

4D 44 

29 29 09 

933C 

Cl 



53 

POP 

BC 



9318 C5 06 03 

3E 

48 CD 

70 

93 

:24 

9360 11 00 

B0 19 

EB El C9 ] 

933D 

933E 

D1 

El 



54 

55 

POP 

DE 

HL 



9320 28 IE 13 

10 

F8 24 

CD 

50 

:A2 

9368 D5 CD 

EA 53 

El CD 0A ! 

933F 

C9 



56 

RET 




9328 93 06 03 

3E 

20 CD 

70 

93 

:CA 

9370 EB BE 

EB C9 


9340 




57 





9330 28 07 3E 

3D 

CD 70 

93 

20 

:9A 




9340 

Cl 



58 

NOTFAL: POP 

BC 



9338 07 13 10 

EF 

Cl D1 

El 

C9 

:55 

SUM: F9 0B 

63 88 

49 7F F6 ! 

9341 

B7 



59 

NTFALl: OR 

A : 

reset Z flag 

9340 Cl B7 D1 

El 

C9 CD 

D2 

91 

:23 





Oh! MZ 1986.10. 










Itsto KVxi:JS,L,(L,H)i:M 

j£t 2 . tf- X 0 MAPDATA I* 1 CD 7 K v X ^-HL C# i -r(79~ 
9m)o ^c?)HL0fii%’(PCADR)i:AnA-* t, rLD A,(HL)j 
•C'e°-x#^4>^#TGTPC«l?-T L ^ to 

(PCXY) t (PCADR)ii, Sf-xco^iilC^'W 

iCcItmt'to tCLi LJ: 7o 

39ff*'ii0 rL&R?j jj;, GTPC-r’IXo'Cl! Ak”-x#^ii 

5 7>-C'to ^7(7^^ 

07® K7 tS**l!f.L'C*l) K' 7 ® 2 ail* •) itOf, Z 
4o®t;°-x#^tJt®Lt:i.'ito fiji: J; 
n 7 x7"1:^^Lt: y 7 —7 L ito 40,41,55ffli#®Jt'|! 

A- ©*'■ K'7*> t' 7 X 7t s A*® 

7 77 - 0 ^ 5 . 11 - 1 :'to t L, 

L T^ G (t G i'*'li-C'to 

9^T*'G® rLEFT?j 'r'iit-A0*®|$M%>, 23ff*>G® 
BRIGHT ?j -r'«t-A0;&®^;|i?fHLt;At., '■l&R?jI:J; 
■o -C|i)if$-tf--C I.' 4//(t-r'to (L+ 3 ,H) %■ BRIGHT ? j-C'ii-^t 
I.' 5 ® ii (L, H) ~ (L + 2, H + 2) 4-1 - A * r I.' S *' G t't J: o 

t-A fc3X3®A|! w t A':&t.'o 

(L-l,H), (L + 3,H) 77ltil-<'t-®-r'li7F+^-C'to 

i5lJ3 


11 






0 

• 



□ 

□ 

□ 

H 

C H 

) 

□ 

□ 


□ 

; 

H 

. M 


□ 

; 

□ 

□ 

□ 

M 

- H 

□ . 

□ 

□ 




, H 

H 







H 

- H 







H 

- H 





K< 77$ i.'o c® i 7 t $ C iiGTPC-r '0 o ^ 0 XA-X7)?1I 

o7|!t, lA®4'%’»H'TLi 7 fci-'P 

LtLi 7®'r'toCih.^3lHa7j*i:, (L-l,H + 2) t (L + 3, H 

+2)® t.°—X {) X 7 L i to 7^*“*)c:®c!: 4'£ 

liLti'-C, 7 j:A0^7j; L ct —A < Offli 

AL7.'®-r'Lt'o *—Wf.'ffli'o 




0000 




1 

; SAMPLE - 3 



0000 




2 

; 




9400 




3 


ORG 

9400H 


9400 




4 


; 



9400 




5 

MAPDATA:EQU 

0A000H 


9400 




6 





9400 




7 

; Check posibility of move left 

9400 




8 

; 




9400 

E5 



9 

LEFT?: 

PUSH 

HL 


9401 

2D 



10 


DEC 

L : 

(L-1,H) 

9402 

CD 

20 

94 

11 


CALL 

L&R? 


9405 

20 

05 


12 


JR 

NZ,LEFTl? 


9407 

24 



13 


INC 

H 


9408 

24 



14 


INC 

H 

(L-1,H+2) 

9409 

CD 

20 

94 

15 


CALL 

L&R? 


940C 

El 



16 

LEFTl?: 

POP 

HL : 

(L,H) 

940D 

C9 



17 


RET 



940E 




18 





9410 




19 

SUBl: 

ORG 

SUB1/16+P 

H6 

9410 




20 





9410 




21 

; Check posibility of move right 

9410 




22 





9410 

E5 



23 

RIGHT?: 

PUSH 

HL 


9411 

2C 



24 


INC 

L 


9412 

2C 



25 


INC 

L 


9413 

2C 



26 


INC 

L ; 

(L+3,H) 

9414 

CD 

20 

94 

27 


CALL 

L&R? 


9417 

20 

05 


28 


JR 

NZ,RGHTl? 


9419 

24 



29 


INC 

H 


941A 

24 



30 


INC 

H 

(L+3,H+2) 

941B 

CD 

20 

94 

31 


CALL 

L&R? 


941E 

El 



32 

RGHTl?: 

POP 

HL 


941F 

C9 



33 


RET 




9420 

9420 

9420 

9420 

9420 

9420 

9420 AF 

9421 32 91 94 
9424 

9424 CD 40 94 
9427 FE 07 
9429 


942B 

942D 

942F 

9431 

9433 

9433 

9437 

9438 

9439 

9439 
943C 
9430 
943E 

9440 
9440 
9440 
9440 
9440 

9440 

9441 

9442 

9442 

9443 
9446 

9449 
944A 
944B 
944E 
944F 

9450 
9453 


FE 05 
28 0D 
FE 01 
28 06 
FE 0A 
28 02 
AF 


E5 

3A 90 94 
CD 80 94 
D1 
7A 

CD 6E 94 

57 

7B 

CD 6E 94 
5F 


Check posibility of move left & right 
if result = NZ then can’t 

L&R?: 

XOR 

(DOOR),A 

GTPC 
7 

Z,L&R?2 
5 

Z,L&R?2 
1 

Z,L4R?1 
10 

4,L&R?1 


XOR 

LD 

CALL 

CP 

JR 


L4R?1: 
L4R?2: 


XOR 

RET 

LD 

INC 

RET 


h* T 
r 72 

Set Z flag 


(DOOR),A 


SUB2: ORG 

; Get peice on (L,H) 
GTPC: 

PUSH DE 
PUSH HL 


reset Z flag 
SUB2/16+U16 


CALL 

POP 


73 

74 


A, (SCNO) 

DTOP 

DE 

A,D 

DIV3 

D, A 
A,E 
DIV3 

E. A 


(L.H) 

(E,D) 


9454 

ED 

53 

93 94 

77 

LD 

(PCXY),DE 

9458 




78 

; 


9458 

E5 



79 

PUSH 

HL 

9459 

7A 



80 

LD 

A,D 

945A 

87 



81 

ADD 

A,A ; *2 

945B 

82 



82 

ADD 

A,D ; »3 

945C 

87 



83 

ADD 

A,A ; »6 

945D 

87 



84 

ADD 

A,A : *12 

945E 

6F 



85 

LD 

L,A 

945F 

26 

00 


86 

LD 

H,0 ; HL = D*12 

9461 

16 

00 


87 

LD 

D,0 ; DE = E 

9463 

19 



88 

ADD 

HL,DE 

9464 

EB 



89 

EX 

DE,HL ; DE = D»12 + E 

9465 

El 



90 

POP 

HL 

9466 

19 



91 

ADD 

HL,DE 

9467 

22 

95 

94 

92 

LD 

1PCADR),HL 

946A 

7E 



93 

LD 

A,(HL) 

946B 




94 

; 


946B 

El 



95 

POP 

HL 

946C 

D1 



96 

POP 

DE 

946D 

C9 



97 

RET 


946E 




98 ; 



946E 

C5 



99 DIV3: 

PUSH 

BC ; 3 f* ’7v9 nj»i9 

946F 

06 

00 


100 

LD 

B,0 

9471 

D6 

03 


101 DIV31: 

SUB 

3 

9473 

38 

03 


102 

JR 

C,DIV32 

9475 

04 



103 

INC 

B 

9476 

18 

F9 


104 

JR 

DIV31 

9478 

C6 

03 


105 DIV32: 

ADD 

A,3 

947A 

32 

92 

94 

106 

LD 

(AMARI),A 

947D 

78 



107 

LD 

A,B 

947E 

Cl 



108 

POP 

BC 

947F 

C9 



109 

RET 


9480 




110 



9480 




111 ; DATA 

TOP ADDRESS 

9480 




112 ; 



9480 




113 DTOP: 



9480 

47 



114 

LD 

B,A 

9481 

21 

00 

00 

115 

LD 

HL,0 

9484 

11 

60 

00 

116 

LD 

DE,96 ; No. of pieces 

9487 

19 



117 DTOPl: 

ADD 

HL.DE 

9488 

10 

FD 


118 

DJNZ 

DTOPl 

948A 

11 

A0 

9F 

119 

LD 

DE,MAPDATA-96 

948D 

19 



120 

ADD 

HL,DE ; HL = (A-l)»48 

948E 

C9 



121 

RET 


948F 




122 



9490 




123 SUB3: 

ORG 

SUB3/16+1*16 

9490 




124 



9490 

00 



125 SCNO: 

DEFB 

0 ; Scene Number 

9491 

00 



126 DOOR: 

DEFB 

0 

9492 

00 



127 AMARI: 

DEFB 

0 

9493 

00 

00 


128 PCXY: 

DEFW 

0 

9495 

00 

00 


129 PCADR: 

DEFW 

0 


• t'VT’UX h 


9400 

E5 

2D 

CD 

20 

94 

20 

05 

24 

:DC 

9460 

00 

16 

00 

19 

EB 

El 

19 

22 

:36 

9408 

24 

CD 

20 

94 

El 

C9 

A5 

11 

:05 

9468 

95 

94 

7E 

El 

D1 

C9 

C5 

06 

:ED 

9410 

E5 

2C 

2C 

2C 

CD 

20 

94 

20 

:0A 

9470 

00 

D6 

03 

38 

03 

04 

18 

F9 

:29 

9418 

05 

24 

24 

CD 

20 

94 

El 

C9 

:78 

9478 

C6 

03 

32 

92 

94 

78 

Cl 

C9 

:23 

9420 

AF 

32 

91 

94 

CD 

40 

94 

FE 

:A5 











9428 

07 

28 

11 

FE 

05 

28 

0D 

FE 

:76 

SUM: 

E9 

IF 

A3 

7D 

3F 

IE 

B0 

C9 

:FE 

9430 

01 

28 

06 

FE 

0A 

28 

02 

AF' 

:10 











9438 

C9 

32 

91 

94 

3C 

C9 

11 

61 

:97 

9480 

47 

21 

00 

00 

11 

60 

00 

19 

:F2 

9440 

D5 

E5 

E5 

3A 

90 

94 

CD 

80 

:4A 

9488 

10 

FD 

11 

A0 

9F 

19 

C9 

95 

:D4 

9448 

94 

D1 

7A 

CD 

6E 

94 

57 

7B 

:80 

9490 

00 

00 

00 

00 

00 

00 

00 


:00 

9450 

CD 

6E 

94 

5F 

ED 

53 

93 

94 

:95 











9458 

E5 

7A 

87 

8» 

87 

87 

6F 

26 

:0R 

SUM: 

57 

IE 

11 

A0 

B0 

79 

C9 

AE 

:C6 
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n 


lb, KEVIN, ERAV, ERAH, WRITE 
®4o4’Oto(;i t*-C(?ij4 tL^to 
16lf*-©KEVINii fi 0 UiBfl ^ J: t L/J©-C'fflJ£ 
Lti-'i! ito 24, 30ff-rCt:-t h L-n'Stfli, fi®2o© 
^w-7°©[i#PB^itt to '■y t°- h *?*>*> s i ft: Wt 

SB^PbIj fy t“- t l>®l#PBlj©J:tli,*l«30 : 

1 ti.'? c trto S c 11: J: y, 

o f KEVIN sc ito 1 : 1 lltS t pj^ii^PsDPa 

r.t£< 0 , M&< {)^f< lo: 1 < lii- 

Lt-i-a-Ao ^'h^'hh^^r.'^h^XXi^LXh.X 

< /C'jl'o 

ERAV, ERAHtfeC, 5tII t li it'< ^t ^^ 
i -itAo 

89ft*'li ©WRITE lift-Ci'i to Bl©1ti:« 

***S t ^ %-LA'5i--A4>, ?©(j*'© t I. ciiP^ 

i 7 i:^(o'Ci.'S©-rto 90~99ft**« 
©^iMf, «*5^)nii'92ftt'-t'7 h Lt't-A0t''-^*fft?J!)i: 

<504 


9, «-rVj: It ftii' lOO ftffiftc i:t"- ^5? -t ■> P LIL T t - 
L i to 


I 


tT—A( 7)BPII, ci:L^•5ct;D)K^;a 


n 


t0ii, t7V-f^>tc'(t?6^L J; 7 t©'5tc©-r't*^ ■en 
0^.^)A^ 5tC't,g.i.'i£Lffi¥^C^ ^ 'y/^-^yk\¥-oXisi 

i LtCo cftliJ|5H^-r5l^ts^ ^ 

m, Kr^HBltStiaffi, iJaarj: fMfi)tj:5(iia^t 

-i-i:i5C')|i^l.'t’«)©-rto fc'*'tff®&l!*^7 U 

I'fc ©i:tj;-o-T L 11.'i L tCo L*'L, #fj©f-i t- t 
fli^to ^«cn'C“t-A4’»)*'L-CS^-C, ^(:r'V<'';'^'"L 
tc t©l.'iVAt'l.'t•9000HiaP%©^^7'/^ —Soft 
iraolti LtCo I) A-r tfoo 

^ >■/^-t>©^:'’-Xt"-t ^-c C-T'^gPS 

F?BL-C, $i'!r'©jl)®4’lf lifts©!) i'^ii:©-r', l)Ttci:i®tJ' 

itf'FyiLtCo M, if&t, «, Pis, 15a!®©t°-xL*'* 

9 i tA*', t-A*sf©J: 7 (:|||< ©*-ft{t**s!)-C !> C. i I to 

tj:*>tj:*-nlSi.'A-r'tI, cft*'o 

J Trn ^^'7 A-r't**, 4 o©g|i^i:>9-*'ftT u i to 


0000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 
9000 I 

9003 

9004 

9005 
9007 
9007 
9007 
90OA 
900C 
900F 

9010 

9011 
9013 
9013 
9015 
9017 
901A 
901B 
901C 
901C 
901E 
901F 

9021 

9022 

9022 

9023 
9030 
9030 
9030 
9030 
9030 
9030 
9030 
9030 
9033 

9035 

9036 

9039 
903C 
903C 
903D 

9040 

9041 

9042 

9043 

9043 

9044 

9046 

9047 
9050 
9050 
9050 
9050 
9050 
9050 
9050 
9050 
9053 
9056 


C0 

18 F9 


21 22 90 
0E 01 
CD DO IF 
BE 
77 

28 02 

0E IE 
06 IE 
CD D0 IF 
BE 
C0 

10 F9 
0D 

20 F4 
C9 


CD 60 93 
06 03 
lA 

CD IE 20 
CD F4 IF 

E5 


CD 50 93 
CD IE 20 
06 03 


ORG 

IGETKY: EQU 
*MSX: EQU 
♦PRINT: EQU 
*CSRSET:EQU 
#WIDCH: EQU 


MAP: 
GVRAD: 
CHRCK: 


EQU 

EQU 

EQU 


CALL 

OR 

RET 


9O00K 

1FD0H 

1FE5H 

1FF4H 

201EH 

2030H 

9100H 

9350H 

9370H 


00H 9 


KEYINSUB: 

LD 


26 

27 

28 


KYSUBl: 
KYSUB2: 


34 

35 

36 

37 

38 


KYBAK: 
SUBl: 


CALL 

CP 

RET 

DJNZ 

DEC 

JR 

RET 

DEFB 

ORG 


HL,KYBAK 
C, 1 

♦GETKY 

(HL) 

(HL),A 
Z,KYSUBl 

C,30 

B,30 

IGETKY 

(HL) 

NZ 

KYSUB2 

C 

NZ,KYSUBl 


0 ; ♦- 
SUB1/16+1*16 


VI/ 4- 1 ttl-’ 

CP with last key 

CP (HL) / flag U- aOaO 

VI/ 4- ► 14 

200 for XI 


; Erase V-part 
; H=y L=x to start erasing 
ERAV: 


54 

55 

56 

57 


CALL 

LD 

LD 

CALL 

CALL 

PUSH 

LD 

ADD 

EX 

POP 

INC 

DJNZ 

RET 


GVRAD 

B,3 

A,(DE) 

ICSRSET 

♦PRINT 

HL 

HL,40 

HL.DE 

DE,HL 

HL 


DE 9 14* bO •y9's 


ERAVl 


; CSR 9 1 4* .O 


SUB2: ORG SUB2/16-t-l»16 

; Erase H-part 
; H=y L=x to start erasing 
ERAH: 


CALL 

CALL 

LD 


GVRAD 

♦CSRSET 

B,3 


9058 lA 

9059 CD F4 IF 
905C 13 

905D 10 F9 
905F C9 


9070 
9070 
9070 
9070 
9070 
9070 
9070 
9070 
9070 2A 
9073 CD 
9076 21 
9079 3E 
907B CD 
907E 28 


BE 90 
50 93 
AD 90 
3D 

70 93 
0A 


9080 13 

9081 13 

9082 CD 
9085 28 
9087 21 
908A E5 
908B 2A 
908E CD 

9091 El 

9092 06 
9094 

9094 7E 

9095 23 

9096 CD 
9099 10 
909B C9 
909C 
909C 20 
909F ID 
90A3 28 
90A6 ID 
90AA 2E 
90AD 
90AD 28 
90B0 ID 
90B4 20 
90B7 ID 
90BB 2E 
90BE 
90BE 00 
90BF 0A 


70 93 
03 

9C 90 


BE 90 
IE 20 


F4 IF 
F9 


4F 20 
ID ID IF 
48 29 
ID ID IF 
4D 2E 

4F 29 
ID ID IF 
48 20 
ID ID IF 
4D 2E 


ERAHl: LD 

CALL 

INC 

DJNZ 

RET 

SUB3: ORG 

WRITE 
ON 

(LOC) 


A,(DE) 

♦PRINT 

DE 

ERAHl 


SUB3/164l*16 


0 (O) 

(H) OR H 
.M. .M. 

7t/ Oi v/y 


92 

93 

94 


LD 

LD 

CALL 

JR 

INC 

INC 

CALL 

JR 


99 
100 

101 WRITE0: PUSH 

102 

103 

104 

105 

106 
107 


LD 


CALL 

POP 

LD 


HL,(LOC) 

GVRAD 
HL.MANDTl 
A, ’ = ’ 

CHRCK 

Z,WRITE0 

DE 

DE 

CHRCK 

Z.WRITEO 

HL,MANDT ; Man’s Data 
HL 

HL,(LOC) 

♦CSRSET 

HL 


109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 I 

120 
121 
122 

123 

124 

125 : 

126 


WRITEl: LD 
INC 
CALL 
DJNZ 
RET 


B, 17 

A,(HL) 
HL 

♦PRINT 

WRITEl 


Data Length 


MANDT: 


DEFB 

DEFB 

DEFB 

DEFB 

DEFB 


DEFB 

DEFB 


DEFB 

DEFB 


IDH:IDH:ID 
’(’:’H’:') 
IDH:IDH:ID 
’.’;'M':’. 


’(’:’O’;’)' 

IDH:IDH:IDH:IFH 
’ ’; ’H’: 

IDH:IDH:IDH:IFH 
’.’:’M’: 


:1FH ; O 
: (H) 
:1FH ; .M. 


00H 

0AH 


; X-Position 
; Y-Position 




9000 

CD 

07 

90 

B7 

C0 

18 

F9 

21 

:0D 

9078 

90 

3E 

3D 

CD 

70 

93 

28 

0A 

:0D 

9008 

22 

90 

0E 

01 

CD 

D0 

IF 

BE 

:3B 











9010 

77 

28 

02 

0E 

IE 

06 

IE 

CD 

:BE 

SUM: 

BF 

0B 

B2 

4F 

FB 

19 

41 

4C 

:6C 

9018 

D0 

IF 

BE 

C0 

10 

F9 

0D 

20 

:A3 











9020 

F4 

C9 

00 

El 

AF 

77 

23 

0B 

:F2 

9080 

13 

13 

CD 

70 

93 

28 

03 

21 

:42 

9028 

78 

B1 

20 

F8 

77 

3E 

01 

32 

:29 

9088 

9C 

90 

E5 

2A 

BE 

90 

CD 

IE 

:74 

9030 

CD 

50 

93 

06 

03 

lA 

CD 

IE 

:BE 

9090 

20 

El 

06 

11 

7E 

23 

CD 

F4 

:7A 

9038 

20 

CD 

F4 

IF 

E5 

21 

28 

00 

:2E 

9098 

IF 

10 

F9 

C9 

20 

4F 

20 

ID 

:9D 

9040 

19 

EB 

El 

24 

10 

EF 

C9 

77 

:48 

90A0 

ID 

ID 

IF 

28 

48 

29 

ID 

ID 

:2C 

9048 

13 

23 

10 

FA 

C9 

2A 

21 

36 

:8A 

90A8 

ID 

IF 

2E 

4D 

2E 

28 

4F 

29 

:85 

9050 

CD 

50 

93 

CD 

IE 

20 

06 

03 

:C4 

90B0 

ID 

ID 

ID 

IF 

20 

48 

20 

ID 

: IB 

9058 

lA 

CD 

F4 

IF 

13 

10 

F9 

C9 

:DF 

90B8 

ID 

ID 

IF 

2E 

4D 

2E 

00 

0A 

:0C 

9060 

2D 

A6 

2A 

28 

36 

19 

22 

28 

:BE 











9068 

36 

C9 

3E 

FF 

32 

BA 

91 

CD 

:86 

SUM: 

62 

0A 

3A 

36 

D2 

FI 

49 

BD 

:A5 

9070 

2A 

BE 

90 

CD 

50 

93 

21 

AD 

:F6 
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<505 y{-LA(D:Kmm^^m 


0000 




1 

; t-4 




80A8 

3E 48 



126 



LD 


A, 'H’ 

0000 




2 





80AA 

CD 70 93 



127 



CALL 

CHRCK 

0000 




3 

; 9' -f 

1 7 



80AD 

C0 




128 



RET 


NZ 

0000 




4 





80AE 

13 




129 



INC 


DE 

8000 




5 


ORG 

80OOH 


80AF 

13 




130 



INC 


DE 

8000 




6 





80B0 

C3 70 93 



131 



JP 


CHRCK 

8000 




7 

♦PRTHX: 

EQU 

IFCIH 


80B3 





132 






8000 




8 

#MSX: 

EQU 

1FE5H 


80B3 





133 

UP: 





8000 




9 

#PRINT: 

EQU 

1FF4H 


80B3 

2A BE 90 


134 



LD 


HL,(LOC) 

8000 




10 

#CSRSET 

:Equ 

201EH 


80B6 

24 




135 



INC 


H 

8000 




11 

#WIDCH: 

EQU 

2030H 


80B7 

24 




136 



INC 


H 

8000 




12 

; 




80B8 

CD A5 80 



137 



CALL 

ONHSG? 

8000 




13 

KEVIN: 

EQU 

9OO0H 


80BB 

C2 3B 80 


138 



JP 


NZ,MAINl 

8000 




14 

ERAV: 

EQU 

9030H 


80BE 

2A BE 90 


139 



LD 


HL,(LOC) 

8000 




15 

ERAH: 

EQU 

9O50H 


80C1 

24 




140 



INC 


H 

8000 




16 

WRITE: 

EQU 

9070H 


80C2 

24 




141 



INC 


H 

8000 




17 

STORD: 

EQU 

9100H 


80C3 

CD 50 90 


142 



CALL 

ERAH 

8000 




18 

MAP: 

EQU 

9120H 


80C6 

21 BF 90 


143 



LD 


HL,LOC+l 

8000 




19 

FALL?: 

EQU 

9300H 


80C9 

35 




144 



DEC 


(HL) 

8000 




20 

GVRAD: 

EQU 

9350H 


80CA 

C3 25 80 


145 



JP 


MAIN 

8000 




21 

CHRCK: 

EQU 

9370H 


80CD 





146 






8000 




22 

LEFT?: 

EQU 

9400H 


80CD 





147 

LEFT: 




8000 




23 

RIGHT?: 

EQU 

9410H 


80CD 

2A E 

IE 90 



148 



LD 


HL,(LOC) 

8000 




24 

GTPC: 

EQU 

9440H 


80D0 

CD C 

10 94 


149 



CALL 

LEFT? 

8000 




25 

; 




80D3 

C2 3B 80 


150 



JP 


NZ,MAINl 

8000 




26 

LOC: 

EQU 

90BEH 


80D6 





151 



; 



8000 




27 

SCNO: 

EQU 

9490H 


80D6 

E5 




152 



PUSH 

HL 

8000 




28 

DOOR: 

EQU 

9491H 


80D7 

2C 




153 



INC 


L 

8000 




29 

AMARI: 

EQU 

9492H 


80D8 

2C 




154 



INC 


L 

8000 




30 

PCXY: 

EQU 

9493H 


80D9 

CD 30 90 


155 



CALL 

ERAV 

8000 




31 

PCADR: 

EQU 

9495H 


80DC 

El 




156 



POP 


HL 

8000 




32 





80DD 

2D 




157 



DEC 


L 

8000 

18 

02 


33 


JR 

SHOKI 


80DE 

22 E 

)E 90 


158 



LD 


(LOC),HL 

8002 




34 

; 




80E1 

C3 25 80 

1 


159 



JP 


MAIN 

8002 

01 



35 

TATE: 

DEFB 

1 : 

Scene J 

80E4 





160 






8003 

01 



36 

YOKO: 

DEFB 

1 : 


80E4 





161 

RIGHT: 




8004 




37 





80E4 

2A E 

)E 90 


162 



LD 


HL,(LOC) 

8004 




38 





80E7 

CD 10 94 


163 



CALL 

RIGHT? 

8004 




39 

SHOKI: 




80EA 

C2 3B 80 

1 


164 



JP 


NZ,MAINl 

8004 

ED 

4B 

02 80 

40 


LD 

BC,(TATE) 

; C=(TATE),B=(YOKO) 

80ED 





165 



; 



8008 

AF 



41 


XOR 

A 


80ED 

E5 




166 



PUSH 

HL 

8009 

81 



42 

SHOKIl: 

ADD 

A,C 


80EE 

CD 30 90 


167 



CALL 

ERAV 

80OA 

10 

FD 


43 


DJNZ 

SHOKIl ; 

A = (TATE)»(YOKO) 

80F1 

El 




168 



POP 


HL 

80OC 




44 


; 



80F2 

2C 




169 



INC 


L 

80OC 

21 

F9 

80 

45 


LD 

HL,DATA 


80F3 

22 BF 90 

1 


170 



LD 


(LOC),HL 

80OF 

CD 

00 

91 

46 


CALL 

STORD 


80F6 

C3 25 80 


171 



JP 


MAIN 

8012 

3E 

28 


47 


LD 

A,40 


80F9 





172 






8014 

CD 

30 

20 

48 


CALL 

«WIDCH 


80F9 





173 

DATA: 




8017 

3E 

01 


49 


LD 

A, 1 


80F9 

70 0 

10 33 

1 00 


174 



DEFB 

70H:00H: 

8019 

32 

90 

94 

50 


LD 

(SCNO),A 


80FU 

00 0 

17 









801C 

CD 

20 

91 

51 


CALL 

MAP 


80FF 

75 52 05 

1 55 


175 



DEFB 

75H;52H: 

801F 




52 


; 



6103 

52 07 









801F 

21 

03 

12 

53 


LD 

HL,1203H 

; (3,18) 

8105 

70 0 

10 20 

1 00 


176 



DEFB 

70H:00H: 

8022 

22 

BE 

90 

54 


LD 

(LOC),HL 


8109 

02 07 









8025 




55 





810B 

70 33 32 

: 30 


177 



DEFB 

70H:33H: 

8025 




56 

MAIN: 




810F 

00 07 









8025 

2A 

BE 

90 

57 


LD 

HL,(LOC) 


8111 

72 0 

10 00 

1 03 


178 



DEFB 

72H:00H: 

8028 

E5 



58 


PUSH 

HL 


8115 

33 27 









8029 

CD 

70 

90 

59 


CALL 

WRITE 


8117 

72 0 

10 00 

1 00 


179 



DEFB 

72H:00H: 

802C 

El 



60 


POP 

HL 


811B 

25 57 









802D 

CD 

00 

93 

61 


CALL 

FALL? 


811D 

70 20 00 

1 00 


180 



DEFB 

70H:20H: 

8030 

20 

09 


62 


JR 

NZ,MAINl 


8121 

20 07 









8032 

CD 

50 

90 

63 


CALL 

ERAH 


8123 

55 55 55 

55 


181 



DEFB 

55H:55H: 

8035 

21 

BF 

90 

64 


LD 

HL,LOC+l 

; Y-Po8 

8127 

55 55 









8038 

34 



65 


INC 

(HL) 

; A 









8039 

18 

EA 


66 


JR 

MAIN 













803B 




67 


; 














803B 

CD 

00 

90 

68 

MAINl: 

CALL 

KEVIN 













803E 

FE 

IB 


69 


CP 

IBH 

; Give up ? 












8040 

C8 



70 


RET 

Z 







8041 

FE 

49 


71 


CP 

’ I ’ 

; Oi 11 ? 












8043 

28 

6E 


72 


JR 

Z,UP 













8045 

FE 

4A 


73 


CP 

’ J’ 

; t9‘’) n ? 

8000 

18 

02 

01 

01 

ED 

4B 

02 

80 

D6 


8047 

CA 

CD 

80 

74 


JP 

Z.LEFT 


8008 

AF 

81 

10 

FD 

21 

F9 

80 

CD 

A4 


804A 

FE 

4C 


75 


CP 

’L’ 

; t ? 

8010 

00 

91 

3E 

28 

CD 

30 

20 

3E 

52 


804C 

CA 

E4 

80 

76 


JP 

Z,RIGHT 


8018 

01 

32 

90 

94 

CD 

20 

91 

21 

F6 


804F 

8051 

FE 

28 

4B 

04 


77 

78 


CP 

JR 

'K' 

Z,DOWN 

; « ? 

8020 

03 

12 

22 

BE 

90 

2A 

BE 

90 

FD 


8053 

FE 

2C 


79 


CP 

; *y9 t ? 

8028 

E5 

CD 

70 

90 

El 

CD 

00 

93 

F3 


8055 

20 

E4 


80 


JR 

NZ,MAINl 


8030 

20 

09 

CD 

50 

90 

21 

BF 

90 

46 


8057 




81 





8038 

34 

18 

EA 

CD 

00 

90 

FE 

IB 

AC 


8057 




82 

DOWN: 




8040 

C8 

FE 

49 

28 

6E 

FE 

4A 

CA 

B7 


8057 

2A 

BE 

90 

83 


LD 

HL,(LOC) 


8048 

CD 

80 

FE 

4C 

CA 

E4 

80 

FE 

C3 


805A 

805B 

805C 

24 

24 

CD 

A5 

80 

84 

85 

86 


INC 

INC 

CALL 

H 

H : 

ONHSG? 

TyJ -ft 

8050 

8058 

4B 

BE 

28 

90 

04 

24 

FE 

24 

2C 

CD 

20 

A5 

E4 

80 

2A 

20 

CF 

A8 


805F 

20 

10 


87 


JR 

NZ,DOWNl 


8060 

10 

24 

CD 

40 

94 

FE 

02 

28 

FD 


8061 




88 


; 



8068 

2F 

B7 

28 

2C 

CD 

50 

93 

18 

02 


8061 

24 



89 


INC 

H ; 


8070 

14 

24 

CD 

50 

93 

3E 

48 

CD 

3B 


8062 

CD 

40 

94 

90 


CALL 

GTPC 


8078 

70 

93 

20 

09 

13 

13 

CD 

70 

8F 


8065 

FE 

02 


91 


CP 

2 : 












8067 

8069 

28 

B7 

2F 


92 

93 


JR 

OR 

Z,DOWN4 

A : 

SPC 

SUM: 

65 

0E 

79 

80 

El 

82 

86 

09 : 

:5E 


806A 

28 

2C 


94 


JR 

Z,DOWN4 













806C 

CD 

50 

93 

95 


CALL 

GVRAD 


8080 

93 

20 

B8 

18 

13 

06 

03 

3E 

DD 


806F 

18 

14 


96 


JR 

DOWN2 


8088 

20 

CD 

70 

93 

28 

07 

3E 

3D 

9A 


8071 




97 





8090 

CD 

70 

93 

20 

A6 

13 

10 

EF 

A8 


8071 

24 

50 

48 

93 

98 

DOWN 1: 

INC 

H ; 

(L,H+3) 

8098 

2A 

BE 

90 

CD 

50 

90 

21 

BF 

05 


8072 

8075 

CD 

3E 

99 

100 


CALL 

LD 

GVRAD 

A, ’H’ 


80A0 

90 

34 

C3 

25 

80 

CD 

50 

93 

DC 


8077 

CD 

70 

93 

101 


CALL 

CHRCK 


80A8 

3E 

48 

CD 

70 

93 

C0 

13 

13 

3C 


807A 

20 

09 


102 


JR 

NZ,DOWN2 


80B0 

C3 

70 

93 

2A 

BE 

90 

24 

24 

86 


807C 

13 



103 


INC 

DE 


80B8 

CD 

A5 

80 

C2 

3B 

80 

2A 

BE 

57 


807D 

13 



104 


INC 

DE 


80C0 

90 

24 

24 

CD 

50 

90 

21 

BF 

65 


807E 

CD 

70 

93 

105 


CALL 

CHRCK 


80C8 

90 

35 

C3 

25 

80 

2A 

BE 

90 

A5 


8081 

8083 

20 

18 

B8 

13 


106 

107 


JR 

JR 

NZ,MAINl 
DOWN4 


80D0 

CD 

00 

94 

C2 

3B 

80 

E5 

2C 

EF 


8085 


108 



80D8 

2C 

CD 

30 

90 

El 

2D 

22 

BE 

A7 


8085 

06 

03 


109 

DOWN2: 

LD 

B,3 


80E0 

90 

C3 

25 

80 

2A 

BE 

90 

CD 

3D 


8087 

3E 

20 


110 

DOWN21: 

LD 

A, ’ ’ 


80E8 

10 

94 

C2 

3B 

80 

E5 

CD 

30 

03 


8089 

CD 

70 

93 

111 


CALL 

CHRCK 


80F0 

90 

El 

2C 

22 

BE 

90 

C3 

25 

F5 


808C 

28 

07 


112 


JR 

Z,DOWN3 


80F8 

80 

70 

00 

33 

00 

00 

07 

75 

9F 


808E 

3E 

3D 


113 


LD 

A, ’ = ' 









8090 

CD 

70 

93 

114 


CALL 

CHRCK 


SUM: 

D1 

7A 


6D 

91 

E7 

30 

81 : 

;8D 


8093 

20 

A6 

115 


JR 

NZ,MAINl 


AC 


8095 

13 



116 

DOWN3: 

INC 

DE 













8096 

10 

EF 


117 


DJNZ 

DOWN21 ; 

D" SPC •y9'\ 

8100 

52 

05 

55 

52 

07 

70 

00 

20 : 

:95 


8098 




118 


; 



8108 

00 

02 

07 

70 

33 

32 

30 

00 : 

:0E 


8098 

2A 

BE 

90 

119 

DOWN4: 

LD 

HL,(LOC) 


8110 

07 

72 

00 

00 

03 

33 

27 

72 ; 

;48 


809B 

CD 

50 

90 

120 


CALL 

ERAH 


8118 

00 

00 

00 

25 

57 

70 

20 

00 : 

:0C 


809E 

80A1 

21 

34 

BF 

90 

121 

122 


LD 

INC 

HL,LOC+1 
(HL) 


8120 

00 

20 

07 

55 

55 

55 

55 

55 ; 

:D0 


80A2 

C3 

25 

80 

123 


JP 

MAIN 


8128 

55 








; 55 






















80A5 

CD 

50 

93 

125 

ONHSG?: 

CALL 

GVRAD ; 

ON HASHIGO 

SUM: 

AE 

99 

63 

3C 

E9 

9A 

CC 

E7 : 

: 1C 



; (L,H>2) 

; DEC Y-position 


: (Lf2,H) 


; (L.H) 


33H:00H:00H:07H ; Scene 1 

05H:55H:52H:07H 

20H:00H:02H:07H 

32H:30H:00H:07H 

00H:03H:33H:27H 

00H:00H:25H:57H 

00H:00H:20H:07H 

55H:55H:55H:55H 
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C><i:OliS-OS“SWORD” 
CD^-^’(C S ^ ^'2^'X > h □ V > K 
iU5t®, toU-iottZAID^efiJi-rs 
tODr'-To !f$(C0U#®l5-5tt^/£^/f7’-1'x 


S-oscssvyi^sawK* 


Kawashima Tomoharu 

§/n 


S-OS “SWORD” (D^-^ 7. 

|A] cD: 7° n 7 A t 5 -tz * C94£3i a •? 

vK^Rji, kixkmmifzY7'y':^s.> 
h 37> KTYPEj, rcOPYj^iiJnL-C 
h-i L1Zo Ut'U > Ktr'i" *• 

i;>, •g'$/i|i)fflL-cA'c < 

• R(t';u h -f vaw K) 

fiiij|£(DS-OS “SWORD” r'ii, t'VM x 

|A]07°n ^-'7 A ^^rrt 6 t ^ 
#Lfilenaine 
#J3000 

oj: 5 i; 2 m^-'i V L4-ttn;f^): 0 i-a- 
4**, S-OS 0 77°'; •5r — i> g >{, 
A.^<4t)iL4L, ^||i:7°n7"7^4 
H L *0^ i TMrt s f 
i:Ti.'SAj)^i.'0-r'«4t.''r'L j: 7*‘„ 

^ cr. 

# Rfilename 

K L 4 * t, -fe -7"I1#L tz%'ii 7 K 
^x 7—y) ^ i> =‘y 

> F' '■Rj ^S-OSO^-^nriejpLTA 
i L 4„ 

D 0 S ^ i7'^—;K : ^7 7 4 * 7 T i£ 5fi L 
Ti.'ito 215lH#itfe*'li 0 3 h4 
2151H C3 CD 28 

C'^ML, CD28H#lill*-ii'; X |'1-A0 j; 
9 (:-tTlbliA-r’< //Si-'o 
acia L tz S-OS 4F0RMAT&SYSGEN 
t'S^xr w—h L 4i='-ti'li',S-0S 

G R = -X 7 § S J; 7 c 

4 I) i 7„ 

• TYPE( h h aw K) 

CP/M0rTYPEji:-fimt 2. 7 °d 7"7 ^ 


f', S-OS 07XA-—77 ^''''0I*1$4@I 
0/7°'; L it, S-OS0^- 

yi]-c>77^-y7 -i 

I't i'4t'i:ffi^i)-C'Li 7, 

3000H#Hii*'G '; X M-B0ti=’'l 
jiA4%, S-OS0^-i5?*-G 

# STYPE : 3000 : 30B0 : 3000 

t L'C-t-7°L-C < 4'$ I', mmUWi; 

R 3 -7 > F*''i£3g L T * nii", 

#RTYPE 

tL'C, CP/M0 h 7 7 7 h 3-7 > K 

0J: 7 (:ffi7 ^ it, C0t^li 

r"-( x7t:''TYPEj07°n7"7^7r ^ 
**■£'^40^1.' 7 it'{) 4i.'C tt'tti, 
R 3-77 F4f+lt-C<.'4i.'i^-^li, 
#LTYPE 
#J3000 

t L i t, i 4, -lt'AtT4»T L 4* t 
fl-^ttt 3000 h~ 0Fl^*5«S^ 

$ t.Ti.'4ttnii' 

#33000 

t tnii'OKrt, 

rTYPEji'ir+jtA'i. t, t-7°-7;'" 

7* y — 

PRINTER ON(Y/N) < 

INPUT TYPE FILE < 
tliEi:ri{]i.'tl< it0-r', ll®4'U-C'4 < 

7°'; 7;? t: fctfjjt ^Yj 4A;3 

Lt, #,'iBL4i.'7xA- —77 ^/^07r 
^^>-«4A*Lit, .T.*4-ll#I?jl;tS 
Uiix^—XA-—, S-OS 0^— 
(:liSHIFT + BREAK4WL i t, 

4i>', C07°n7"7 A't'liTxA- —77 
^ yu 44 A 4D00 h — Ct ^"C1 %AjAA 


-rt- G ai* L -C i' i t, ZEDA^E-MATE 
0tA-X h {)4D00H~t:t&ifl?ni t*‘G, 
t—73—ti. C t Ii4i.'lit'r't, 
i4, w 07°n 4,03O8 Eh*‘ ii0 2 

^07 Fi^xiiMAii 

Ui 7 i:tS C t {> "Itgrt, 

• COPY( h 77 '>i 7 h av7 K) 

S-OS “SWORD” 0^-^-i:'ii, t7V 
j:. 7 h 77 ^ 

i t*‘, 7X4—77^^^0$iiIliZEDA^ 
E-MATE4ei;jti.4 F L 4 (tnii'lsmt 
S c i-tl-A, r"4X7|*| 

07 7 i -'i"4t7'7'i7 h / 7x4—01.' 
til ft) SSu: 3 t°—t 4 4*07°n 7"7 
A rcOPYj 4'f'F') i L4, 

3000H#ltli!!)‘G '; X M-C0i 7 i:a;jl 

4G, s-os0^-;f*'G 

#SCOPY:3000:319E:3000 
t Li:-t-7'L i t, iegj:^i£li''TYPEj 
tio4<rHii:-!r't, 

^S®)t S t t -7°- 7 7 -t - 

m. 

SOURCE FILE NAME < 

DESTI. FILE NAME < 

it0-r', .?-iL4'n3 k°- 
a;/ = t°-it077 a LT < 4' 

S 1.', ie|jj|HS=, 0® li 7 >; 7 L i -H-A0-C', 
3 t.°—x;0t"4 y V ') tf E L t te 

< t il'-rx J; 7, 

77 a ."^^44:117 5 t, 7°n7"7A|A] 
t Bin/Asc0-7 J. 7 7 i'. 

FILE TYPE=ASC 
0J:7t:^M^, 7 7 ^ .'‘"3 k°—i 
t. 


Oh! MZ 1986.10. 


H S‘ 


y 7 ^ X w t 

^ i 1" 31.°—7C / = t°—t ?»i; 

7 ;t h K 7 ^ t TSISgf 

o 4 /J, |5]—7 r ^ A X 7 
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fflt 5 :: 4 to c = t°- 

X0r7</f x:g4>«ii^}t S w t ti-C'^ 4t 

o 

7 r ^ A^CDPf, SHIFT + BREAK 


r 

-L-Ci'4to #-^-4-r'i:^®7 K'l^xii 
310BH,3136H*>ii®^nm2^^M 
l>^x.SCtt:4 I^M^Hgrto 
rTYPEj, rcOPYj t ?) i;*Ii'7°n7"7 


t: 3 t°—t 5 t ^ 14, 

SOURCE FILE NAME< A:filename 
DESTI. FILE NAME < B: 

0 4 5 C, 3 t°-^irT'y<'r 


C 4 0 S-OS0^-7i:MD 4 to ^CL-, 

4 07°n7"7^ fTYPEjtlHlt# (7K^ 
xt4-^-/j: 1 4 t*U,7r^'’^ti.'ot*/A7^ 
!I (4000h~) Ct^TlKAiiAt'A’ii 3 C 


-£-ft*-t), 7 —X^fflELti'< o*‘0 

7 K t^X*' C,07 °o 7''7 7 7 "f 

TfcUI4' ({) 130A77 ^ 

Lt), t,@.t,'4to 


UxH-A R3-7-> K7*>7U X h 


IJ X h t-C COPY^Vt'J X h 


28CD 

FE 

52 

28 

04 

3E 

0D 

37 

C9 : 

C7 

28D5 

CD 

El 

21 
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6E 

IF 

C3 

7B : 

C4 

28DD 
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21 

SUM: 

EC 

33 

49 

2E 

AC 

2C 

FA 

44 : 

AC 

') 7. h 

t-B\ 

JYPE^t'JX 1 
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D6 
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4F 
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20 

20 
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65 
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20 

31 

2E 

EC 

3018 

30 

20 

46 

4F 

52 

20 

53 

57 

01 

3020 

4F 

52 

44 

20 

0D 

00 

CD 

EE 

CD 

3028 

IF 

CD 

E2 

IF 

20 

50 

52 

49 

F8 

3030 

4E 

54 

45 

52 

20 

4F 

4E 

28 

IE 

3038 

59 

2F 

4E 

29 

20 

3C 

20 

00 

7B 

3040 

ED 

5B 

76 

IF 

CD 

D3 

IF 

lA 

B6 

3048 

FE 

IB 

C8 

21 

13 

00 

19 

EB 

19 

3050 

lA 

FE 

59 

F5 

CD 

E2 

IF 

20 

54 

3058 

49 

4E 

50 

55 

54 

20 

54 

59 

5D 

3060 

50 

45 

20 

46 

49 

4C 

45 

20 

F5 

3068 

3C 

20 

00 

ED 

5B 

76 

IF 

CD 

06 

3070 

D3 

IF 

FI 

CC 

D9 

IF 

lA 

FE 

BF 

3078 

IB 

C8 

21 

13 

00 

19 

EB 

3E 

59 

SUM: 

4E 

IF 

DD 

1C 

BF 

58 

74 

F5 : 

:E6 

3080 

04 

CD 

A3 

IF 

CD 

09 

20 

30 : 

:B9 

3088 

04 

CD 

33 

20 

C9 

21 

00 

4D : 

;5B 

3090 

E5 

22 

70 

IF 

CD 

A6 

IF 

01 : 

29 

3098 

01 

00 

2A 

72 

IF 

D1 

lA 

CD : 

;74 

30A0 

F4 

IF 

CD 

C7 

IF 

B0 

30 

13 : 

B9 

30A8 

B7 

ED 

42 

20 

FI 

CD 

EE 

IF : 

:D1 

30B0 

C9 








C9 


3000 

CD 

D6 

IF 

CD 

E2 

IF 

0D 

20 : 

:BD 

3008 

43 

4F 

50 

59 

2E 

4F 

42 

4A 

:44 

3010 

20 

20 

56 

65 

72 

20 

31 

2E : 

:EC 

3018 

30 

20 

46 

4F 

52 

20 

53 

57 

:01 

3020 

4F 

52 

44 

0D 

00 

CD 

EE 

IF : 

:CC 

3028 

CD 

E2 

IF 

20 

53 

4F 

55 

43 

:28 

3030 

45 

20 

46 

49 

4C 

45 

20 

4E ; 

:F3 

3038 

41 

4D 

45 

20 

3C 

20 

00 

ED 

: 3C 

3040 

5B 

76 

IF 

CD 

D3 

IF 

lA 

FE : 

:C7 

3048 

IB 

C8 

21 

13 

00 

19 

EB 

21 

: 3C 

3050 

9D 

31 

CD 

51 

31 

38 

D1 

CD ; 

:F3 

3058 

41 

31 

CD 

E2 

IF 

20 

44 

45 : 

:E9 

3060 

53 

54 

49 

2E 

46 

49 

4C 

45 : 

:3E 

3068 

20 

4E 

41 

4D 

45 

20 

3C 

20 ; 

:BD 

3070 

00 

ED 

5B 

76 

IF 

CD 

D3 

IF ; 

:9C 

3078 

lA 

FE 

IB 

C8 

21 

13 

00 

19 : 

:48 

SUM: 

E3 

33 

D3 

3C 

9D 

08 

AB 

5A : 

:CF 

3080 

EB 

21 

9D 

32 

CD 

51 

31 

38 

62 

3088 

D1 

CD 

41 

31 

11 

9D 

32 

13 

03 

3090 

lA 

FE 

3A 

20 

0E 

13 

lA 

FE 

AB 

3098 

00 

20 

08 

11 

9F 

31 

21 

9F 

C9 

30A0 

32 

CD 

41 

31 

11 

9D 

31 

3E 

8E 

30A8 

01 

32 

96 

31 

CD 

A3 

IF 

CD 

56 

30B0 

09 

20 

30 

0F 

11 

9D 

31 

3E 

85 

30B8 

04 

32 

96 

31 

CD 

A3 

IF 

CD 

59 

30C0 

09 

20 

38 

2E 

3A 

96 

31 

FE 

8E 

30C8 

01 

28 

0A 

FE 

04 

28 

0C 

CD 

36 

30D0 

E2 

IF 

21 

21 

0D 

00 

C9 

11 

2A 

30D8 

6E 

31 

C3 

DE 

30 

11 

82 

31 

34 

30E0 

CD 

E8 

IF 

CD 

EE 

IF 

11 

9D 

5C 


30E8 

31 

3A 

96 

31 

CD 

A3 

IF 

CD ; 

:8E 

30F0 

09 

20 

30 

02 

CD 

33 

20 

C9 ; 

:44 

30F8 

2A 

70 

IF 

22 

9B 

31 

2A 

6E ; 

:3F 

SUM: 

A1 

A7 

E7 

83 

E5 

A7 

40 

AC ; 

:2A 

3100 

IF 

22 

99 

31 

2A 

72 

IF 

22 

E8 

3108 

97 

31 

21 

00 

40 

22 

70 

IF 

DA 

3110 

CD 

A6 

IF 

38 

DF 

11 

9D 

32 

89 

3118 

3A 

96 

31 

CD 

A3 

IF 

2A 

9B 

55 

3120 

31 

22 

70 

IF 

2A 

99 

31 

22 

F8 

3128 

6E 

IF 

2A 

97 

31 

22 

72 

IF 

32 

3130 

CD 

AF 

IF 

38 

BF 

21 

00 

40 

F3 

3138 

22 

70 

IF 

CD 

AC 

IF 

38 

B4 

35 

3140 

C3 

28 

30 

E5 

D5 

lA 

77 

FE 

64 

3148 

00 

28 

03 

23 

13 

C3 

45 

31 

9A 

3150 

D1 

El 

C9 

D5 

E5 

C5 

01 

00 

FB 

3158 

00 

1 A 

03 

13 

FE 

00 

28 

04 

5A 

3160 

FE 

0D 

28 

00 

18 

F3 

21 

14 

73 

3168 

00 

B7 

ED 

42 

Cl 

El 

D1 

C9 

22 

3170 

20 

20 

20 

46 

49 

4C 

45 

20 

A0 

3178 

54 

59 

50 

45 

20 

3D 

20 

42 

01 

SUM: 

51 

77 

66 

AE 

BF 

BE 

6D 

B5 : 

; 7B 

3180 

49 

4E 

20 

0D 

20 

20 

20 

46 : 

; 6A 

3188 

49 

4C 

45 

20 

54 

59 

50 

45 : 

; 3C 

3190 

20 

3D 

20 

41 

53 

43 

20 

0D : 

81 

3198 

00 

00 

00 

00 

00 

00 

00 


00 

SUM: 

B2 

D7 

85 

6E 

C7 

BC 

90 

98 : 

: 27 


sum: 62 C8 7F B7 92 IE 77 7D :04 


U ^ h 2"A •; X h 


eeee 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 


28CD 

28CD 

28CD 

28CD 

28CD 

28CD 

28CD 


R 37>h- 


CREATED BY T.KAWASHIMA 
CREATED FROM '86-05-10 
REWRITE '86-05-10 


3Y>i* yz 

VER. 1.0 


OFFSET 4D00H-28CDH 
ORG 28CDH 


JUMP FROM 2152H (MCOM) 
RET TO 2100H (HOT) 


28CD 

28CD 

28CD 

28CD 

28CD 

28CD FE 52 

28CF 28 04 

28D1 

28D1 

28D1 

28D1 

28D1 

28D1 3E 0D 
28D3 37 
28D4 C9 
28D5 
28D5 

28D5 CD El 21 
28D8 2A 6E IF 
28DB C3 7B 21 


21 LOAD: 

22 EXADR: 

23 : 

24 ; 

25 ; 

26 

27 

28 ; 

29 ; 

30 ; 

31 : 

32 ; 

33 #END: 

34 

35 

36 ; 

37 #RUN: 

38 

39 

40 


EQU 21B1H 

EQU 1F6EH 

ACC = COMMAND 

CP 'R' 

JR Z.4RUN 


COMMAND END 

LD A,13 

SCF 

RET 


; RUN COMMAND 

CALL LOAD 

LD HL,(EXADR) 

JP 217BH ; JUMP COMMAND 


'JXh2-B TYPEV-X'jXh 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


2 

3 

4 

5 


8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


TYPE.Z80 

CREATED BY T.KAWASHIMA 
CREATED FROM '86-05-09 
REWRITE '86-05-09 


VER. 1.0 


PAUSE: EQU 1FC7H 

PRINT: EQU 1FF4H 

LTNL: EQU IFEEH 

GETL: EQU 1FD3H 

MPRNT: EQU 1FE2H 

FILE: EQU 1FA3H 

ROPEN: EQU 2O09H 

ERROR: EQU 2033H 

LPTON: EQU 1FD9H 

LPTOF: EQU 1FD6H 

RDD: EQU 1FA6H 

KBFAD: EQU 1F76H 

SIZE: EQU 1F72H 

DTADR: EQU 1F70H 

EXADR: EQU 1F6EH 

;+ + 4- + 'f-f + + + + + + + + + + + + + + 4-+ + 4- + + + + + + + -f 

; PROGRAM START 


OFFSET 4D00H-3000H 


3000 30 

3000 31 ; 

3000 32 ♦START; 

3000 CD D6 IF 33 

3003 CD E2 IF 34 

3006 0D 35 

3007 20 54 59 50 45 2E 4F 36 

30OE 42 4A 20 20 56 65 72 

3015 20 31 2E 30 20 46 4F 

301C 52 20 53 57 4F 52 44 

3023 20 

3024 0D 00 37 

3026 CD EE IF 38 

*iQ • 

3029 CD E2 IF 40 isTl: 

302C 20 50 52 49 4E 54 45 41 

3033 52 20 4F 4E 28 59 2F 

303A 4E 29 20 3C 20 

303P 00 42 

3040 ED 5B 76 IF 43 

3044 CD D3 IF 44 

3047 lA 45 

3048 FE IB 46 

304A C8 47 

304B 21 13 00 48 

304E 19 49 

304F EB 50 

3050 lA 51 

3051 FE 59 52 


ORG 3O0OH 


CALL LPTOF 
CALL MPRNT 
DEFB 0DH 

DEFM ' TYPE.OBJ Ver 1.0 FOR SWORD ' 


DEFB 0DH:OeH 

CALL LTNL 

CALL MPRNT 

DEFM ' PRINTER ON(Y/N) < ' 


DEFB 00H 

LD DE,(KBFAD) 

CALL GETL 

LD A,(DE) 

CP IBH 

RET Z 

LD HL.19 

ADD HL.DE 

EX HL.DE 

LD A.(DE) 

CP 'Y' 
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3053 

3054 
3054 
3057 
305E 
3065 
306A 
306B 
306F 

3072 

3073 

3076 

3077 
3079 
307A 
307D 
307E 
307F 
307F 
3081 
3084 
3087 
3089 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3000 

3000 

3000 

3000 

3003 

3006 

3007 
300E 
3015 
301C 
3023 
3025 
3028 
3028 
3028 
302B 
3032 
3039 
303B 
303F 
3043 

3046 

3047 
3049 
304A 
304D 
304E 
304F 
3052 
3055 
3057 
3057 
305A 
305A 
305D 
3064 
306B 

3070 

3071 
3075 

3078 

3079 
307B 
307C 
307F 

3080 

3081 
3084 
3087 

3089 
308C 
308F 

3090 

3091 
3093 

3095 

3096 

3097 
3099 
309B 
309B 
309B 
309B 
309E 
30A1 
30A4 


i 


i 


f 


F5 53 

54 *INFL: 

CD E2 IF 55 

20 49 4E 50 55 54 20 56 

34 59 50 45 20 46 49 

4C 45 20 3C 20 
00 57 

ED 5B 76 IF 58 

CD D3 IF 59 

FI 60 

CC D9 IF 61 

lA 62 

FE IB 63 

C8 64 

21 13 00 65 

19 66 

BB 67 

68 ; 

3E 04 69 

CD A3 IF 70 

CD 09 20 71 

30 04 72 

CD 33 20 73 


PUSH AF 

CALL MPRNT 

DEFM ’ INPUT TYPE FILE < 


DEFB 00H 

LD DE,(KBFAD) 

CALL GETL 

POP AF 

CALL Z,LPTON 

LD A,(DE) 

CP IBH 

RET Z 

LD HL,19 

ADD HL.DE 

EX HL.DE 

LD A. 4 

CALL FILE 

CALL ROPEN 

JR NC,#LOAD 

CALL ERROR 


308C C9 

308D 

308D 

308D 21 00 4D 

3090 E5 

3091 22 70 IF 
3094 CD A6 IF 
3097 01 01 00 
309A 2A 72 IF 
309D D1 

309E 
309E 
309E lA 
309F CD F4.IF 
30A2 CD C7 IF 
30A5 BO 30 
30A7 13 
30 a8 B7 
30A9 ED 42 
30AB 20 FI 
30AD CD EE IF 
30BO C9 


74 RET 

75 ; 

76 iLOAD: 

77 LD 

78 PUSH 

79 LD 

80 CALL 

81 LD 

82 LD 

83 POP 

84 : 

85 *LOOP: 

86 LD 

87 CALL 

88 CALL 

89 DEFW 

90 INC 

91 OR 

92 SBC 

93 JR 

94 CALL 

95 #END RET 


HL,4D0OH 

HL 

(DTADR),HL 

RDD 

BC, 1 

HL.(SIZE) 
DE 


A,{DE) 

PRINT 

PAUSE 

#END 

DE 

A 

HL.BC 

NZ.ILOOP 

LTNL 


CD D6 IF 

CD E2 IF 

0D 

20 43 4F 50 59 2E 4F 

42 4A 20 20 56 65 72 

20 31 2B 30 20 46 4F 

52 20 53 57 4F 52 44 

0D 00 
CD EE IF 


CD E2 IF 

20 53 4F 55 43 45 20 
46 49 '4C 45 20 4E 41 
4D 45 20 3C 20 

00 

ED 5B 76 IF 
CD D3 IF 
lA 

FE IB 
C8 

21 13 00 

19 

21 9D 31 
CO 51 31 
38 D1 

CD 41 31 

CD E2 IF 

20 44 45 53 54 49 2E 
46 49 4C 45 20 4E 41 
4D 45 20 3C 20 

00 

ED 5B 76 IF 
CD D3 IF 
lA 

FE IB 

21 13 00 

19 
EB 

21 9D 32 
CD 51 31 
38 D1 
CD 41 31 
11 9D 32 
13 
lA 

FE 3A 

20 OE 
13 

lA 

FE 00 
20 08 


11 9P 31 
21 9F 32 
CD 41 31 


ij X h 2^ COPY^^X U X h 


\ / 

NX 30A4 


FILE COPY PROGRAM 
CREATED BY T.KAWASHIMA 
CREATED FROM '86-05-11 
REWRITE '86-05-11 


PAUSE: 
PRINT: 

LTNL: 

GETL: 

MPRNT: 

FILE; 

ROPEN: EQU 
WOPEN: EQU 

WDD: 

MES: 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


ERROR: 
LPTON: 
LPTOF: 
RDD: 
KBFAD: 
SIZE: 
DTADR: 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


30 BXADR: EQU 


1FC7H 

1FF4H 

IFBEH 

1FD3H 

1FE2H 

1FA3H 

2009H 

IFAFH 

IFACH 

1FE8H 

2033H 

1FD9H 

1FD6H 

1FA6H 

1F76H 

1F72H 

1F70H 

IF6EH 


fDESTI: EQU 4SOUCE-I-100H 

;++♦++++++♦+♦++♦+♦+++++++♦++++♦♦+ 
; PROGRAM START 

OFFSET 4D0OH-30O0H 
ORG 300OH 


52 

53 


CALL 

CALL 


DEFB 

CALL 


CALL 

DEFM 


ADD 

EX 


CALL 

DEFM 


LPTOF 

MPRNT 

0DH 

’ COPY.OBJ Ver 1.0 


0DH.O0H 

LTNL 


MPRNT 

' SOUCE FILE NAME < 


00H 

DE,(KBFAD) 

GETL 
A,(DE) 

IBH 

Z 

HL, 19 

HL.DE 

HL,DE 

HL,#SOUCE 

«CHECK 

C,#INFL 

fMOVE 

MPRNT 

' DESTI.FILB NAME < 


00H 

DE,(KBFAD) 
GETL 
A.(DE) 

IBH 
Z 

HL, 19 
HL.DE 
HL.DE 
HL,#DEST1 
fCHECK 
C,#INFL1 
fMOVE 
DE,fDESTI 
OE 

A.(DB) 

NZ.fCK 
DE 

A,(DE) 

CP 0 

JR NZ.fCK 

b:=a:XXXXX.XXX 

LD 0E,fS0UCE42 

LD HL, fDESTI4^2 

CALL fMOVE 


JR 

INC 


30A4 

30A4 

30A4 11 9D 31 
30A7 3E 01 
30A9 32 96 31 
30AC CD A3 IF 
30AP CD 09 20 
30B2 30 OF 
30B4 11 9D 31 
30B7 3E 04 
30B9 32 96 31 
30BC CD A3 IF 
30BF CD 09 20 
30C2 38 2E 
30C4 
30C4 
30C4 
30C4 
30C4 

30C4 3A 96 31 
30C7 FE 01 
30C9 28 OA 
30CB FE 04 
30CD 28 OC 
30CF CD E2 IF 
30D2 21 21 
30D4 OD 00 
30D6 C9 
30D7 11 6B 31 
30DA C3 DE 30 
30DO 11 82 31 
30E0 CD E8 IF 
30E3 CD EE IF 
30E6 
30E6 

30E6 11 9D 31 
30B9 3A 96 31 
30EC CD A3 IF 
30BF CD 09 20 
30F2 30 02 
30F4 CD 33 20 
30F7 C9 
30F8 

30F8 2A 70 IF 
30FB 22 9B 31 
30FE 2A 6E IF 
3101 22 99 31 
3104 2A 72 IF 
3107 22 97 31 
310A 21 00 40 
310D 22 70 IF 
3110 CD A6 IF 
3113 38 DF 
3115 
3115 
3115 
3115 

3115 11 9D 32 
3118 3A 96 31 
311B CD A3 IF 
311E 2A 9B 31 
3121 22 70 IF 
3124 2A 99 31 
3127 22 6E IF 
312A 2A 97 31 
3120 22 72 IF 
3130 CD AF IF 
3133 38 BF 
3135 21 00 40 
3138 22 70 IF 
313B CD AC IF 
313E 38 B4 
3140 C3 28 30 
3143 
3143 
3143 
3143 

3143 E5 

3144 D5 

3145 
3145 

3145 lA 

3146 77 

3147 FE 00 

3149 28 03 
314B 

314B 23 
314C 13 
314D C3 45 31 

3150 

3150 D1 

3151 El 

3152 C9 

3153 
3153 

3153 D5 

3154 E5 

3155 C5 

3156 01 00 00 
3159 

3159 


96 ; 

97 ; 

98 : 

99 fCK: 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 : 

112 ; 

113 ; 

114 : 

115 fLOAD: 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 fBIN: 

126 

127 fASC: 

128 fASCl: 

129 

130 ; 

131 ; 

132 

133 

134 

135 

136 

137 fLB: 

138 

139 : 

140 fLOADl: 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 ; 

151 ; 

152 ; 

153 fSAVE: 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 ; 

171 ; 

172 ; 

173 fMOVE: 

174 

175 

176 : 

177 fMOVBl: 

178 

179 

180 
181 
182 : 

183 

184 

185 

186 fMOVEE: 

187 

188 

189 

190 ; 

191 fCHECK: 

192 

193 

194 

195 

196 ; 

197 fCKl: ■ 


FILE TYPE CHECK 

LD DE,fSOUCE 

LD A,1 ; BIN 

LD (FTYPE),A 

CALL FILE 

CALL ROPEN 

JR NC,fLOAD 

LD DB,fSOUCE 

LD A,4 ; ASC 

LD (FTYPE),A 

CALL FILE 

CALL ROPEN 

JR C.fLB 

LOAD SOUCE FILE 


LD A,(FTYPE) 

CP 1 

JR Z.fBIN 

CP 4 

JR Z.fASC 

CALL MPRNT 

DEFW ' FILE TYPE ERROR !!’ 

DEFB 0DH.00H 

RET 

LD DE.fMESl 

JP fASCl 

LD DE,fMES2 

CALL MES 

CALL LTNL 


LD DE,fSOUCE 

LD A,(FTYPB) ;1=BIN4=ASC 

CALL FILE 

CALL ROPEN 

JR NC,fLOADl 

CALL ERROR 

RET 

LD HL,(DTADR) 

LD (DTBUF).HL 

LD HL,(EXADR) 

LD (EXBUF).HL 

LD HL,(SIZB) 

LD (SBUF),HL 

LD HL,40OeH 

LD (DTADR),HL 

CALL RDD 

JR C.fLE 

SAVE DESTI FILE 


LD DE,fDESTI 

LD A,(FTYPB) ; 1=BIN 4=ASC 

CALL FILE 

LD HL,(DTBUF) 

LD (DTADR),HL 

LD HL,(BXBUF) 

LD (EXADR),HL 

LD HL,(SBUF) 

LD (SIZE),HL 

CALL WOPEN 

JR C,fLE 

LD HL,400eH 

LD (DTADR),HL 

CALL WDD 

JR C.fLE 

JP fINFL 

(HL)<==(DE) 

DATA TRANSE. END = 00H or 0DH 


PUSH HL 
PUSH DE 


LD A.(DE) 

LD (HL),A 

CP 0 

JR Z,fMOVEE 

INC HL 

INC DE 

JP fMOVBl 

POP DE 

POP HL 

RET 


PUSH DE (FILE NAME BUFF 

PUSH HL 

PUSH BC 

LD BC.0 


148 Oh! MZ 1986.10 









THE SENTINEL 



r 


3159 

lA 


198 

LD 

A,(DE) 


316F 

C9 







214 


RET 


31SA 

03 


199 

INC 

BC 


3170 








215 

; 



315B 

13 


200 

INC 

OE 


3170 

20 

20 

20 

46 

49 

4C 

45 

216 

INESl: 

DEFM 


315C 

FE 

00 

201 

CP 

00H 


3177 

20 

54 

59 

50 

45 

20 

3D 





31SE 

28 

04 

202 

JR 

Z,$CK2 

; INPUT END 

317B 

20 

42 

49 

4E 

20 







3160 

FE 

0D 

203 

CP 

ODH 

: RETURN KEY 

3183 

0D 







217 


DEFB 

ODH 

3162 

28 

00 

204 

JR 

Z,$CK2 


3184 

20 

20 

20 

46 

49 

4C 

45 

218 

#MES2: 

DEFM 

* 

3164 

18 

F3 

205 

JR 

♦CKl 


318B 

20 

54 

59 

50 

45 

20 

3D 





3166 



206 : 




3192 

20 

41 

53 

43 

20 







3166 



207 ♦CK2: 




3197 

0D 







219 


DEFB 

ODH 

3166 

21 

14 00 

208 

LD 

HL,20 


3198 








220 

;--- 



3169 

B7 


209 

OR 

A 


3198 

00 







221 

FTYPE: 

DBFS 

1 

316A 

ED 

42 

210 

SBC 

HL,BC 

; CARRY = ERROR 

3199 

00 

00 






222 

SBUF: 

DBFS 

2 

316C 

Cl 


211 

POP 

BC 


319B 

00 

00 






223 

EXBUF: 

DBFS 

2 

316D 

El 


212 

POP 

HL 


319D 

00 

00 






224 

DTBUF: 

DBFS 

2 

316E 

D1 


213 

POP 

DE 


319F 








225 

♦SOUCE: 




FILE TYPE = BIN ' 


FILE TYPE = ASC 


ZAID(iC)ffi 71 zV 7 Jl/C 7 X+ 


w C!)7°t3 ^"7 A ZAID 

L K'T'^ 7 7 7V4- 

h t:MJS'ti7x^-JE--V7 7^Sf5f*S^L 

X, X < 

L J; 5 t I-'9 {> ©f'fo CCr)7”B^" 

7 A If ^ c, -B- S t; IJ;ZAID*»£'^-r'1‘o 

it'«, ZAID^-D-KL-CiJli Ito 
6000H#ll!l*>f, ') KDla*) Cfl'-fbii 

A/J%, 5000H~606lH4--t-7"L'C <//? 
i.'o 7r tto c 7-r'to 

cm:', 6oooHi:i^>77°fmjrg®)&^i; 

ZAID t, ZAIDCD^U 

^ascic •) i-r, La 7 7 K-r'jtr-t 7 

7'/i-|f1-St. --^-7 70f^^t:rx 

J; 9 i:^j:oT 

i.'S ii-f-r'i-o 

c0;i:feSi-rzAiD fst-rcecii^nTi' 

S 6 lt-r't*‘t., 5000H~606lHlf-t-7"L 

>; X I 2 ZAIDS£||V - X Ij X h 


6028 

6028 C5 

6029 ED 4B 37 60 
602D 02 

602E 03 

602F ED 43 37 60 

6033 Cl 

6034 FI 

6035 23 

6036 C9 

6037 

6037 3A 60 
6039 
6039 
6039 27 
603A 
603A 00 
603B 00 
603C 00 
603D 00 
603E 0D 
603F 
603F 

603F 06 22 
6041 CD DF IF 

6044 D5 

6045 11 39 60 
6048 CD E8 IF 
604B D1 

604C 3E 20 
604E 32 3B 60 
6051 32 3C 60 
6054 32 3D 60 

6057 E5 

6058 21 3A 60 
605B 22 37 60 
605E El 

605F C3 EE IF 


0000 

0000 


0000 

0000 


6000 
6000 
6000 
6000 
6000 

6000 E5 

6001 21 
6004 22 
6007 21 
60OA 22 
600D 21 
6010 22 22 52 
6013 21 06 13 
6016 22 01 52 

6019 El 

601A C3 00 50 

601D 

601D 

601D CD FI IF 

6020 7E 

6021 F5 

6022 FE 20 
6024 30 02 
6026 3E 20 


ID 60 
20 52 
3F 60 
OE 52 


t***«t****«tt*t«******* 

7X4- >•>7* 74 

L37V1* 7 V-dl 

ZEDA 1 > tt»14 A 

$6100 -fn-) 9 94X1 xVT ; 

iff 

ORG $6000 

♦TAB EQU $1FDF 
♦MSG EQU $IFE8 
♦LETNL EQU $1FEE 
♦PRNTS EQU $1FF1 


PUSH HL 
LD HL,MA1N 
LD ($5220),HL 
LD HL.PROUT 
LD ($520E),HL 
LD HL,0 
LD ($5222),HL 
LD HL,$1306 
LD ($5201),HL 
POP HL 


JP 


$5000 


CALL ♦PRNTS 
LD A.(HL) 
PUSH AF 
CP $20 
JR NC.MAINl 
LD A,$20 


Xisi.'X, mktih t {) tOZAIDcDX^ 

- h #I1 Ii5000h I: 7 7°t H 

/jZAiDA'fiEffl-r'ii i to {) 

77°L T {) 1.' i -e-A- () I5] U 

■r't*^ 

%-fu 

7°n ^"7 L T 


7°n'Z"7Aii4 0(7)g|5^{:-9-(t 
S Z i*'X'^, 6000h~* 5ZAID (:^'°7 t 
Ell 

— nnnn.. 

X\ 601Dh~** 
7xA^-tY7 3'’™" 

5ooo„ 

6037 H~ 6000h 

y 7, 606211 

603Fh~ 

L T * 0 1- 7 X 

s-os 


ZAID 






/J\ 


Shinji Yoshinori 



A- —A-Y 7 4’^9Kt 4 bI 3^ t If 7 -Cl' 

i to 

-7 'yy°^m \ C^LTfcl! ito 

ZEDA t*;(^t ZEDA0t4-X 

hx-i; 7%-6100 h ()tt:t:tt6062H) 

Lt < l7S>i'o 

1) TVi'7^'7-/i'ZAID,0h!MZ, 1985.7 

2) -7 7 7gi"An"->Ctm,0h!MZ,1985.11 

3) S-0S“SW0RD".01i!MZ, 1986.2 


0 X h 

1 


V 

6000 

E5 

21 

ID 

60 

22 

20 

52 

21 

:38 

6008 

3F 

60 

22 

0E 

52 

21 

00 

00 

:42 

6010 

22 

22 

52 

21 

06 

13 

22 

01 

:F3 

6018 

52 

El 

C3 

00 

50 

CD 

FI 

IF 

:23 

6020 

7E 

F5 

FE 

20 

30 

02 

3E 

20 

:21 

6028 

C5 

ED 

4B 

37 

60 

02 

03 

ED 

:86 

6030 

43 

37 

60 

Cl 

FI 

23 

C9 

3A 

:B2 

6038 

60 

27 

00 

00 

00 

00 

0D 

06 

:9A 

6040 

22 

CD 

DF 

IF 

D5 

11 

39 

60 

:6C 

6048 

CD 

E8 

IF 

D1 

3E 

20 

32 

3B 

:70 

6050 

60 

32 

3C 

60 

32 

3D 

60 

E5 

:E2 

6058 

21 

3A 

60 

22 

37 

60 

El 

C3 

:18 

6060 

EE 

IF 







:0D 

SUM: 

DC 

04 

97 

19 

C7 

16 

28 

D1 

:66 


50 DTPOI: 

51 


62 PROUT: 

63 


69 

70 

71 

72 

73 

74 

75 

76 

77 


PUSH BC 

LD BC,(DTPOI) 
LD (BC),A 
INC BC 

LD (DTPOI),BC 

POP BC 

POP AF 

INC HL 

RET 

DEFW DTARA+1 


DEFB . 

DEFB 0 
DEFB 0 
DEFB 0 
DEFB 0 
DEFB $0D 


LD B,34 
CALL ♦TAB 
PUSH DE 
LD DE,DTARA 
CALL ♦MSG 
POP DE 
LD A,$20 
LD (DTARA+2),A 
LD (DTARA+3),A 
LD (DTARA+4),A 
PUSH HL 

LD HL,DTARA+1 
LD (DTPOI),HL 
POP HL 
JP ♦LETNL 
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D5 

E5 

CD 

06 

3C 

El 

D1 

CD 

48 

32E8 

EE 

IF 

C9 

CD 

El 

33 

3A 

7E 

6F 

32F0 

3C 

FE 

08 

CA 

8A 

33 

CD 

E2 

78 

32F8 

IF 

41 

44 

52 

53 

2E 

3A 

2B 

DC 

SUM: 

B6 

16 

A2 

69 

25 

C7 

F4 

24 : 

;DB 

3300 

30 

20 

2B 

31 

20 

2B 

32 

20 : 

:49 

3308 

2B 

33 

20 

2B 

34 

20 

2B 

35 : 

;5D 

3310 

20 

2B 

36 

20 

2B 

37 

20 

2B ; 

:4E 

3318 

38 

20 

2B 

39 

20 

2B 

41 

20 : 

68 

3320 

2B 

42 

20 

2B 

43 

20 

2B 

44 : 

:8A 


i 


3328 

20 

2B 

45 

20 

2B 

46 

20 

2F 

:70 

3330 

20 

43 

68 

61 

72 

61 

63 

74 

:D6 

3338 

65 

72 

20 

63 

6F 

64 

65 

0D 

:9F 

3340 

2D 

2D 

2D 

2D 

2D 

2B 

2D 

2D 

:66 

3348 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3350 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3358 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3360 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3368 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 
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2D 

2D 

2D 

2D 

2D 
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2D 

2D 

2D 

2D 

2D 

:68 
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EB 

28 

01 

2C 
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3C 

39 

FC 

:07 

3380 
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2D 

2D 

2D 
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2D 

00 

:3B 

3388 

18 

53 

CD 

E2 

IF 

20 

41 

44 

:DE 

3390 

52 

53 

3A 

2B 

30 
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2B 

31 

:B6 

3398 

20 

2B 

32 

20 

2B 

33 

20 

2B 

:46 

33A0 

34 

20 

2B 

35 

20 

2B 

36 

20 

:55 

33A8 

2B 

37 

20 

2F 

43 
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72 
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33B0 
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2D 
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2D 
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2D 

2D 

2D 

2D 
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2D 

2D 

2D 

2D 

2D 

2D 

2D 
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2D 

2D 

2D 

2D 

2D 
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2D 
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2D 

2D 
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2D 
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2D 

00 
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C9 

CD 

E2 

IF 

2D 

2D 

2D 

2D 

:4B 

33E8 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

33F0 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

33F8 
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2D 
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2D 
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2D 

2D 
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AA 

F9 

5B 

AA 

7F 

95 

E4 

94 

:34 

3400 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3408 

2D 

2D 

2D 

00 

3A 

7E 

3C 

FE 

:79 

3410 

08 

28 

24 

CD 

E2 

IF 

2D 

2D 

:7C 

3418 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

:68 

3420 

2D 

2D 

2D 

2D 
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2D 

2D 

2D 
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2D 

2D 

2D 
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00 
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EE 
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C9 
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IF 
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6D 
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6B 
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BE 
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ED 
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B7 

ED 

52 
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:9E 

3470 

F5 
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C4 

IF 

FI 

30 

1C 

CD 

:AE 

3478 

E2 

IF 

20 

20 

20 

20 

20 

20 

:C1 

SUM: 

81 

9D 

F2 

14 

CC 

A4 

90 

F0 

:14 

3480 

20 

20 

20 

20 

20 

20 

20 

20 

:00 

3488 

20 

20 

20 

20 

20 

20 

20 

20 

:00 

3490 

20 

00 

C9 

CD 

E2 

IF 

3A 

20 

: 11 

3498 

20 

52 

65 

63 

6F 

72 

64 

20 

:9F 

34A0 

4E 

6F 

2E 

20 

24 

00 

62 

6B 

:FC 

34A8 

B7 

ED 

42 

E5 

3A 

73 

3C 

6F 

:23 

34B0 

26 

00 

06 

07 

CB 

25 

CB 

14 
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34B8 

10 
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4D 

44 

El 
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26 
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:0E 
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09 
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CD 

BB 

IF 
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F4 
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34C8 

IF 

7D 

CD 

Cl 

IF 

AF 

32 

57 

:81 

34D0 

3C 

3E 

3D 

CD 

F4 

IF 

D5 

CD 

:39 

34D8 

0D 

3C 

D1 

C9 

D5 

3A 

7E 

3C 

:AC 

34E0 

47 

C5 

lA 

13 

CD 

Cl 

IF 

CD 

:B3 

34E8 

FI 

IF 

10 

F6 

3E 

2F 

CD 

F4 

:44 

34F0 

IF 
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D1 

lA 

13 

FE 

20 

30 

:2C 

34F8 

02 

3E 

2E 

CD 

F4 

IF 

10 

F3 

:51 

SUM: 

33 

CB 

B1 

D4 

50 

09 

DB 

A6 

:5D 

3500 

C9 

CD 

8C 

31 

30 

06 

ED 

5B 

D1 

3508 

7C 

3C 

18 

07 

CD 

B2 

IF 

DA 

4F 

3510 

60 

3C 

EB 

CD 

6E 

31 

CD 

63 

23 

3518 

38 

CD 

3B 

34 

CD 

EE 

IF 

CD 

IB 

3520 

EB 

32 

06 

10 

C5 

3E 

3A 

CD 

3D 

3528 

F4 

IF 

62 

6B 

CD 

BE 

IF 

3E 

C8 

3530 

3D 

CD 

F4 

IF 

CD 

DC 

34 

CD 

C7 

3538 

EE 

IF 

Cl 

10 

E7 

ED 

53 

7C 

81 

3540 

3C 

CD 

El 

33 

CD 

D6 

IF 

ED 

CC 

3548 

4B 

87 

3C 

0B 

CD 

D0 

IF 

FE 

D3 

3550 

20 

CA 

C0 

30 

78 

B1 

20 

F3 

16 

3558 

ED 

5B 

7C 

3C 

21 

00 

00 

CD 

EE 

3560 

IE 

20 

18 

B2 

CD 

8C 

31 

38 

CA 

3568 

09 

lA 

FE 

30 

28 

08 

30 

0C 

BD 

3570 

18 

3A 

3E 

35 

18 

06 

21 

01 

05 


r 


3578 

00 

F5 

18 

11 

FE 

3A 

30 

2C 

:B2 

SUM: 

BA 

31 

AC 

B5 

BC 

C7 

E8 

D5 

:8C 

3580 

F5 

D6 

30 

47 

21 

00 

00 

11 

74 

3588 

00 

10 

19 

10 

FD 

22 

87 

3C 

IB 

3590 

CD 

E2 

IF 

44 

65 

6C 

61 

79 

BD 

3598 

20 

63 

6F 

75 

6E 

74 

65 

72 

20 

35A0 

3D 

00 

FI 

CD 

F4 

IF 

CD 

C4 

9F 

35A8 

IF 

CD 

EE 

IF 

C3 

C0 

30 

CD 

79 

35B0 

8C 

31 

38 

15 

IB 

3E 

30 

12 

A5 

35B8 

CD 

B2 

IF 

DA 

60 

3C 

CD 

00 

El 

35C0 

32 

DA 

64 

3C 

22 

7A 

3C 

18 

9C 

35C8 

06 

2A 

78 

3C 

22 

7A 

3C 

3A 

F6 

35D0 

71 

3C 

B7 

C2 

F3 

35 

CD 

C4 

DF 

35D8 

IF 

CD 

E2 

IF 

4E 

6F 

20 

64 

2E 

35E0 

61 

74 

61 

20 

74 

6F 

20 

77 

D0 

35E8 

72 

69 

74 

65 

20 

21 

0D 

00 

02 

35F0 

C3 

C0 

30 

CD 

C4 

IF 

CD 

E2 

12 

35F8 

IF 

57 

72 

69 

74 

65 

20 

24 

6E 

SUM: 

14 

DC 

F9 

FF 

74 

07 

C6 

D2 

:FB 

3600 

00 

DD 

21 

78 

3C 

CD 

9A 

32 

4B 

3608 

3E 

3D 

CD 

F4 

IF 

CD 

06 

3C 

6A 

3610 

CD 

E2 

IF 

20 

69 

6E 

20 

24 

09 

3618 

00 

DD 

21 

7A 

3C 

CD 

9A 

32 

4D 

3620 

3E 

3D 

CD 

F4 

IF 

AF 

32 

57 

93 

3628 

3C 

2A 

7A 

3C 

CD 

0D 

3C 

CD 

FF 

3630 

E2 

IF 

3A 

28 

59 

2F 

4E 

29 

62 

3638 

3F 

00 

CD 

51 

31 

CD 

62 

31 

EE 

3640 

38 

IE 

ED 

5B 

7A 

3C 

2A 

64 

E2 

3648 

IF 

3E 

01 

CD 

03 

20 

DA 

66 

8E 

3650 

3C 

CD 

E2 

IF 

43 

6F 

6D 

70 

99 

3658 

6C 

65 

74 

65 

20 

21 

0D 

00 

F8 

3660 

C3 

C0 

30 

CD 

8C 

31 

38 

ID 

92 

3668 

lA 

13 

CD 

B8 

IF 

DA 

60 

3C 

47 

3670 

CD 

CA 

36 

DA 

64 

3C 

32 

72 

EB 

3678 

3C 

CD 

8C 

31 

DA 

85 

36 

21 

7C 

SUM: 

8B 

57 

7F 

EB 

3F 

45 

F6 

68 ; 

:2E 

3680 

89 

3C 

CD 

9F 

31 

16 

00 

3A 

B2 

3688 

72 

3C 

32 

73 

3C 

5F 

06 

07 

FB 

3690 

CB 

23 

CB 

12 

10 

FA 

21 

00 

F6 

3698 

40 

3E 

80 

CD 

00 

20 

DA 

66 

2B 

36A0 

3C 

3E 

01 

32 

70 

3C 

CD 

63 

89 

36A8 

38 

CD 

D1 

36 

CD 

19 

37 

CD 

F6 

36B0 

EB 

IF 

3A 

72 

3C 

CD 

CA 

36 

BF 

36B8 

38 

07 

3C 

32 

72 

3C 

CD 

D6 

FE 

36C0 

IF 

21 

00 

40 

22 

7C 

3C 

C3 

ID 

36C8 

C0 

30 

F5 

47 

3E 

09 

90 

FI 

F4 

36D0 

C9 

CD 

E2 

IF 

47 

72 

6F 

75 

34 

36D8 

70 

65 

3D 

00 

3A 

73 

3C 

F5 

F0 

36E0 

CD 

BB 

IF 

CD 

F4 

IF 

CD 

E2 

36 

36E8 

IF 

3A 

20 

43 

6C 

75 

73 

74 

84 

36F0 

65 

72 

20 

4E 

6F 

2E 

24 

00 

06 

36F8 

06 

03 

FI 

CB 

27 

10 

FC 

F5 

ED 

SUM: 

0C 

F7 

F6 

CC 

3F 

29 

73 

4C : 

EC 

3700 

CD 

Cl 

IF 

CD 

E2 

IF 

2D 

24 

CC 

3708 

00 

FI 

C6 

07 

CD 

Cl 

IF 

CD 

38 

3710 

EE 

IF 

CD 

63 

37 

CD 

EE 

IF 

4E 

3718 

C9 

01 

00 

80 

21 

00 

40 

E5 

90 

3720 

09 

44 

4D 

21 

89 

3C 

7E 

El 

DF 

3728 

B7 

C8 

11 

89 

3C 

lA 

B7 

28 

4E 

3730 

20 

BE 

28 

09 

23 

E5 

B7 

ED 

BB 

3738 

42 

El 

C8 

18 

ED 

13 

23 

E5 

0B 

3740 

21 

89 

3C 

23 

B7 

ED 

52 

El 

E0 

3748 

28 

02 

18 

El 

22 

81 

3C 

18 

lA 

3750 

DC 

D5 

C5 

CD 

9A 

37 

Cl 

D1 

A6 

3758 

CD 

CD 

IF 

CA 

C0 

30 

2A 

81 

IE 

3760 

3C 

18 

Cl 

CD 

E2 

IF 

53 

65 

A1 

3768 

61 

72 

63 

68 

20 

64 

61 

74 

F7 

3770 

61 

3D 

20 

00 

11 

89 

3C 

D5 

69 

3778 

lA 

B7 

28 

09 

13 

CD 

Cl 

IF 

C2 

SUM: 

B0 

28 

AA 

5B 

35 

A9 

B3 

E8 : 

56 

3780 

CD 

FI 

IF 

18 

F3 

D1 

3E 

2F : 

26 

3788 

CD 

F4 

IF 

lA 

B7 

C8 

13 

FE : 

8A 

3790 

20 

30 

02 

3E 

2E 

CD 

F4 

IF : 

9E 

3798 

18 

FI 

CD 

C4 

IF 

2A 

81 

3C : 

A0 

37A0 

2B 

11 

00 

40 

B7 

ED 

52 

01 : 

73 

37A8 

00 

01 

11 

00 

00 

22 

83 

3C : 

F3 
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37B0 

B7 

ED 

42 

38 

03 

13 

18 

F5 

41 

37B8 

3A 

72 

3C 

6F 

26 

00 

06 

07 

8A 

37C0 

CB 

25 

CB 

14 

10 

FA 

19 

3E 

30 

37C8 

24 

CD 

F4 

IF 

7C 

CD 

BB 

IF 

27 

37D0 

CD 

F4 

IF 

7D 

CD 

Cl 

IF 

2A 

34 

37D8 

83 

3C 

7D 

CD 

Cl 

IF 

CD 

FI 

A7 

37E0 

IF 

CD 

FI 

IF 

C9 

CD 

63 

38 

2D 

37E8 

CD 

AA 

32 

CD 

E2 

IF 

3A 

20 

D1 

37F0 

00 

CD 

04 

39 

3A 

71 

3C 

B7 

A8 

37F8 

C4 

C5 

32 

3A 

70 

3C 

B7 

C4 

1C 

SUM: 

DD 

A2 

50 

F7 

46 

F2 

09 

0C : 

: 13 

3800 

D1 

36 

CD 

D6 

IF 

C3 

C0 

30 

7C 

3808 

CD 

F7 

IF 

7C 

FE 

20 

28 

07 

AC 

3810 

3E 

01 

32 

6E 

3C 

18 

06 

21 

5A 

3818 

20 

38 

22 

53 

10 

C3 

8E 

IF 

4D 

3820 

21 

FA 

IF 

22 

53 

10 

C3 

C0 

42 

3828 

30 

3A 

6F 

3C 

B7 

28 

06 

AF 

A9 

3830 

11 

58 

38 

18 

0D 

F5 

AF 

CD 

37 

3838 

DC 

IF 

DA 

58 

3C 

FI 

2F 

11 

9A 

3840 

4E 

38 

32 

6F 

3C 

CD 

C4 

IF 

13 

3848 

CD 

E5 

IF 

C3 

C0 

30 

4C 

50 

20 

3850 

54 

20 

4F 

4E 

20 

21 

0D 

00 

5F 

3858 

4C 

50 

54 

20 

4F 

46 

46 

20 

0B 

3860 

21 

0D 

00 

3A 

6F 

3C 

32 

7C 
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3868 
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C9 
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3C 

32 

6E 

14 

3870 

3C 

ED 

7B 

6C 

3C 

C3 
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IF 
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13 

CD 

B2 

IF 

DA 
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3C 

13 

3E 

SUM: 

84 

2E 

B0 

78 

IB 

DF 

23 

6F : 

:66 

3880 

CD 

9F 

31 

CD 

18 
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3E 

06 

E6 

3888 

6F 

CD 

IE 
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C3 

C6 

30 

13 

46 

3890 

13 

13 

CD 

B5 

IF 

DA 
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30 

91 
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13 

2A 

64 
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D5 

5F 

16 
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0A 

38A0 

19 

D1 

CD 

9F 

31 

CD 

18 

20 

8C 

38A8 

3E 

06 

6F 

CD 

IE 

20 

C3 

C6 
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38B0 

30 

CD 

22 
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CD 

49 

31 

13 

B2 

38B8 

13 

13 

13 

13 

CD 

8C 

31 

38 

0E 
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10 

IB 

3E 

30 

12 

CD 

B2 

IF 

49 

38C8 

DA 

64 

3C 

22 

60 

IF 

CD 

C4 

AC 

38D0 

IF 

CD 

2C 

39 

CD 

49 

31 

13 
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13 

13 

13 
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8C 

31 
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ID 

IB 

3E 
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B2 

IF 
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DA 

64 

3C 

22 

5E 

IF 

CD 

C4 

AA 
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IF 

CD 

E2 

IF 

53 

65 

74 

20 

39 

38F8 

4F 

6B 

21 

20 

3A 

00 

CD 

04 

06 

SUM: 

7D 

76 

27 

A8 

Cl 

F3 

22 

AF : 

:47 

3900 

39 

C3 

C0 

30 

CD 

22 

39 

DD 

FI 

3908 

21 

60 

IF 

CD 

9A 

32 

CD 

FI 

F7 

3910 

IF 

CD 

FI 

IF 

CD 

2C 

39 

DD 

0B 

3918 

21 

5E 

IF 

CD 

9A 

32 

CD 

EE 

F2 

3920 

IF 

eg 

CD 

E2 

IF 

44 

69 

72 

D5 

3928 

3D 

24 

00 

C9 

CD 

E2 

IF 

46 

3E 

3930 

61 

74 

3D 

24 

00 

C9 

CD 

8C 

58 

3938 

31 

DA 

60 

3C 

lA 

FE 

41 

38 

38 

3940 

13 

FE 

45 

30 

0F 

32 

5D 

IF 

43 

3948 

CD 

AA 

32 

CD 

EE 

IF 

CD 

C4 

14 

3950 

IF 

C3 

C0 

30 

C3 

64 

3C 

ED 

22 

3958 

5B 

60 

IF 

21 

00 

40 

3E 

10 

89 

3960 

CD 

00 

20 

DA 

66 

3C 

AF 

32 

4A 

3968 

70 

3C 

C9 

ED 

5B 

60 

IF 

21 

5D 

3970 

00 

50 

3E 

10 

CD 

03 

20 

DA 

68 

3978 

66 

3C 

C9 

CD 

57 

39 

21 

00 

E9 

SUM: 

85 

1C 

9F 

E6 

79 

6C 

55 

22 : 

:82 

3980 

40 

E5 

11 

00 

50 

62 

6B 

E5 

38 

3988 

13 

01 

FF 

0F 

36 

FF 

ED 

B0 

F4 

3990 

FD 

El 

DD 

El 

11 

20 

00 

06 

D3 

3998 

7F 

DD 

7E 

00 

FE 

FF 

28 

17 

16 

39A0 

B7 

28 

10 

C5 

D5 

D5 

Cl 

FD 

1C 

39A8 

E5 

D1 

DD 

E5 

El 

ED 

B0 

D1 

C7 

39B0 

Cl 

FD 

19 

DD 

19 

10 

E2 

CD 

8C 

39B8 

C4 

IF 

CD 

22 

39 

DD 

21 

60 

69 

39C0 

IF 

CD 

9A 

32 

CD 

E2 

IF 

2D 

B3 

39C8 

20 

43 

6F 

6C 

6C 

65 

63 

74 

E6 

39D0 

69 

6F 

6E 

20 

66 

69 

6E 

69 

0C 

39D8 

73 

68 

20 

21 

0D 

57 

72 

69 

5B 

39E0 

74 

65 

20 

28 

59 

2F 

4E 

29 

20 

39E8 

3F 

00 

CD 

51 

31 

CD 

62 

31 

EE 

39F0 

38 

05 

F5 

CD 

6B 

39 

FI 

C3 

57 

39F8 

C0 

30 

CD 

63 

38 

CD 

E2 

IF 

26 


154 Oh! MZ 1986.10. 


SUM: 

B6 

3A 

84 

21 

76 

38 

D9 

5C : 

:78 

3A00 

46 

69 

6C 

65 

73 

0D 

00 

CD 

CD 

3A08 

57 

39 

21 

00 

40 

11 

20 

00 

22 

3A10 

0E 

01 

06 

7F 

E5 

7E 

FE 

FF 

F4 

3A18 

28 

10 

CD 

2D 

3A 

El 

19 

CD 

33 

3A20 

C7 

IF 

26 

3A 

10 

EE 

CD 

D6 

E7 

3A28 

IF 

C9 

El 

18 

F9 

D5 

7E 

23 

50 

3A30 

B7 

F5 

28 

0D 

79 

CD 

Cl 

IF 

07 

3A38 

CD 

E2 

IF 

29 

20 

00 

0C 

18 

3B 

3A40 

08 

CD 

E2 

IF 

78 

78 

78 

20 

5E 

3A48 

00 

16 

0D 

7E 

23 

15 

CD 

F4 

9A 

3A50 

IF 

7A 

B7 

20 

F6 

3E 

2E 

CD 

9F 

3A58 

F4 

IF 

16 

03 

7E 

23 

15 

CD 

AF 

3A60 

F4 

IF 

7A 

B7 

20 

F6 

CD 

FI 

18 

3A68 

IF 

7E 

FE 

20 

28 

0C 

F5 

3E 

22 

3A70 

3B 

CD 

F4 

IF 

FI 

CD 

Cl 

IF 

B9 

3A78 

18 

07 

CD 

E2 

IF 

6E 

70 

77 

42 

SUM: 

BE 

5F 

A3 

31 

DB 

38 

CA 

3C : 

:0A 

3A80 

00 

CD 

FI 

IF 

FI 

CB 

47 

E5 

C5 

3A88 

28 

05 

11 

CA 

3A 

18 

15 

CB 

3A 

3A90 

4F 

28 

05 

11 

CE 

3A 

18 

0C 

B9 

3A98 

CB 

57 

28 

05 

11 

D2 

3A 

18 

84 

3AA0 

03 

11 

D6 

3A 

CD 

E5 

IF 

CB 

C0 

3AA8 

77 

28 

04 

3E 

2A 

18 

02 

3E 

63 

3AB0 

20 

CD 

F4 

IF 

CD 

FI 

IF 

3E 

IB 

3AB8 

24 

CD 

F4 

IF 

El 

11 

0D 

00 

03 

3AC0 

19 

7E 

CD 

Cl 

IF 

CD 

EE 

IF 

IE 

3AC8 

D1 

C9 

42 

69 

6E 

00 

42 

61 

56 

3AD0 

73 

00 

41 

73 

63 

00 

3F 

3F 

08 

3AD8 

3F 

00 

CD 

8C 

31 

DA 

60 

3C 

3F 

3AE0 

2A 

76 

IF 

E5 

CD 

9F 

31 

06 

47 

3AE8 

00 

El 

4E 

0C 

0D 

28 

11 

04 

85 

3AF0 

23 

E5 

7E 

B7 

28 

07 

B9 

CA 

EF 

3AF8 

64 

3C 

23 

18 

F5 

El 

18 

EA 

B3 

SUM: 

4D 

E3 

1C 

9E 

C7 

44 

DD 

D4 : 

: A6 

3B00 

78 

32 

85 

3C 

CD 

57 

39 

21 

E9 

3B08 

00 

40 

E5 

11 

00 

50 

01 

00 

87 

3B10 

10 

ED 

B0 

06 

00 

El 

11 

20 

C5 

3B18 

00 

7E 

19 

FE 

FF 

28 

08 

FE 

C2 

3B20 

00 

CA 

C4 

3B 

04 

18 

F2 

78 

4F 

3B28 

32 

86 

3C 

21 

86 

3C 

3A 

85 

96 

3B30 

3C 

BE 

28 

03 

D2 

64 

3C 

ED 

84 

3B38 

5B 

76 

IF 

D5 

lA 

13 

B7 

28 

D1 

3B40 

08 

BE 

28 

F8 

38 

F6 

C3 

64 

3B 

3B48 

3C 

11 

00 

50 

DD 

El 

21 

00 

7C 

3B50 

40 

DD 

7E 

00 

DD 

23 

B7 

28 

7A 

3B58 

17 

3D 

D5 

28 

07 

47 

11 

20 

D0 

3B60 

00 

19 

10 

FD 

01 

20 

00 

D1 

18 

3B68 

E5 

ED 

B0 

El 

AF 

77 

18 

DE 

7F 

3B70 

21 

00 

40 

01 

20 

00 

7E 

B7 

B7 

3B78 

28 

08 

FE 

FF 

28 

07 

ED 

B0 

F9 

SUM: 

lA 

58 

F3 

D3 

33 

5A 

A1 

13 : 

:79 

3B80 

18 

FI 

09 

18 

EE 

11 

00 

40 

69 

3B88 

21 

00 

50 

01 

00 

10 

ED 

B0 

IF 

3B90 

CD 

C4 

IF 

CD 

0A 

3A 

CD 

E2 

70 

3B98 

IF 

57 

72 

69 

74 

65 

20 

28 

72 

3BA0 

59 

2F 

4E 

29 

3F 

00 

CD 

51 

5C 

3BA8 

31 

CD 

62 

31 

38 

13 

CD 

6B 

14 

3BB0 

39 

CD 

E2 

IF 

41 

72 

72 

61 

8D 

3BB8 

6E 

67 

65 

20 

4F 

6B 

21 

0D 

42 

3BC0 

00 

C3 

C0 

30 

CD 

C4 

IF 

CD 

30 

3BC8 

E2 

IF 

43 

6F 

6C 

6C 

65 

63 

53 

3BD0 

74 

20 

67 

61 

72 

62 

61 

67 

F8 

3BD8 

65 

20 

21 

0D 

00 

18 

E2 

3A 

E7 

3BE0 

5C 

IF 

FE 

28 

28 

0D 

FE 

50 

24 

3BE8 

28 

03 

C3 

64 

3C 

06 

08 

3E 

DA 

3BF0 

28 

28 

04 

06 

10 

3E 

50 

C5 

BD 

3BF8 

CD 

30 

20 

Cl 

78 

32 

7E 

3C 

42 

SUM: 

8A 

D8 

51 

48 

0A 

DD 

A2 

84 : 

;08 

3C00 

CD 

C4 

IF 

C3 

C0 

30 

AF 

32 

:44 

3C08 

57 

3C 

2A 

78 

3C 

E5 

06 

01 : 

:5D 

3C10 

7C 

B5 

28 

28 

DD 

21 

4D 

3C 

:08 

3C18 

06 

05 

El 

AF 

DD 

5E 

00 

DD ; 

:B3 

3C20 

56 

01 

DD 

23 

DD 

23 

B7 

E5 : 

:F3 

3C28 

ED 

52 

38 

05 

33 

33 

3C 

18 ; 

:36 

3C30 

F5 

B7 

20 

08 

F5 

3A 

57 

3C 

:96 


3C38 

B7 

28 

0F 

FI 

C6 

30 

CD 

F4 : 

:96 

3C40 

IF 

3E 

01 

32 

57 

3C 

10 

D2 : 

:05 

3C48 

El 

C9 

FI 

18 

F9 

10 

27 

E8 ; 

:CB 

3C50 

03 

64 

00 

0A 

00 

01 

00 

00 : 

:72 

3C58 

ED 

7B 

6C 

3C 

3E 

02 

18 

06 : 

:6E 

3C60 

3E 

0D 

18 

02 

3E 

0E 

CD 

33 : 

:B1 

3C68 

20 

C3 

C0 

30 

00 

00 

00 

00 ; 

:D3 

3C70 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3C78 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

SUM: 

E3 

A2 

CC 

F5 

4D 

B1 

35 

6C : 

:E5 

3C80 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3C88 

50 

00 

00 

00 

00 

00 

00 

00 : 

:50 

3C90 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3C98 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3CA0 

00 

00 

00 

00 

00 

00 

00 

00 ; 

:00 

3CA8 

00 

00 

00 

00 

00 

00 

00 

00 : 

;00 

3CB0 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3CB8 

00 

00 

00 

00 

00 

00 

00 

00 ; 

;00 

3CC0 

00 

00 

00 

00 

00 

00 

00 

00 ; 

;00 

3CC8 

00 

00 

00 

00 

00 

00 

00 

00 : 

;00 

3CD0 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3CD8 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3CE0 

00 

00 

00 

00 

00 

00 

00 

00 : 

;00 

3CE8 

00 

00 

00 

00 

00 

00 

00 

00 ; 

:00 

3CF0 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

3CF8 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

SUM: 

50 

00 

00 

00 

00 

00 

00 

00 ; 

:50 

3D00 

CD 

6E 

31 

CD 

E2 

IF 

4C 

28 

AE 

3D08 

68 

68 

68 

29 

20 

A5 

A5 

A5 

70 

3D10 

20 

72 

65 

61 

64 

20 

26 

20 

22 

3D18 

64 

75 

6D 

70 

20 

72 

65 

63 

10 

3D20 

6F 

72 

64 

20 

4E 

6F 

2E 

68 

B8 

3D28 

68 

68 

0D 

24 

28 

68 

68 

68 

61 

3D30 

29 

20 

A5 

A5 

A5 

20 

77 

72 

41 

3D38 

69 

74 

65 

20 

69 

6E 

20 

72 

CB 

3D40 

65 

63 

6F 

72 

64 

20 

4E 

6F 

EA 

3D48 

2E 

68 

68 

68 

0D 

44 

28 

68 

47 

3D50 

68 

68 

68 

29 

20 

A5 

A5 

20 

EB 

3D58 

64 

75 

6D 

70 

20 

6D 

65 

6D 

15 

3D60 

6F 

72 

79 

20 

61 

64 

72 

73 

24 

3D68 

20 

68 

68 

68 

68 

0D 

43 

28 

38 

3D70 

6E 

29 

20 

A5 

A5 

A5 

A5 

A5 

F0 

3D78 

20 

64 

75 

6D 

70 

20 

64 

65 

BF 

SUM: 

9E 

3A 

08 

DD 

99 

67 

E7 

0D : 

:B1 

3D80 

6C 

61 

79 

20 

63 

6F 

75 

6E 

IB 

3D88 

74 

65 

72 

20 

73 

65 

74 

0D 

C4 

3D90 

46 

28 

6E 

20 

28 

68 

68 

20 

14 

3D98 

6F 

72 

20 

3B 

2B 

43 

68 

72 

84 

3DA0 

2E 

2E 

2E 

29 

29 

20 

A5 

A5 

46 

3DA8 

A5 

20 

73 

65 

61 

72 

63 

68 

3B 

3DB0 

20 

64 

69 

73 

6B 

0D 

26 

20 

IE 

3DB8 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

28 

3DC0 

20 

64 

69 

72 

65 

63 

74 

6F 

0A 

3DC8 

72 

79 

20 

67 

61 

72 

62 

61 

08 

3DD0 

67 

65 

20 

63 

6F 

6C 

6C 

65 

FB 

3DD8 

63 

74 

0D 

41 

20 

68 

68 

2E 

43 

3DE0 

2E 

2E 

A5 

A5 

A5 

20 

61 

72 

3E 

3DE8 

72 

61 

6E 

67 

65 

20 

64 

69 

FA 

3DF0 

72 

65 

63 

74 

6F 

72 

79 

0D 

15 

3DF8 

56 

20 

41 

2D 

44 

20 

A5 

A5 

92 

SUM: 

FI 

81 

95 

6B 

D5 

3E 

19 

CF : 

:6D 

3E00 

A5 

A5 

20 

64 

65 

76 

69 

63 

75 

3E08 

65 

20 

73 

77 

69 

74 

63 

68 

17 

3E10 

0D 

54 

20 

A5 

A5 

A5 

A5 

A5 

BA 

3E18 

A5 

A5 

A5 

20 

63 

68 

61 

6E 

A9 

3E20 

67 

65 

20 

44 

69 

72 

2E 

26 

5F 

3E28 

20 

46 

61 

74 

2E 

20 

70 

6F 

68 

3E30 

73 

69 

74 

69 

6F 

6E 

0D 

3F 

E2 

3E38 

20 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A3 

3E40 

A5 

20 

69 

6E 

64 

69 

63 

61 

2D 

3E48 

74 

65 

20 

63 

75 

72 

72 

65 

lA 

3E50 

6E 

74 

20 

70 

61 

72 

61 

6D 

13 

3E58 

65 

74 

65 

72 

0D 

50 

20 

A5 

D2 

3E60 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

20 

A3 

3E68 

70 

72 

69 

6E 

74 

65 

72 

20 

24 

3E70 

73 

77 

69 

74 

63 

68 

20 

6F 

21 

3E78 

6E 

2F 

6F 

66 

66 

0D 

4D 

20 

52 
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THE SENTINEL 


i 












3F00 

0D 

2A 

20 

62 

6C 

6F 

63 

6B 

:62 

3F80 

64 

69 

72 

65 

63 

74 

6F 

72 

5C 

SUM: 

B8 

A1 

E6 

06 

AA 

B8 

FC 

FE 

: A1 

3F08 

20 

64 

61 

74 

61 

20 

62 

75 

:B1 

3F88 

79 

20 

74 

6F 

70 

20 

68 

68 

DC 











3F10 

66 

66 

65 

72 

20 

A5 

A5 

A5 

:B2 

3F90 

68 

0D 

2A 

20 

24 

30 

30 

3D 

80 

3E80 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

:28 

3F18 

20 

24 

34 

30 

30 

30 

2D 

24 

:59 

3F98 

69 

6E 

65 

66 

66 

65 

63 

74 

44 

3E88 

20 

6D 

6F 

6E 

69 

74 

6F 

72 

:28 

3F20 

42 

46 

46 

46 

0D 

2A 

20 

72 

:DD 

3FA0 

69 

76 

65 

20 

61 

73 

20 

73 

CB 

3E90 

20 

63 

61 

6C 

6C 

0D 

51 

20 

:3A 

3F28 

65 

63 

6F 

72 

64 

20 

64 

61 

:F2 

3FA8 

65 

61 

72 

63 

68 

20 

64 

61 

E8 

3E98 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

:28 

3F30 

74 

61 

20 

62 

75 

66 

66 

65 

:FD 

3FB0 

74 

61 

0D 

2A 

20 

5B 

5B 

5B 

3D 

3EA0 

20 

6C 

69 

73 

74 

20 

64 

69 

:C9 

3F38 

72 

20 

A5 

A5 

20 

24 

00 

2A 

:4A 

3FB8 

68 

68 

5D 

3D 

63 

6C 

73 

74 

20 

3EA8 

72 

65 

63 

74 

6F 

72 

79 

0D 

:15 

3F40 

64 

IF 

CD 

BE 

IF 

CD 

E2 

IF 

:FB 

3FC0 

2E 

2B 

68 

5D 

3D 

72 

63 

72 

A2 

3EB0 

57 

20 

A5 

A5 

A5 

A5 

A5 

A5 

:55 

3F48 

2D 

24 

00 

11 

FF 

00 

19 

CD 

:47 

3FC8 

64 

2E 

2B 

68 

68 

5D 

3D 

61 

88 

3EB8 

A5 

A5 

20 

77 

69 

64 

74 

68 

:8A 

3F50 

BE 

IF 

CD 

EE 

IF 

CD 

E2 

IF 

:85 

3FD0 

64 

72 

73 

0D 

2A 

20 

72 

65 

77 

3EC0 

20 

73 

77 

69 

74 

63 

68 

20 

:D2 

3F58 

2A 

20 

68 

3D 

68 

65 

78 

28 

:5C 

3FD8 

74 

75 

72 

6E 

20 

66 

72 

6F 

30 

3EC8 

34 

30 

2F 

38 

30 

0D 

48 

20 

:70 

3F60 

30 

2D 

46 

29 

2C 

6E 

3D 

28 

:CB 

3FE0 

6D 

20 

6D 

6F 

6E 

69 

74 

6F 

23 

3ED0 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

A5 

:28 

3F68 

30 

2D 

39 

29 

2C 

43 

68 

72 

:08 

3FE8 

72 

3A 

4D 

5A 

3D 

4A 

33 

30 

3D 

3ED8 

20 

63 

6F 

6D 

6D 

61 

6E 

64 

:FF 

3F7d 

3D 

63 

68 

72 

61 

63 

74 

65 

: 17 

3FF0 

30 

30 

2C 

58 

31 

3D 

52 

0D 

B1 

3EE0 

20 

6C 

69 

73 

74 

0D 

21 

20 

:2A 

3F78 

72 

0D 

2A 

20 

64 

69 

72 

3D 

:45 

3FF8 

00 

C3 

C0 

30 

00 

00 

00 

00 

B3 

3EE8 

A5 

A K 

A Cl 

A K 

A5 

A5 

A5 

A5 

:28 





















AO 

AO 

AO 





















3EF0 

20 

72 

65 

74 

75 

72 

6E 

20 

:E0 

SUM: 

C8 

8E 

A7 

15 

E5 

B4 

61 

7A 

00 

SUM: 

D1 

31 

D4 

D5 

74 

C8 

39 

81 : 

:A1 


3EF8 

74 

6F 

20 

53 

2D 

4F 

53 

0D 

:32 

SUM: 

1 < 

1 CO 

4D 

F8 

B9 

81 

4F 

4A 

9A 

:3C 
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0000 

1 

J - 



3025 

CD 

B2 

IF 





84 

CALL ♦MPRNT 

0000 

2 

;S-OS SYSTEM LABEL 

3028 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

85 

DM "-":DB 

0000 

3 

; - 



$0D 










0000 

4 




302F 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

5 

#COLD 

EQU 

IFFDH 

3036 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

6 

#HOT 

EQU 

IFFAH 

303D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

7 

#VER 

EQU 

1FF7H 

3044 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

8 

#PBINT 

EQU 

1FF4H 

304B 

2D 

2D 

0D 







0000 

9 

♦PRINTS 

1 EQU 

IFFIH 

304E 

20 

20 

44 

20 

49 

20 

53 

86 

DM" DISK MONITOR ( DREAM )":DB $ 

0000 

10 

#LTNL 

EQU 

IFEBH 

0D 










0000 

11 

#NL 

EQU 

IFBBH 

3055 

20 

4B 

20 

20 

4D 

20 

4F 



0000 

12 

#MSG 

EQU 

1FE8H 

306C 

20 

4E 

20 

49 

20 

54 

20 



0000 

13 

#MSX 

EQU 

1FB5H 

3063 

4F 

20 

52 

20 

20 

28 

20 



0000 

14 

#MPRNT 

EQU 

1FE2H 

306A 

44 

52 

45 

41 

4D 

20 

29 



0000 

15 

#TAB 

EQU 

IFDFH 

3071 

0D 









0000 

16 

#LPRNT 

EQU 

IFDCH 

3072 

20 

20 

20 

20 

20 

20 

20 

87 

DM " May. '86 by H.Kanayama":DB $0D 

0000 

17 

#LPTON 

EQU 

1FD9H 

3079 

4D 

61 

79 

2E 

20 

27 

38 



0000 

18 

tLPTOF 

EQU 

1FD6H 

3080 

36 

20 

20 

20 

62 

79 

20 



0000 

19 

#GETL 

EQU 

1FD3H 

3087 

48 

2E 

4B 

61 

6E 

61 

79 



0000 

20 

fOBTKY 

EQU 

1FD0H 

308E 

61 

6D 

61 

0D 






0000 

21 

#BRKEY 

EQU 

IFCDH 

3092 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

88 

BO 

Q 

X 

a 

0000 

22 

#INKBY 

EQU 

IFCAH 

$0D: 

:$0O 








0000 

23 

♦PAUSE 

EQU 

1FC7H 

3099 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

24 

♦BELL 

EQU 

1FC4H 

30A0 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

25 

♦PRTHX 

EQU 

IFCIH 

30A7 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

26 

♦PRTHL 

EQU 

IFBEH 

30AE 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 

27 

♦ASC 

EQU 

IFBBH 

30B5 

2D 

2D 

0D 

00 






0000 

28 

♦HEX 

EQU 

1FB8H 

30B9 

CD 

EE 

IF 





89 

♦DMHOT CALL ♦LTNL 

0000 

29 

♦ 2HBX 

EQU 

1FB5H 

30BC 

AF 







90 

XOR A 

0000 

30 

♦HLHEX 

EQU 

1FB2H 

30BD 

32 

6E 

3C 





91 

LD (♦MFLO.A 

0000 

31 

♦PEEK 

EQU 

1F94H 

30C0 

CD 

B2 

IF 





92 

♦GETCOM CALL ♦MPRNT 

0000 

32 

♦PEEK® 

EQU 

1F91H 

30C3 

40 

3E 

00 





93 

DM "®>":DB $00 

0000 

33 

♦MON 

EQU 

1F8EH 

30C6 

CD 

49 

31 





94 

♦GCOMl CALL ♦GTKY 

0000 

34 

[HL] 

EQU 

1F81H 

30C9 

lA 







95 

LD A,(DE) 

0000 

35 

♦GETPC 

EQU 

1F80H 

3 OCA 

FE 

IB 






96 

CP $1B 

0000 

36 

♦DRDSB 

EQU 

2000H 

30CC 

28 

F2 






97 

JR Z,♦GETCOM 

0000 

37 

♦DWTSB 

EQU 

2003H 

30CE 

CD 

74 

31 





98 

CALL ♦PRMPT 

0000 

38 

♦CSR 

EQU 

2018H 

30D1 

DA 

C0 

30 





99 

JP C,♦GETCOM 

0000 

39 

♦ SCRN 

EQU 

201BH 

30D4 

lA 







100 

LD A,(DE) 

0000 

40 

♦LOC 

EQU 

201 EH 

30D5 

13 







101 

INC DE 

0000 

41 

♦FLGET 

EQU 

2021H 

30D6 

FE 

4C 

20 

03 

C3 

BD 

31 

102 

IF A=”L” THEN JP ♦LOAD 

0000 

42 

♦RDVSW 

EQU 

2024H 

30DD 

FE 

24 

20 

03 

C3 

AF 

35 

103 

IF A="$" THEN JP ♦SAVE 

0000 

43 

♦SDVSW 

EQU 

2027H 

30E4 

FB 

44 

20 

03 

C3 

01 

35 

104 

IF A="D" THEN JP ♦MDMP 

0000 

44 

♦WIDCH 

EQU 

2030H 

30EB 

FE 

46 

20 

03 

C3 

63 

36 

105 

IF A="F" THEN JP ♦FCOM 

0000 

45 

♦ERROR 

EQU 

2033H 

30F2 

FE 

26 

20 

03 

C3 

7B 

39 

106 

IF A="4" THEN JP ♦CLCT 

0000 

46 

:- WORK AREA - 

30F9 

FB 

41 

20 

03 

C3 

DA 

3A 

107 

IF A=*’A" THEN JP ♦INST 

0000 

47 

♦USR 

EQU 

1F7EH 

3100 

FB 

54 

20 

03 

C3 

Bl 

38 

108 

IF A="T” THEN JP ♦TBL? 

0000 

48 

♦DVSW 

EQU 

1F7DH 

3107 

FE 

56 

20 

03 

C3 

36 

39 

109 

IF A=’’V" THEN JP ♦CDV 

0000 

49 

♦ LPSW 

EQU 

1F7CH 

310E 

FB 

3F 

20 

03 

C3 

B5 

37 

110 

IF A="?" THEN JP ♦ASK 

0000 

50 

♦KBFAD 

EQU 

1F76H 

3115 

FE 

50 

20 

03 

C3 

29 

38 

111 

IF A="P" THEN JP ♦LPT 

0000 

51 

♦STKAD 

EQU 

1F6CH 

311C 

FE 

4D 

20 

03 

C3 

08 

38 

112 

IP A="M” THEN JP ♦MONJ 

0000 

52 

♦DIRNO 

EQU 

1F67H 

3123 

FE 

43 

20 

03 

C3 

64 

35 

113 

IF A="C" THEN JP ♦DCNT 

0000 

S3 

♦DTBUF 

EQU 

1F64H 

312A 

FE 

57 

20 

03 

C3 

DF 

3B 

114 

IF A="W" THEN JP ♦WSIZ 

0000 

54 

♦FATBF 

EQU 

1F62H 

3131 

FE 

48 

20 

03 

C3 

00 

3D 

115 

IF A="H" THEN JP ♦HELP 

0000 

55 

♦DIRPS 

EQU 

IFSOH 

3138 

FE 

21 

20 

03 

C3 

6A 

38 

116 

IF A="!" THEN JP ♦RTRN 

0000 

56 

♦FATPOS EQU 

1F5BH 

313F 

FE 

51 

20 

03 

CD 

FA 

39 

117 

IF A="Q" THEN CALL ♦DIRP 

0000 

57 

♦ DSK 

EQU 

1F5DH 

3146 

C3 

C0 

30 





118 

JP ♦GETCOM 

0000 

58 

♦WIDTH 

EQU 

1F5CH 

3149 








119 


0000 

59 

;- LABEL I 

5ND- 

3149 

ED 

SB 

76 

IF 




120 

♦GTKY LD DB,(♦KBFAD) 

0000 

60 

;- 



314D 

CD 

D3 

IF 





121 

CALL ♦GETL 

0000 

61 

: DISK 

READ, 

.EDIT k ARRANGE MONITOR 

3150 

C9 







122 

RET 

0000 

62 


( 

DREAM ) 

3151 








123 


0000 

63 

; - 



3151 

CD 

21 

20 





124 

♦YNKY? CALL ♦FLGET 

0000 

64 

START 

EQU 

$3000 

3154 

FE 

59 






125 

CP "Y” 

0000 

65 


OFFSET $D000-START 

3156 

28 

06 






126 

JR Z.YKY 

3000 

66 


ORG 

START 

3158 

FE 

4E 






127 

CP "N" 

3000 

67 




315A 

28 

04 






128 

JR Z.NKY 

3000 BD 73 6C 3C 

68 

♦DMON 

LD 

(♦SPBF),SP 

315C 

18 

F3 






129 

JR ♦YNKY? 

3004 3A 6E 3C 

69 


LD 

A,(♦MFLO) 

315E 

B7 







130 

YKY OR A 

3007 B7 

70 


OR 

A 

315F 

C9 







131 

RET 

3008 C2 B9 30 

71 


JP 

NZ,$DMHOT 

3160 

37 







132 

NKY SCF 

3O0B 32 70 3C 

72 


LD 

(♦FFLO),A 

3161 

C9 







133 

RET 

300E 32 71 3C 

73 


LD 

(♦RFLO),A 

3162 








134 


3011 3E 10 

74 


LD 

A,16 

3162 

F5 







135 

♦PLB PUSH AF 

3013 32 7E 3C 

75 


LD 

(♦LBYT),A 

3163 

CD 

F4 

IF 





136 

CALL ♦PRINT 

3016 3A 5C IF 

76 


LD 

A,(♦WIDTH) 

3166 

CD 

EE 

IF 





137 

CALL ♦LTNL 

3019 FB 50 

77 


CP 

$50 

3169 

CD 

C4 

IF 





138 

CALL ♦BELL 

301B 28 05 

78 


JR 

Z,♦CRT 

316C 

FI 







139 

POP AF 

301D 3E 08 

79 


LD 

A,8 

316D 

C9 







140 

RET 

301F 32 7B 3C 

80 


LD 

(♦LBYT),A 

316E 








141 


3022 

81 

;- 



316E 

3E 

0C 






142 

♦CLS LD A,$0C 

3022 

82 

♦CRT 



3170 

CD 

F4 

IF 





143 

CALL ♦PRINT 

3022 CD 6B 31 

83 


CALL ♦CLS 

3173 

C9 







144 

RET 


^ ii iXlG^ 7 Z / —-7y^Xl■t* (=3 T'( ^ — 9DREAM 155 

i L/JOCRTC0R5 CIOC i;, 

i$mrb ^(D-c'-ro t. (is) 




















THE SENTINEL 


3174 

3174 

lA 







145 ;- 

146 #PRMPT 

LD 

A,(DB) 

3290 

3291 

Cl 

10 

B6 






276 

277 

3175 

13 







147 

INC 

DB 

3293 

CD 

El 

33 





278 

3176 

FB 

40 






148 

CP 


3296 

CD 

D6 

IF 





279 

3178 

20 

07 






149 

JR 

NZ.PJl 

3299 

eg 







280 

317A 

lA 







150 

LD 

A.(DB) 

329A 








281 

317B 

13 







151 

INC 

DB 

329A 

DD 

7B 

01 





282 

317C 

FB 

3E 






152 

CP 

">" 

329D 

CD 

BB 

IF 





283 

317B 

C8 







153 

RBT 

Z 

32A0 

CD 

F4 

IF 





284 

317F 

37 







154 

SCF 


32A3 

DD 

7B 

00 





285 

3180 

C9 







155 

RBT 


32A6 

CD 

Cl 

IF 





286 

3181 

IB 







156 PJl 

DEC 

DB 

32A9 

C9 







287 

3182 

El 







157 

POP 

HL 

32AA 








288 

3183 

lA 







158 

LD 

A,(DB) 

32AA 

CD 

B2 

IF 

44 

65 

76 

69 

289 

3184 

FB 

3A 






159 

CP 

tl , ■« 

32B1 

63 

65 

3D 

00 





3186 

CA 

78 

38 





160 

JP 

Z,#MEDIT 

32B5 

3A 

5D 

IF 





290 

3189 

C3 

8F 

38 





161 

JP 

#RBDIT 

32B8 

CD 

F4 

IF 





291 

318C 








162 ;- 



32BB 

C9 







292 

318C 

lA 







163 SPCUT 

LD 

A,(DB) 

32BC 








293 

318D 

B7 







164 

OR 

A 

32BC 

CD 

AA 

32 





294 

318B 

28 

06 






165 

JR 

Z.SPJ 

32BF 

CD 

E2 

IF 

3A 

20 

00 


295 

3190 

FB 

20 






166 

CP 

$20 

32C6 

CD 

B2 

IF 

52 

65 

63 

6F 

296 

3192 

C0 







167 

RBT 

NZ 

32CC 

72 

64 

20 

4E 

6F 

2B 

24 


3193 

13 







168 

INC 

DB 

32D3 

00 








3194 

18 

F6 






169 

JR 

SPCUT 

32D4 

DD 

21 

78 

3C 




297 

3196 

37 







170 SPJ 

SCF 


32D8 

CD 

9A 

32 





298 

3197 

C9 







171 

RET 


32DB 

3B 

3D 






299 

3198 








172 ;- 



32DD 

CD 

F4 

IF 





300 

3198 

B7 







173 ASCCK 

OR 

A 

32E0 

D5 







301 

3199 

lA 







174 

LD 

A,(DB) 

32B1 

B5 







302 

319A 

FB 

3B 






175 

CP 

tl . t* 

32E2 

CD 

06 

3C 





303 

319C 

C0 







176 

RBT 

NZ 

32BS 

B1 







304 

319D 

13 







177 

INC 

DB 

32E6 

D1 







305 

319E 

C9 







178 

RBT 

;if A=";" then C 

32E7 

CD 

EE 

IF 





306 

319F 








179 ;- 



32EA 

C9 







307 

319F 

CD 

8C 

31 





180 #DTRD 

CALL 

SPCUT 

32BB 








308 

31A2 

38 

17 






181 

JR 

C,DJ3 

32EB 

CD 

El 

33 





309 

31A4 

CD 

98 

31 





182 

CALL 

ASCCK 

32BB 

3A 

7B 

3C 





310 

31A7 

28 

0C 






183 

JR 

Z.DJl 

32FI 

FB 

08 






311 

31A9 

lA 







184 

LD 

A,(DE) 

32F3 

CA 

8A 

33 





312 

31AA 

FB 

2F 






185 

CP 

"/" 

32F6 

CD 

B2 

IF 





313 

31AC 

C8 







186 

RET 

Z 

32F9 

41 

44 

52 

53 

2E 

3A 

2B 

314 

31AD 

CD 

B5 

IF 





187 

CALL 

«2HEX 

+A IB IC +D *E +F ' 




31B0 

DA 

64 

3C 





188 

JP 

C,«BRR14 ; JR C.DJ4 

3300 

30 

20 

2B 

31 

20 

2B 

32 


31B3 

18 

02 






189 

JR 

DJ2 

3307 

20 

2B 

33 

20 

2B 

34 

20 


31B5 

lA 







190 DJI 

LD 

A,(DE) 

330B 

2B 

35 

20 

2B 

36 

20 

2B 


31B6 

13 







191 

INC 

DB 

3315 

37 

20 

ZB 

38 

20 

2B 

39 


31B7 

77 







192 DJ2 

LD 

(HL),A 

331C 

20 

2B 

41 

20 

2B 

42 

20 


31B8 

23 







193 

INC 

HL 

3323 

2B 

43 

20 

2B 

44 

20 

2B 


31B9 

18 

E4 






194 

JR 

#DTRD 

332A 

45 

20 

2B 

46 

20 




3 IBB 

77 







195 DJ3 

LD 

(HL),A 

332P 

2F 

20 

43 

68 

61 

72 

61 

315 

31BC 

C9 







196 

RBT 


3336 

63 

74 

65 

72 

20 

63 

6F 


31BD 








197 DJ4 ; 

POP 

HL 

333D 

64 

65 

0D 






31BD 








198 ; 

JP 

*BRR14 

3340 

2D 

2D 

2D 

2D 

2D 

2B 

2D 

316 




















31BD 

CD 

8C 

31 





200 «LOAD 

CALL 

SPCUT 

3347 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31C0 

38 

15 






201 

JR 

C.LDJl 

334E 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31C2 

IB 







202 

DEC 

DB 

3355 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31C3 

3E 

30 






203 

LD 

A,$30 

335C 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31CS 

12 







204 

LD 

(DB),A 

3363 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31C6 

CD 

B2 

IF 





205 

CALL 

fHLHEX 

336A 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31C9 

DA 

60 

3C 





206 

JP 

C,*ERR13 

3371 

2D 

2D 

2D 

2D 

2B 




3 ICC 

CD 

00 

32 





207 

CALL 

«RBCCK 

3376 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

317 

31CF 

DA 

64 

3C 





208 

JP 

C,»ERR14 

337D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31D2 

22 

76 

3C 





209 

LD 

(fRECNO).HL 

3384 

2D 

2D 

2D 

00 





31D5 

18 

03 






210 

JR 

LDJ2 

3388 

18 

53 






318 

31D7 

2A 

76 

3C 





211 LDJl 

LD 

HL,(«RBCNO) ;if no data 

338A 

CD 

E2 

IF 





319 

31DA 

22 

78 

3C 





212 LDJ2 

LD 

(*RECN02),HL 

338D 

20 

41 

44 

62 

53 

3A 

2B 

320 

31DD 

EB 







213 

EX 

DE.HL 

code' 

’:DI 

i $0D 






SIDE 

2A 

64 

IF 





214 

LD 

HL,(#DTBUF) 

3394 

30 

20 

2B 

31 

20 

2B 

32 


31E1 

3B 

01 






215 

LD 

A. 1 

339B 

20 

2B 

33 

20 

2B 

34 

20 


31E3 

CD 

00 

20 





216 

CALL 

*DRDSB 

33A2 

2B 

35 

20 

2B 

36 

20 

2B 


31B6 

DA 

66 

3C 





217 

JP 

C.fBRR 

33A9 

37 

20 

2F 

43 

68 

72 

20 


31E9 

3B 

01 






218 

LD 

A.l 

33B0 

63 

6F 

64 

65 

0D 




31BB 

32 

71 

3C 





219 

LD 

(fRFLG).A 

33BS 

2D 

2D 

2D 

2D 

2D 

2B 

20 

321 

31BE 

CD 

OC 

32 





220 

CALL 

fRDMP 

-• 

':DI 

1 $00 






31F1 

2A 

76 

3C 





221 

LD 

HL.(fRBCNO) 

33BC 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31F4 

CD 

00 

32 





222 

CALL 

fRBCCK 

33C3 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31P7 

38 

04 






223 

JR 

C,LDJ3 

33CA 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


31F9 

23 







224 

INC 

HL 

33D1 

2D 

2B 

2D 

2D 

2D 

2D 

2D 


31FA 

22 

76 

3C 





225 

LD 

(fRECNO),HL 

33D8 

2D 

2D 

2D 

2D 

00 




31FD 

C3 

C0 

30 





226 LDJ3 

JP 

fOBTCOM 

33DD 

CD 

BE 

IF 





322 

3200 








227 ;- 



33B0 

C9 







323 

3200 

E5 







228 #RBCCK 

PUSH 

HL 

33B1 








324 

3201 

D5 







229 

PUSH 

DB 

33B1 

CD 

E2 

IF 





325 

3202 

BB 







230 

BX 

DB.HL 

33B4 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

326 

3203 

21 

FF 

04 





231 

LD 

HL,$4FF 

-":DI 

1 $00 






3206 

B7 







232 

OR 

A 

33BB 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


3207 

ED 

52 






233 

SBC 

HL.DB 

33F2 

2D 

ZD 

2D 

2D 

2D 

2D 

2D 


3209 

D1 







234 

POP 

DB 

33F9 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


320A 

El 







235 

POP 

HL 

3400 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


320B 

C9 







236 

RBT 


3407 

2D 

2D 

2D 

2D 

00 




320C 








237 ;- 



340C 

3A 

7E 

3C 





327 

320C 

BD 

5B 

64 

IF 




238 fRDMP 

LD 

DB,(fDTBUF) 

340F 

FB 

08 






328 

3210 

CD 

6B 

31 





239 

CALL 

fCLS 

3411 

28 

24 






329 

3213 

CD 

6B 

32 





240 

CALL 

fRDMPl 

3413 

CD 

B2 

IF 





330 

3216 

BD 

53 

7F 

3C 




241 

LD 

(fDTBUFZ),DE 

3416 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

331 

321A 

3A 

7E 

3C 





242 

LD 

A,(fLBYT) 

B $00 








321D 

FB 

10 

20 

01 

C9 



243 

IF 

A=16 THBN RET 

341D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


3222 

CD 

B2 

IF 





244 DMPKY 

CALL 

fMPRNT 

3424 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


3225 

5B 

53 

50 

41 

43 

45 

5D 

245 

DM "1 

[SPACB]=half ,[CR]=return":DB $0D:$ 

342B 

2D 

2D 

2D 

2D 

2D 

2D 

2D 


00 











3432 

2D 

2D 

2D 

2D 

00 




322C 

3D 

68 

61 

6C 

66 

20 

2C 




3437 

CD 

EE 

IF 





332 

3233 

5B 

43 

52 

5D 

3D 

72 

65 




343A 

C9 







333 

323A 

74 

75 

72 

6E 

0D 

00 





343B 








334 

3240 

CD 

DO 

IF 





246 DMPKY1 

CALL 

fOETKY 

343B 

CD 

B2 

IF 

44 

75 

6D 

70 

335 

3243 

FB 

20 

20 

02 

18 

07 


247 

IF 

A=$20 THBN JR W40 

3442 

20 

24 

00 






3249 

FB 

0D 

20 

01 

C9 



248 

IF 

A=$0D THEN RET 

3445 

62 

6B 






336 

324E 

18 

F0 






249 

JR 

DMPKY1 

3447 

CD 

BE 

IF 





337 

3250 

EB 







250 W40 

EX 

DE.HL 

344A 

3A 

70 

3C 





338 

3251 

ED 

5B 

7F 

3C 




251 

LD 

DB,(fDTBUFZ) 

344D 

B7 







339 

3255 

B7 







252 

OR 

A 

344E 

20 

01 






340 

3256 

BD 

52 






253 

SBC 

HL.DB 

3450 

C9 







341 

3258 

20 

06 






254 

JR 

NZ,W40J1 

3451 

21 

00 

40 





342 

325A 

ED 

5B 

7F 

3C 




255 

LD 

DB,{fDTBUFZ) 

3454 

E5 







343 

325E 

18 

04 






256 

JR 

W40J2 

3455 

B7 







344 

3260 

ED 

5B 

64 

IF 




257 W40J1 

LD 

DB,(fDTBUF) 

3456 

ED 

52 






345 

3264 

3B 

0C 






258 W40J2 

LD 

A,$0C 

3458 

El 







346 

3266 

CD 

F4 

IF 





259 

CALL 

fPRINT 

3459 

F5 







347 

3269 

CD 

6E 

32 





260 

CALL 

fRDMPl 

345A 

CC 

C4 

IF 





348 

326C 

18 

B4 






261 

JR 

DMPKY 

345D 

FI 







349 

326E 








262 ;- 



345E 

28 

01 






350 

326E 

CD 

63 

38 





263 fRDMPl 

CALL 

fPRSW 

3460 

D0 







351 

3271 

CD 

BC 

32 





264 

CALL 

fDISPR 

3461 

01 

00 

80 





352 

3274 

CD 

EB 

32 





265 

CALL 

fSCALB 

3464 

B5 







353 

3277 

06 

10 






266 

LD 

B,16 

3465 

09 







354 

3279 

C5 







267 RDMPL 

PUSH 

BC 

3466 

01 

00 

01 





355 

327A 

DD 

21 

78 

3C 




268 

LD 

IX.fRBCNOZ 

3469 

B7 







356 

327B 

CD 

9A 

32 





269 

CALL 

fRBCN3 

346A 

ED 

42 






357 

3281 

7B 







270 

LD 

A.B 

346C 

B7 







358 

3282 

CD 

Cl 

IF 





271 

CALL 

fPRTHX 

346D 

BD 

52 






359 

3285 

3B 

3D 






272 

LD 

A, " = " 

346F 

Cl 







360 

3287 

CD 

F4 

IF 





273 

CALL 

fPRINT 

3470 

F5 







361 

328A 

CD 

DC 

34 





274 

CALL 

fLDMP 

3471 

CC 

C4 

IF 





362 

328D 

CD 

BB 

IF 





275 

CALL 

fLTNL 

3474 

FI 







363 


POP BC 
DJNZ RDMPL 
CALL tUNDRL 
CALL #LPTOP 
RBT 


LD A,(1X4^1) 
CALL «ASC 
CALL #PRINT 
LO A,(1X^0) 
CALL #PRTHX 
RBT 


CALL #MPRNT:DM "Devices":DB $00 

LD A.(#DSK) 

CALL #PRINT 
RBT 


CALL #DVP 
CALL «MPRNT:DM 
CALL #MPRNT:DM 


":DB $00 

'Record No.$":DB $00 


LD IX,#RBCN02 
CALL »RBCN3 
LD A,"=" 

CALL #PRINT 
PUSH DB 
PUSH HL 
CALL #HDCNV 
POP HL 
POP DB 
CALL *LTNL 
RBT 

CALL fUNDRL 
LD A,(#LBYT) 

CP $08 
JP Z.SJl 
CALL #MPBNT 
DM "ADBS.:+0 +1 +2 +3 


+ 4 +5 +6 4-7 +8 +9 


DM "/ Character code":DB $0D 


JR SJ2 
CALL #MPRNT 
DM " ADRS:+0 


1 +2 +3 +4 +5 +6 +7 /Chr 


CALL tLTNL 
RET 


CALL #MPRNT 


LD A,(#LBYT) 
CP $08 
JR Z,UDLJ 
CALL fMPRNT 

■dm "- 


CALL fMPRNT:DM "Duap $":DB $00 

LD HL.DB 
CALL #PRTHL 
LD A,(«PFLO) 

OR A 
JR NZ.RBCP 


OR A 
SBC HL,DE 
POP HL 
PUSH AP 
CALL Z.fBBLL 
POP AF 
JR Z.RCPJ 
RET NC 
LD BC.tSRCL 
PUSH HL 
ADD HL.BC 
LD BC,$0100 


SBC 

OB 

SBC 

POP 

PUSH 

CALL 

POP 


HL,BC 

A 

HL.DE 


AF 

Z.iBELL 


156 OhIMZ 1986.10. 


rxiMj i-fo h—’’H j U theXj 7{;o ! 

KiiS t: (17) 























3475 

3477 

":DB 

347B 

3485 

348C 

3492 

3493 
349A 
34A1 
34A6 
34A8 
34A9 
34AB 
34AC 
34AF 
34Be 
34B2 
34B4 
34B8 
34BA 
34BB 
34BC 
34BD 
34BE 
34Ce 
34C1 
34C2 
34C3 
34C6 
34C9 
34CA 
34CD 
34CE 
34D1 
34D3 
34D6 
34D7 
34DA 
34DB 
34DC 
34DC 
34DD 
34Ee 
34E1 
34E2 
34E3 
34E4 
34E7 
34EA 
34EC 
34EE 
34F1 
34F2 
34F3 
34F4 
34F5 
34FB 
34FE 

3500 

3501 
3501 
3504 
3506 
350A 
350C 
350F 

3512 

3513 
3516 
3519 
351C 
351F 
3522 

3524 

3525 
3527 
352A 
352C 
352F 
3531 
3534 
3537 
353A 
353B 
3530 
3541 
3544 
3647 
354B 
354C 
354F 
3551 
3654 

3555 

3556 
3558 
355C 
355P 
3562 
3564 
3564 
3567 

3569 
356A 
356C 
356B 

3570 
3572 
3574 
3576 

3579 
357A 
367C 
357E 

3580 

3581 

3583 

3584 
3587 
358A 
358B 
3580 
3590 
3593 
359A 
35A1 
35A2 
35A3 
35A6 
35A9 
3 5 AC 
35AF 
35AF 
35B2 



62 6B 
B7 

EO 42 


10 FA 

40 

44 

El 

6C 

26 00 


10 F6 
3E 2F 


10 F3 
C9 


38 09 
lA 

FB 30 
28 08 
30 OC 
18 3A 
3B 35 
18 06 
21 01 
P5 

18 11 
FB 3A 
30 2C 
F5 

D6 30 
47 

21 00 
11 00 







364 

JR 

NC,RCPJl 


IB 

■ 

■ 

IP 

20 

20 

20 

20 

365 

CALL 

IMPRNT-.OM '• 

35B5 

3B 

30 










35B7 

12 



20 

20 

20 

20 

20 




35B8 

CD 

B2 

IF 

20 

20 

20 

20 

20 




35BB 

DA 

60 

3C 

20 

20 

20 

00 





35BB 

CD 

00 

32 






366 

RET 


35C1 

DA 

64 

3C 

IF 

3A 

20 

20 

52 

367 RCPJl 

CALL 

IMPRNT-.OM ": Record No. $":DB $00 

35C4 

22 

7A 

3C 

6F 

72 

64 

20 

4E 




35C7 

18 

06 


20 

24 

00 






35C9 

2A 

78 

3C 






368 

LO 

HL.DE 

35CC 

22 

7A 

3C 






369 

OR 

A 

36CF 

3A 

71 

3C 






370 

SBC 

HL.BC 

3502 

B7 








371 

PUSH 

HL 

3503 

C2 

F3 

35 

3C 





372 

LD 

A,dORPBF2) ;cluster groupe 

3506 

CD 

C4 

IF 






373 

LO 

L.A 

3509 

CD 

E2 

IF 






374 

LO 

H,$00 

$00:$00 








375 

LO 

B,7 

35E0 

61 

74 

61 

CB 

14 




376 BCPL 

SLA 

L:RL H 

35E7 

77 

72 

69 






377 

OJNZ 

RCPL 

35EE 

00 

00 







378 

LO 

C.L 

35F0 

C3 

C0 

30 






379 

LO 

B.H 

35F3 

CD 

C4 

IF 






380 

POP 

HL 

35F6 

CD 

B2 

IF 






381 

LD 

L.H 

35PD 

65 

20 

24 






382 

LD 

H,$00 

3601 

DO 

21 

78 






383 

OR 

A 

3605 

CD 

9A 

32 






384 

ADO 

HL.BC 

3608 

3B 

3D 







385 

LD 

A.H 

360A 

CD 

F4 

IF 

IF 





386 

CALL 

♦ASC 

3600 

CD 

06 

3C 

IF 





387 

CALL 

•PRINT 

3610 

CD 

E2 

IF 






388 

LD 

A.L 

3617 

24 

00 


IF 





389 

CALL 

IPRTHX 

3619 

DO 

21 

7A 






390 

XOR 

A 

3610 

CD 

9A 

32 

3C 





391 

LD 

(•FLAG),A 

3620 

3E 

3D 







392 

LD 

A,"r" 

3622 

CD 

F4 

IF 

IF 





393 

CALL 

IPRINT 

3625 

AF 








394 

PUSH 

OB 

3626 

32 

57 

3C 

3C 





395 

CALL 

HOCNVl 

3629 

2A 

7A 

3C 






396 

POP 

DE 

362C 

CD 

0D 

3C 






397 

RET 


362F 

CD 

E2 

IF 






398 ;- 



3636 

4E 

29 

3F 






399 ILDMP 

PUSH 

DE 

363A 

CD 

51 

31 

3C 





400 

LD 

A, (ILBYT) 

3630 

CD 

62 

31 






401 

LD 

B.A 

3640 

38 

IE 







402 

PUSH 

BC 

3642 

ED 

5B 

7A 






403 LDLPl 

LD 

A,(OB) 

3646 

2A 

64 

IF 






404 

INC 

DE 

3649 

3B 

01 


IF 





405 

CALL 

IPRTHX 

364B 

CO 

03 

20 

IF 





406 

CALL 

•PRINTS 

364E 

DA 

66 

3C 






407 

OJNZ 

LDLPl 

3651 

CD 

B2 

IF 






408 

LD 

A,"/" 

3658 

6C 

65 

74 

IF 





409 

CALL 

IPRINT 

365F 

00 








410 

POP 

BC 

3660 

C3 

C0 

30 






411 

POP 

OB 

3663 









412 LOLP2 

LD 

A,(OB) 

3663 

CD 

8C 

31 






413 

INC 

DE 

3666 

38 

ID 


30 

02 

3E 

2E 


414 

IF A<$20 THEN LD A,"." 

3668 

lA 



IF 





415 

CALL 

IPRINT 

3669 

13 








416 

OJNZ 

LDLP2 

366A 

CD 

B8 

IF 






417 

RET 


3660 

DA 

60 

3C 






418 ;- 



3670 

CD 

CA 

36 

31 





419 IMOMP 

CALL 

SPCUT 

3673 

DA 

64 

3C 






420 

JR 

NC.MJPl 

3676 

32 

72 

3C 

7C 

3C 




421 

LD 

DE,(IMADR) 

3679 

CD 

8C 

31 






422 

JR 

MJP2 

367C 

DA 

85 

36 

IF 





423 MJPl 

CALL 

IHLHBX 

ta RET 



3C 





424 

JP 

C.IBRR13 

367F 

21 

89 

3C 






425 

EX 

DE.HL 

3682 

CD 

9F 

31 

31 





426 MJP2 

CALL 

ICLS 

3685 

16 

00 


38 





427 MJP3 

CALL 

IPRSW 

3687 

3A 

72 

3C 

34 





428 

CALL 

IRBCP 

368A 

32 

73 

3C 

IF 





429 

CALL 

ILTNL 

3680 

6F 



32 





430 

CALL 

•SCALE 

368E 

06 

07 







431 

LD 

B. 16 

3690 

CB 

23 







432 MDMPL 

PUSH 

BC 

3692 

CB 

12 







433 

LD 

A,";" 

3694 

10 

FA 


IF 





434 

CALL 

IPRINT 

3696 

21 

00 

40 






435 

LD 

HL.OB 

3699 

3B 

80 


IF 





436 

CALL 

IPRTHL 

369B 

CD 

00 

20 






437 

LD 

A, "r" 

369E 

DA 

66 

3C 

IF 





438 

CALL 

IPRINT 

36A1 

3B 

01 


34 





439 

CALL 

ILDMP 

36A3 

32 

70 

3C 

IF 





440 

CALL 

ILTNL 

36A6 

CD 

63 

38 






441 

POP 

BC 

36A9 

CD 

D1 

36 






442 

OJNZ 

MDMPL 

36AC 

CD 

19 

37 

7C 

3C 




443 

LD 

(IMADR),DB 

36AF 

CD 

EB 

IF 

33 





444 

CALL 

lUNDRL 

36B2 

3A 

72 

3C 

IF 





445 

CALL 

ILPTOF 

36B5 

CD 

CA 

36 

87 

3C 




446 

LD 

BC,(IDELAY) 

36BB 

38 

07 







447 OLYL 

DEC 

BC 

36BA 

3C 



IF 





448 

CALL 

•GBTKY 

36BB 

32 

72 

3C 






449 

CP 

$20 

36BE 

CD 

D6 

IF 

30 





450 

JP 

Z, IGETCOM 

36C1 

21 

00 

40 






451 

LD 

A.B 

36C4 

22 

7C 

3C 






452 

OR 

C 

36C7 

C3 

C0 

30 






453 

JR' 

NZ.OLYL 

36CA 

F5 



7C 

3C 




454 

LD 

DE.(IMADR) 

36CB 

47 



00 





455 

LD 

HL.$0000 

36CC 

3E 

09 


20 





456 

CALL 

ILOC 

36CB 

90 








457 

JR 

MJP3 

36CF 

FI 








458 ;- 



3600 

C9 



31 





459 IDCNT 

CALL 

SPCUT 

3601 









460 

JR 

C.DCN 

3601 

CD 

E2 

IF 






461 

LD 

A.(DE) 

3608 

70 

65 

3D 






462 

CP 

$30 

36DC 

3A 

73 

3C 






463 

JR 

Z,DC0 

36DF 

F5 








464 

JR 

NC.DCl 

36B0 

CD 

BB 

IF 






465 

JR 

OCR 

36E3 

CD 

F4 

IF 






466 DCN 

LD 

A,$35 

36E6 

CD 

E2 

IF 






467 

JR 

DCl 

36ED 

75 

73 

74 

00 





468 DC0 

LD 

HL,$0001 

36F4 

6F 

2E 

24 






469 

PUSH 

AF 

36F8 

06 

03 







470 

JR 

OCP 

36FA 

FI 








471 DCl 

CP 

$3A 

36FB 

CB 

27 







472 

JR 

NC.DCB 

36FD 

10 

FC 







473 

PUSH 

AF 

36FF 

F5 








474 

SUB 

$30 

3700 

CD 

Cl 

IF 






475 

LD 

B.A 

3703 

CD 

B2 

IF 

00 





476 

LD 

HL,$0000 

3709 

FI 



10 





477 

LD 

DE,$1000 

370A 

C6 

07 







478 OCL 

ADD 

HL.DB 

370C 

CD 

Cl 

IF 






479 

OJNZ 

DCL 

370F 

CD 

EE 

IF 

3C 





480 OCP 

LD 

(•DELAY),HL 

3712 

CD 

63 

37 

IF 





481 

CALL 

IMPRNT 

3715 

CD 

EE 

IF 

6C 

61 

79 

20 

63 

482 

DM "Delay counterr":DB $00 

3718 

C9 



6B 

74 

65 

72 

30 




3719 












3719 

01 

00 

80 






483 

POP 

AF 

371C 

21 

00 

40 

IF 





484 

CALL 

IPRINT 

371F 

B5 



IF 





485 

CALL 

• BELL 

3720 

09 



IF 





486 

CALL 

ILTNL 

3721 

44 

4D 


30 





487 OCR 

JP 

IGETCOM 

3723 

21 

89 

3C 






488 ;- 



3726 

7E 



31 





489 ISAVE 

CALL 

SPCUT 

3727 

El 








490 

JR 

C,SAVEl 

3728 

B7 





9 

1 





IF 4B 6F 20 64 


20 74 6F 20 


IF 20 69 6E 20 


491 

492 

493 

494 

495 

496 

497 

498 

499 

500 SAVEl 

501 

502 SAVE2 

503 

504 

505 


507 

508 SVJ 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 
624 

525 #SV? 

526 

528 svy 

529 

530 

531 

532 

533 


534 SVR 

535 ;- 

536 *FCOM 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 


OEC OB 
LO A,$30 
LO (OB),A 
CALL fHLHBX 
JP C.«ERR13 
CALL *RBCCK 
JP C,tBRR14 
LO («RECN03),HL 
JR SAVB2 
LO HL,(«RECN02) 

LO («RECN03),HL 
LO A,(#RFLO) 

OR A 
JP •NZ.SVJ 
CALL IBELL 

CALL #MPRNT:DM "No data to write 


JP iOETCOM 
CALL «BBLL 

CALL iMPRNT-.OM "Write $":BB $00 

LO 1X.«RECN02 
CALL fRBCNJ 
LO A,"=" 

CALL fPRINT 
CALL #HOCNV 

CALL •MPRNTrOM " in $":DB $00 

LO IX,#RBCN03 
CALL «RECN3 
LO A,"=" 

CALL iPRlNT 
XOR A 

LO (*FLAG),A 
LO HL.(«RECN03) 

CALL HOCNVl 

CALL #MPRNT:OM ":(Y/N)?":DB $00 

CALL #YNKY? 

CALL IPLB 
JR C,SVR 
LO OE,(tRECN03) 

LO HL.dOTBUF) 


LO 


A, 1 


CALL fOWTSB 
JP C.tERR 

CALL #MPRNT:OM "Complete !":DB $00:$00 


JP 


«GETCOH 


IF 20 24 00 


547 

548 

549 IFINO 

550 

551 

552 

553 

554 *SFTCR 

555 

556 

557 PINOL 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 FOLJ 

574 

575 

576 iGRPCK 

577 

578 

579 

580 

581 

582 ;- 

583 fOISPG 

584 

585 

586 

587 


589 

590 

591 SSFT 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 ;- 

604 fSRCH 

605 


CALL SPCUT 
JR C,*FIN0 
LO A,(OB) 

INC OB 
CALL «HBX 
JP C,#EBR13 
CALL #GBPCK 
JP C,#ERR14 
LO («GRPBF),A 
CALL SPCUT 
JP C,IFINO 

LO HL.ISRCBF 
CALL lOTRO 


;if no search da 


O,$00 
LO A.dGRPBF) 

LO («ORPBF2).A 
LO E.A 
LO B,7 
SLA B 
RL 0 

OJNZ ISPTCR ;OB=top recno 

LO HL.tCLWK 
LO A.$80 

CALL lOROSB ;read 8clBt $6000-$E000 
JP C.IBRR 
LO A, 1 
LO (iPFLG),A 
CALL iPRSW 
CALL fOISPG 
CALL tSRCH 
CALL INL 
LO A.dGRPBF) 

CALL IGRPCK 
JR C.FOLJ 
INC A 

LO (IGRPBF),A 
CALL ILPTOF 
LO HL,$4OO0 
LO (IMAOR),HL 
JP IGETCOM 
PUSH AF 
' LO B,A 
LO A, 9 

SUB B 
POP AP 
BBT 


CALL IMPRNTlOM "Grouper":OB $00 

LO A,(IGRPBF2) 

PUSH AF 
CALL lASC 
CALL IPRINT 

CALL •MPBNT:OM Cluster No.$":OB $00 


LO B,3 
POP AF 
SLA A 
OJNZ SSFT 
PUSH AF 
CALL IPRTHX 

CALL IMPRNT:DM "-$":DB $00 

POP AF 

AOO A.$07 

CALL IPRTHX 

CALL ILTNL 

CALL IPOT 

CALL ILTNL 

RET 


607 

608 

609 

610 
611 
612 


r’fjiio'C L o/Jo 2i}r\ t/j'*-(> r l i ^/jco/Zo >Mi 

\ ( 16 ) 


LO BC,ISRCL ;'rea size to search 

LO HL.ICLWK -.data buffer 

PUSH HL 
AOO HL,BC 

LO B,H:LO C,L ;end of area size 
LO HL.ISRCBF 
LO A.(HL) 

POP HL 
OR A 


x < DREAM 157 











THE 8ENTINE1 




3729 

372A 

372D 

372E 

372F 

3731 

3732 

3734 

3735 

3736 

3737 
3739 
373A 
373B 
373D 
373E 
373F 

'3740 

3743 

3744 

3745 

3747 

3748 
374A 
374C 
374F 

3751 

3752 

3753 

3756 

3757 

3758 
375B 
375E 
3761 
3763 
3763 
376A 
3771 
3774 

3777 

3778 

3779 
377A 
377C 
377D 

3780 
3783 

3785 

3786 
3788 
378B 
378C 
378D 
378B 
378F 
3795 
3798 
379A 
379A 
379D 
37A0 
37A1 
37A4 
37A5 
37A7 
37AA 
37AD 
37B0 
37B1 
37B3 
37B5 
37B6 
37B8 
37BC 
37BE 
37C0 
37C2 
37C4 
37C6 
37C7 
37C9 
37CC 
37CD 
37D0 
37D3 
37D4 
37D7 
37DA 
37DB 
37DE 
37B4 
37B5 
37B5 
37B8 
37BB 
37F1 
37F4 
37F7 
37F8 
37FB 
37FE 
37FF 
3802 
3805 
3808 
3808 
380B 
380C 
380E 
3810 
3812 
3815 
3817 
381A 
381D 
3820 
3823 
3826 
3829 

3829 
382C 
382D 
382F 

3830 
3833 

3835 

3836 

3837 
383A 
383D 
383E 
383F 
3842 
3845 


C8 


613 

RET 

Z 

3848 

CD 

BS 

IF 

■ 


746 


CALL #MSX 

11 

89 3C 

614 LP0 

LD 

DE.iSRCBF 

384B 

C3 

C0 

30 



747 


JP iGBTCOM 

lA 


615 LP 

LD 

A,(DE) 

384E 

4C 

50 

54 

20 

4F 4B 20 

748 

ONM 

DM "LPT ON !":DB $ 

B7 


616 

OR 

A 

3855 

21 

0D 

00 






28 

20 

617 

JR 

Z.iFND 

3858 

4C 

50 

54 

20 

4F 46 46 

749 

OFM 

DM "LPT OFF !":DB 

BE 


618 LPl 

CP 

(HL) 

385F 

20 

21 

0D 

00 





28 

09 

619 

JR 

Z,J1 

3863 






750 



23 


620 

INC 

HL 

3863 

3A 

6F 

3C 



751 

♦ PRSW 

LD A,(#LPSVf2) 

B5 


621 

PUSH 

HL 

3866 

32 

7C 

IP 



752 


LD (#LPSW),A 

B7 


622 

OR 

A 

3869 

C9 





753 


RET 

ED 

42 

623 

SBC 

HL.BC 

386A 






754 

;- 


El 


624 

POP 

HL 

386A 

AF 





755 

#RTRN 

XOR A 

C8 


625 

RET 

Z 

386B 

32 

6F 

3C 



756 


LD («LPSW2),A 

18 

ED 

626 

JR 

LP0 

386E 

32 

6B 

3C 



757 


LD («MFLG),A 

13 


627 J1 

INC 

DE 

3871 

ED 

7B 

6C 

3C 


758 


LD SP,(#SPBF) 

23 


628 

INC 

HL 

3875 

C3 

FD 

IP 



759 


JP #COLD 

E5 


629 

PUSH 

HL 

3878 






760 

•_ 


21 

89 3C 

630 

LD 

HL.fSRCBF 

3878 

13 





761 

#MEDIT 

INC DE 

23 


631 

INC 

HL 

3879 

CD 

B2 

IF 



762 


CALL «HLHEX 

B7 


632 

OR 

A 

387C 

DA 

64 

3C 



763 


JP C,#ERB14 

ED 

52 

633 

SBC 

HL.DE 

387F 

13 





764 


INC DE 


El 

28 02 
18 El 
22 81 3C 
18 DC 
D5 
C5 

CD 9A 37 

Cl 

D1 

CD CD IF 

CA C0 30 

2A 81 3C 

18 C7 

CD E2 IF 53 65 61 72 

63 68 20 64 61 74 61 

3D 20 00 

11 89 3C 

D5 

lA 


CD Cl IF 
CD FI IF 
18 F3 
D1 

3E 2F 
CD F4 IF 


FB 20 30 02 3E 2E 
CD F4 IF 
18 FI 


635 

636 

637 J2 

638 

639 #FND 

640 

641 

642 

643 

644 

645 

646 

647 

648 ;- 

649 #PDT 


650 

651 

652 PDLPl 

653 

654 

655 

656 

657 

658 

659 PDJl 


662 PDLP2 

663 

664 


LD 

JR 


(fPINDBF),HL 
LP 


PUSH DE 
PUSH BC 
CALL #FDISP 
POP BC 
POP DE 
CALL iBRKBY 
Z,#GETCOM 
HL,(#FINDBF) 
LP0 


JP 


666 

667 


11 00 40 
B7 

ED 52 
01 00 01 
11 00 00 
22 83 3C 
B7 

ED 42 
38 03 
13 

18 F5 

3A 72 3C 6F 
26 00 
06 07 
CB 25 
CB 14 
10 FA 

19 

3E 24 
CD F4 IF 
7C 

CD BB IF 
CD F4 IF 
7D 

CD Cl IF 
2A 83 3C 
7D 

CD Cl IF 

CD FI IF CD FI IF 
C9 

CD 63 38 
CD AA 32 

CD E2 IF 3A 20 00 
CD 04 39 
3A 71 3C 
B7 

C4 C5 32 
3A 70 3C 
B7 

C4 D1 36 
CD D6 IF 
C3 C0 30 

CD F7 IF 
7C 

FE 20 
28 07 
3E 01 
32 6E 3C 
18 06 

21 20 38 

22 53 10 
C3 8E IF 

21 FA IF 

22 53 10 
C3 C0 30 

3A 6F 3C 


11 58 38 
18 0D 


CD DC IF 
DA 58 3C 
FI 
2F 

11 4E 38 
32 6F 3C 
CD C4 IF 


689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 


711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 


732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 


CALL #MPBNT:DM "Search data= ":DB $00 


LD DE,#SRCBF 
PUSH DE 
LD A,(DE) 

OR A 
JR Z.PDJl 
INC DE 
CALL #PRTHX 
CALL IPRINTS 
JR PDLPl 
POP DE 
LD A,"/" 

CALL #PRINT 
LD A,(DE) 

OR A 
RET Z 
INC DE 

IF A<$20 THEN LD A, 
CALL #PRINT 
JR PDLP2 


670 #FDISP 

671 

672 

673 

674 

675 

676 

677 

678 FLP 

679 

680 
681 
682 

683 

684 FJl 


CALL »BELL 
LD HL,(#FINDBF) 
DEC HL 
LD DE,fCLWK 
OR A 
SBC HL,DE 
LD BC,$0100 
LD DB,$0000 
LD (#FNDBF2),HL 
OR A 
SBC HL.BC 
JR C,FJ1 
INC DE 
JR FLP 

LD A,(#GRPBF):LD 
LD H,$00 


;relative address 


;absolute recno 


SLA L 
RL H 
DJNZ FLP2 
ADD HL,DE 
LD A,"$" 

CALL #PBINT 

LD A,H 

CALL #ASC 

CALL #PRINT 

LD A,L 

CALL #PRTHX 

LD HL,(«FNDBF2) 

LD A,L 
CALL #PRTHX 

CALL #PRINTS:CALL #PRINTS 
RET 


«ASK 

CALL 

CALL 

CALL 

CALL 

LD 

OR 

CALL 

LD 

OR 

CALL 

CALL 

JP 

#PBSW 

#DVP 

#MPRNT:DM " 

#DFTP 

A, {#RFLG) 

A 

NZ.SIDPRl 

A,(fPFLG) 

A / 

NZ,#DISPO 
#LPTOF 
#GETCOM 

#MONJ 

CALL 

#VER 


LD 

A.H 


CP 

$20 


JR 

Z,MONJX 


LD 

A, 1 


LD 

(#MFLG),A 


JR 

MONJM 

MONJX 

LD 

HL.MONJZ 


LD 

(tMRJMP),HL 

MONJM 

JP 

«MON 

MONJ2 

LD 

HL.iHOT 


LD 

(tMRJMP),HL 


JP 

fGBTCOM 

#LPT 

LD 

A,(#LPSW2) 


OR 

A 


JR 

Z,ON 


XOR 

A 


LD 

DE.OFM 


JR 

fPMS 

ON 

PUSH 

AF 


XOR 

A 


CALL 

fLPRNT 


JP 

C.fPBBR 


POP 

CPL 

AF 


LD 

DB.ONM 

#PMS 

LD 

(*LPSW2).A 


CALL 

*BBLL 


IF 


3880 CD 9F. 31 
3883 CD 18 20 
3886 3E 06 

3888 6F 

3889 CD IE 20 
388C C3 C6 30 
388F 

388F 13 

3890 13 

3891 13 

3892 CD B5 IF 
3895 DA C0 30 

3898 13 

3899 2A 64 
389C D5 
389D 5F 
389E 16 00 
38A0 19 
38A1 D1 
38A2 CD 9F 
38A5 CD 18 
38A8 3E 06 
38AA 6F 
38AB CD IE 
38AB C3 C6 
38B1 

38B1 CD 22 
38B4 CD 49 
38B7 13 13 
38BA 13 13 
38BC CD 8C 
38BP 38 10 
38C1 IB 
38C2 3E 30 
38C4 12 
38C6 CD B2 
38C8 DA 64 
38CB 22 60 
38CE CD C4 
38D1 CD 2C 
38D4 CD 49 
38D7 13 13 
38DA 13 13 
38DC CD 8C 
38DF 38 ID 
38E1 IB 
38E2 3E 30 
38E4 12 
38E5 CD B2 
38E8 DA 64 
38EB 22 5B 
38EE CD C4 
38F1 CD E2 
38F8 4F 6B 
38FE CD 04 
3901 C3 C0 
3904 

3904 CD 22 
3907 DD 21 
390B CD 9A 
390B CD FI 
3911 CD FI 
3914 CD 2C 
3917 DD 21 
39 IB CD 9A 
391B CD BE 

3921 C9 

3922 

3922 CD E2 
3929 24 00 
392B C9 
392C 

392C CD E2 
3933 24 00 

3935 C9 

3936 

3936 CD 8C 
3939 DA 60 
393C lA 
393D FE 41 
393F 38 13 
3941 FE 45 
3943 30 0F 
3945 32 5D 
3948 CD AA 
394B CD EE 
394B CD C4 
3951 C3 C0 
3954 C3 64 
3957 

3957 ED 5B 
395B 21 00 
395E 3E 10 
3960 CD 00 
3963 DA 66 

3966 AF 

3967 32 70 
396A C9 
396B 

396B ED 5B 
396F 21 00 
3972 3E 10 
3974 CD 03 
3977 DA 66 
397A C9 
397B 

397B CD 57 
397E 21 00 

3981 E5 

3982 11 00 
3985 62 6B 

3987 E5 

3988 13 

3989 01 FF 


765 

766 

767 

768 

769 

770 

771 ;- 

772 #REDIT 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 


CALL #DTRD 
CALL #CSR 
LD A,$06 
LD L.A 
CALL #LOC 
JP #GCOMl 


INC 

INC 

INC 

CALL 

JP 

INC 

LD I 

PUSH 1 

LD 


DE 


*2HEX 
C,#GETCOM 


LD 

ADD 

POP 

CALL 

CALL 

LD 

LD 


JP 


E.A 

D.$0O 

HL.DE 

DE 

«DTRD 

«CSR 

A,$06 

L.A 

#LOC 

#OCOMl 


IF 53 65 74 20 
21 20 3A 00 
39 


60 IF 

32 

IF 


IF 44 69 72 3D 


IF 46 61 74 3D 


CALL #DTP 
CALL #GTKY 
INC DB:INC DB:INC DE 
INC DE:INC DE 
CALL SPCUT 
JR C,TBLC2 
DEC DE 
LD A,$30 
LD (DE),A 
CALL fHLHBX 
JP C,#ERR14 
LD (*DIRPS),UL 
CALL «BBLL 
CALL #FTP 
CALL #OTKY 
INC DB:INC DErINC DE 
INC DErINC DE 
CALL SPCUT 
JR C,TBL 
DEC DE 
LD A,$30 
LD (DB),A 
CALL *HLHEX 
JP C,«ERR14 
LD {#FATPOS),HL 
CALL *BELL 

CALL #MPRNT:DM "Set Ok! 


790 ;- 

791 #TBL? 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 TBLC2 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 CALL #MPRNT:DM "Set Ok! :":DB 

818 TBL CALL #DFTP 

819 TBLR JP fGBTCOM 

820 :- 

821 #DFTP CALL #DTP 

822 LD IX,#DIHPS 

823 CALL #RBCN3 

824 CALL #PBINTS 

825 CALL #PRINTS 

826 CALL #FTP 

827 LD IX,#FATPOS 

828 CALL «RECN3 

829 CALL #LTNL 

830 BET 

832 #DTP CALL #MPRNT:DM "Dir=$":DB $00 

833 RET 

835 #FTP CALL #MPRNT:DM "Fat=$":DB $00 

836 RET 

837 ;--- 

838 #CDV CALL SPCUT 

839 JP C,#EHR13 

840 LD A,(DB) 

841 CP "A" 

842 JR C,DVE 

843 CP "B" 

844 JR NC.DVE 

845 LD (#DSK),A 

846 CALL #DVP 

847 CALL #LTNL 

848 CALL «BSLL 

849 JP tGBTCOM 

850 DVE JP iBRR14 

851 ;- 

852 #DIBLD LD DE,(#DIRPS) 

853 LD HL,#CLWK 

854 LD A,$10 

855 CALL fDRDSB 

856 JP C,#EBR 

857 XOR A 

858 LD («FFLG),A 

859 RET 

860 ;- 

861 IDIRWT LD DE,(»DIRPS} 

862 LD HL,#CLWK2 

863 LD A.$10 

864 CALL «DWTSB 

865 JP C,«ERR 

866 RET 

867 ;- 

868 #CLCT CALL fDIBLD 

869 iFLM LD HL,#CLWK 

870 PUSH HL 

871 LD DB,#CLWK2 

872 LD H.DrLD L.E 

873 PUSH HL 

874 INC DE 

875 LD BC,$0FFF 


$00 


158 Oh! MZ 1986.10. 





















THE SENTINEL 


i 


r 


398C 36 FF 
398E ED B0 
3990 FD El 
3992 DD El 
3994 11 20 00 

3997 06 7F 
3999 DD 7E 00 
399C FB FF 

3998 28 17 

39A0 B7 
39A1 28 10 
39A3 C5 
39A4 D5 
39A5 D5 
39A6 Cl 
39A7 FD E5 
39A9 D1 
39AA DD E5 
39AC El 
39AD ED B0 
39AF D1 
39B0 Cl 
39B1 FD 19 

39B3 DD 19 

39B5 10 E2 

39B7 CD C4 IF 

39BA CD 22 39 

39BD DD 21 60 IF 

39C1 CD 9A 32 

39C4 CD E2 IF 

39C7 2D 20 43 6F 6C 6C 65 

39CE 63 74 69 6F 6B 20 66 

39D5 69 6B 69 73 68 20 21 

39DC 0D 

39DD 57 72 69 74 65 20 28 

39E4 59 2F 4E 29 3F 00 

39BA CD 51 31 

39ED CD 62 31 

39F0 38 05 

39F2 F5 

39F3 CD 6B 39 

39F6 FI 

39F7 C3 C0 30 

39FA 

39FA CD 63 38 

39FD 

39FD 

39FD 

39FT) 

39FD 

39FD 

39FD 

39FD 

39FD CD E2 IF 

3A00 46 69 6C 65 73 0D 00 

3A07 CD 57 39 

3A0A 21 00 40 

3A0D 11 20 00 

3A10 0E 01 

3A12 06 7F 

3A14 B5 

3A15 7E 

3A16 FE FF 

3A18 28 10 

3A1A CD 2D 3A 

3A1D El 

3A1E 19 

3A1F CD C7 IF 

3A22 26 3A 

3A24 10 BE 

3A26 CD D6 IF 

3A29 C9 

3A2A El 

3A2B 18 F9 

3A2D 

3A2D D5 

3A2E 7E 

3A2F 23 

3A30 B7 

3A31 F5 

3A32 28 0D 

3A34 79 

3A35 CD Cl IF 

3A38 CD E2 IF 

3A3B 29 20 00 

3A3B 0C 

3A3F 18 08 

3A41 CD E2 IF 

3A44 78 78 78 20 00 

3A49 16 OD 

3A4B 7B 

3A4C 23 

3A4D 15 

3A4B CD F4 IF 

3A51 7A 

3A52 B7 

3A53 20 F6 

3A55 3E 2E 

3A57 CD F4 IF 

3A5A 16 03 

3A5C 7E 

3A5D 23 

3A5E 15 

3A5F CD F4 IF 

3A62 7A 

3A63 B7 

3A64 20 F6 

3A66 CD FI IF 

3A69 7E 

3A6A FB 20 

3A6C 28 0C 

3A6E F5 

3A6F 3E 3B 

3A71 CD F4 IF 

3A74 FI 

3A75 CD Cl IF 

3A78 18 07 

3A7A CD E2 IF 

3A7D 6E 70 77 00 

3A81 CD FI IF 

3A84 FI 

3A85 CB 47 

3A87 B5 

3A88 28 05 11 CA 3A 18 15 

3A8F CB 4F 

3A91 28 05 11 CB 3A 18 OC 

3A98 CB 57 

3A9A 28 05 11 D2 3A 18 03 

3AA1 11 D6 3A 

3AA4 CD B5 IF 

3AA7 CB 77 

3AA9 28 04 

3AAB 3B 2A 

3AAD 18 02 

3AAF 3E 20 


876 LD (HD.IFF 

877 LDIB 

878 POP lY ;#CLWK2 

879 POP IX ;#CLWK 

880 LD DB,$002O 

881 LD B,$7F 

882 CLRL LD A.(IX-t-0) 

883 CP $FF 

884 JR Z,«VfRT 

885 OR A 

886 JR Z.CLRJ 

887 PUSH BC 

888 PUSH DE 

889 PUSH DE 

890 POP BC :$0020 

891 PUSH lY 

892 POP DE ;#CLWK2+ 

893 PUSH IX 

894 POP HL ;#CLWK+ 

895 LDIR 

896 POP DE 

897 POP BC 

898 ADD lY.DE :IY=IY+$0020 

899 CLRJ ADD IX,DB ;IX=IX+$0020 

900 DJNZ CLRL 

901 fVTRT CALL *BELL 

902 CALL #DTP 

903 LD IX,#DIRPS 

904 CALL *RECN3 

905 CALL tMPRNT 

906 DM Collection finish !":DB »0D 


907 DM "Write (Y/N)?":DB $00 


908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 
96,7 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 


982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 


WRTKY CALL #YNKY? 
CALL «PLB 
JR C.WRTJ 
PUSH AF 
CALL fDIRWT 
POP AF 

WRTJ JP #GBTCOM 


fDIRP CALL «PRSW 
; LD DB,$0000 
; LD HL,(#FATBF) 

: LD A.l 
: CALL *DRDSB 
; CALL #MPRNT 
; DM "System":DB $OD:$0O 
; LD C,$00 
: CALL DRPl 
CALL #MPRNT 


DM "Files":DB $0D:$00 
CALL «DIRLD 
«DIRP2 LD HL.fCLWK 
LD DB,$O020 
LD C,$01 
LD B,$7F 
DRPL PUSH HL 

LD A.(HL) 

CP IFF 
JR Z.DRPRl 
CALL DRPl 
DRPLl POP HL 

ADD HL,DB 
CALL #PAUSE 
DW DRPR 
DJNZ DRPL 
DRPR CALL #LPTOF 

DRPRl POP HL 

JR DRPR 


DRPl PUSH DB 

LD A,(HL) 

INC HL 
OR A 
PUSH AF 
JR Z,DRP2 
LD A.C 
CALL IPRTHX 
CALL #MPRNT 
DM ") ":DB $00 
INC C 
JR DRP3 

DRP2 CALL #MPRNT 

DM "xxx ":DB $00 
DRP3 LD D,13 

DPLl LD A,(HL) 

INC HL 
DEC D 
CALL #PRINT 
LD A,D 
OR A 
JR NZ.DPLl 
LD A,"." 

CALL «PRINT 
LD D,3 

DPL2 LD A,(HL) 

INC HL 
DEC D 
CALL iPRINT 
LD A.D 
OR A 
JR NZ.DPL2 
CALL IPRINTS 
LD A,(HL) 

CP $20 
JR Z,NPW 
PUSH AF 
LD A,";" 

CALL #PRINT 
POP AF 
CALL fPRTHX 
JR DPL3 

NPW CALL #MPRNT 

DM "npw";DB $00 
DPL3 CALL iPRINTS 
POP AF 
BIT 0,A 
PUSH HL 

IF NZ THEN LD DE.OBINlJR ATR 
BIT 1,A 

IF NZ THEN LD DB,9BAS:JR ATR 
BIT 2,A 

IF NZ THEN LD DB,aASC:JR ATR 
LD DB.«? 

ATR CALL *MSX 
BIT 6,A 
JR Z.ATRl 
LD A,"t" 

JR ATR2 
ATRl LD A," " 


3AB1 CD F4 IF 
3AB4 CD FI IF 
3AB7 3E 24 
3AB9 CD F4 IF 
3ABC El 
3ABD 11 0D 00 
3AC0 19 
3AC1 7B 
3AC2 CD Cl IF 
3AC5 CD EE IF 
3AC8 D1 
3AC9 C9 

3ACA 42 69 6E 00 
3ACB 42 61 73 00 
3AD2 41 73 63 00 
3AD6 3F 3F 3F 00 
3ADA 
3ADA 

3ADA CD 8C 31 
3ADD DA 60 3C 
3AB0 2A 76 IF 
3AE3 ES 
3AB4 CD 9F 31 
3AE7 06 00 
3AB9 El 
3AEA 
3AEA 4E 
3ABB OC 
3AEC 0D 
3ABD 28 11 
3AEF 04 
3AF0 23 
3AF1 E6 
3AF2 7B 
3AF3 B7 
3AF4 28 07 
3AF6 B9 
3AF7 CA 64 3C 
3AFA 23 
3AFB 18 F5 
3AFD 
3AFD El 
3AFE 18 EA 
3B00 
3BO0 78 
3B01 32 85 3C 
3B04 CD 57 39 
3B07 21 00 40 
3B0A B5 
3B0B 11 00 50 
3B0E 01 00 10 
3B11 ED BO 
3B13 06 00 
3B15 El 
3B16 11 20 00 
3B19 
3B19 7B 
3B1A 19 
3B1B FB FF 
3B1D 28 08 
3B1F FB 00 
3B21 CA C4 3B 
3B24 04 
3B25 18 F2 
3B27 
3B27 78 
3B28 32 86 3C 
3B2B 21 86 3C 
3B2B 3A 85 3C 
3B31 BE 
3B32 28 03 
3B34 D2 64 3C 
3B37 

3B37 ED 5B 76 IF 

3B3B D5 

3B3C 

3B3C lA 

3B3D 13 

3B3B B7 

3B3F 28 08 

3B41 BE 

3B42 28 F8 

3B44 38 F6 

3B46 C3 64 3C 

3B49 11 00 50 
3B4C DD El 

3B4B 21 00 40 
3B51 DD 7B 00 
3B54 DD 23 
3B56 B7 
3B57 28 17 
3B59 3D 
3B5A D5 
3B5B 28 07 
3B5D 47 
3B5B 11 20 00 
3B61 
3B61 19 
3B62 10 FD 
3B64 

3B64 01 20 00 
3B67 D1 
3B68 E5 
3B69 ED B0 
3B6B El 
3B6C AF 
3B6D 77 
3B6E 18 DE 
3B70 

3B70 21 00 40 
3B73 

3B73 01 20 00 
3B76 7E 
3B77 B7 
3B78 28 08 
3B7A FE FF 
3B7C 28 07 
3B7B ED B0 
3B80 18 FI 
3B82 
3B82 09 
3B83 18 EE 
3B85 

3B85 11 00 40 

3B88 21 00 50 

3B8B 01 00 10 

3B8B ED BO 

3B90 CD C4 IF 

3B93 CD 0A 3A 

3B96 CD E2 IF 

3B99 57 72 69 74 65 20 28 

3BA0 59 2F 4E 29 3F 00 

3BA6 


1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 

1113 

1114 
1116 
1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 


ATB2 CALL #PRINT 
CALL «PRINTS 
LD A,"$" 

CALL «PRINT 
POP HL 
LD DE,$O0OD 
ADD HL,DB 
LD A,(HL) 

CALL #PRTHX 
ATRE CALL #LTNL 
POP DE 
RBT 

0BIN DM "Bin":DB $00 
«BAS DM "Bas":DB $00 
SASC DM "A8 c":DB $00 
«? DM "???":DB $00 

♦ INST 

CALL SPCUT 
JP C,«ERR13 
LD HL.dKBFAD) 

PUSH HL 
CALL «DTRD 
LD B,$0O 
POP HL 
ICJl 

LD C.(HL) 

INC C 
DEC C 
JR Z,ICJ4 
INC B 
INC HL 
PUSH HL 

ILPl LD A,(HL) 

OR A 
JR Z,ICJ2 
CP C 

JP Z,«BRR14 
INC HL 
JR ILPl 
ICJ2 

POP HL 
JR ICJl 
ICJ4 

LD A,B 
LD (IINI.A 
CALL »DIRLD 
LD HL.fCLWK 
PUSH HL 

LD DB,«CLWK2 
LD BC.$1000 
LDIR 

LD B,$00 
POP HL 
LD DB,$O020 
IDLl 

LD A,(HL) 

ADD HL,DB 
CP IFF 
JR Z.IDJl 
CP $00 
JP 2,#ALM 
INC B 
JR IDLl 
IDJl 

LD A,B 
LD (fDN),A 
LD HL,«DN 
LD A,(*IN) 

CP (HL) 

JR Z.IDJ2 
JP NC,«BRR14 
IDJ2 

LD DB,(«KBFAD) 

PUSH DB 
IDLP 

LD A,(DB) 

INC DB 

OR A ' 

JR Z,IDJ3 
CP (HL) 

JR ZiIDLP 
JR C.IDLP 
JP «ERR14 
IDJ3 

LD DE.fCLWK2 
POP IX 
IDL3 

LD HL.ICLWK 
LD A,(IX+0) 

INC IX 
OR A 
JR Z,ITJ22 
DEC A 
PUSH DB 
JR Z.ITJl 
LD B.A 
LD DE,$0020 

ITL 

ADD HL.DB 
DJNZ ITL 
ITJl 

LD BC,$O020 
POP DE 
PUSH HL 
LDIR 
POP HL 
XOR A 
LD (HL),A 
JR IDL3 
ITJ22 

LD HL.fCLWK 
ITLP2 

LD BC,$002O 
LD A.(HL) 

OR A 
JR Z.ITLPJ 
CP IFF 
JR Z,ITB 
LDIR 

JR ITLP2 
ITLPJ 

ADD HL,BC 
JR ITLP2 

ITB 

LD DE,fCLWK 

LD HL,#CLWK2 
LD BC,$1000 
LDIR 

CALL fBELL 
CALL «DIRP2 
CALL fMPRNT 

DM "Write (Y/M)?":DB $00 


1140 ITKY 


XIturbo n6 ^ 7'C-ti, NEC-Cim'y y - 

y i y t°- Fr'iiHirffU'P l ,«; < /j: i 

mm ( 15 ) wmw: 


159 







3BA6 

3BA9 

3BAC 

3BAE 

3BAE 

3BB1 

3BB4 

3BBB 

3BC1 

3BC1 

3BC4 

3BC4 

3BC4 

3BC7 

3BCA 

3BD1 

3BD8 

3BDD 

3BDF 

3BDF 

3BDF 

3BE2 

3BE4 

3BE6 

3BB8 

3BEA 

3BED 

3BED 

3BEF 

3BF1 

3BF3 

3BF3 

3BF5 

3BF7 

3BF7 

3BF8 

3BFB 

3BFC 

3BFD 

3C00 

3C03 

3C06 

3C06 

3C07 

3C0A 

3C0D 

3C0E 

3C10 

3C11 

3C12 

3C14 

3C18 

3C1A 

3C1B 

3C1C 

3C1F 

3C22 

3C24 

3C26 

3C27 

3C28 

3C2A 

3C2C 

3C2D 

3C2B 

3C2F 

3C31 

3C32 

3C34 

3C35 

3C38 

3C39 

3C3B 

3C3C 

3C3E 

3C41 

3C43 

3C46 

3C48 

3C49 

3C4A 

3C4B 

3C4D 

3C4D 

3C54 

3C57 

3C58 

3C58 

3C5C 

3C5E 

3C60 

3C62 

3C64 

3C66 

3C69 

3C6C 

3C6C 

3C6E 

3C6F 

3C70 

3C71 

3C72 

3C73 

3C75 

3C76 

3C78 

3C7A 

3C7C 

3C7E 

3C7F 

3C81 

3C83 

3C85 

3C86 

3C87 

3C89 

3C90 

3C97 

3C9E 

3CA5 

3CAC 

3CB3 

3CBA 

3CC1 

3CC8 

3CCF 

3CD6 

3CDD 

3CB4 

3CE9 

3CE9 

3CE9 

3CB9 

3CB9 


CD 51 31 

CD 62 31 

38 13 

CD 6B 39 

CD E2 IF 

41 72 72 61 6E i 

20 4F 6B 21 0D ( 

C3 C0 30 


CD C4 IF 
CD E2 IF 
43 6F 6C 6C 65 
20 67 61 72 62 
65 20 21 0D 00 
18 E2 


3A 5C IF 
FE 28 
28 0D 
FE 50 
28 03 
C3 64 3C 


3E 28 
28 04 


06 10 
3B 50 


32 7E 3C 
CD C4 IF 
C3 C0 30 


32 57 3C 
2A 78 3C 


28 28 

DD 21 4D 3C 
06 05 
El 
AF 

DD 5E 00 
DD 56 01 
DD 23 
DD 23 
B7 
B5 

ED 52 
38 05 
33 
33 
3C 

18 F5 


F5 

3A 57 3C 


28 0F 
FI 

C6 30 
CD F4 IF 
3E 01 
32 57 3C 


D2 


SI 


10 27 E8 03 64 
00 01 00 


3E 0E 
CD 33 20 
C3 C0 30 


00 00 00 00 00 I 
00 00 00 00 00 I 
00 00 00 00 00 I 


1141 CALL #YNKY? 

1142 CALL #PLB 

1143 JR C.ITR 

1144 ITY 

1145 CALL #DIRWT 

1146 CALL #MPRNT 

1147 DM "Arrange Ok!":DB $0D:$00 

1148 ITR 

1149 JP #GETCOM 

1150 ;- 

1151 #ALM 

1152 CALL #BBLL 

1153 CALL #MPRNT 

1154 DM "Collect garbage 


1155 JR 

1156 ;- 

1157 #WSIZ 

1158 LD 


’■:DB $0D:$00 


1159 

1160 
1161 
1162 

1163 

1164 ' 

1165 

1166 

1167 

1168 ' 

1169 

1170 


CP 

JR 


A, {#W1DTH) 
$28 
Z,W8 
$50 
Z,W4 
«ERR14 


A,$28 
Z.WST 


B, 16 
A,$50 


3D0O 
3D00 
3D00 
3D03 
3D06 
$0D 
3D0D 
3D14 
3D1B 
3D22 
3D29 
3D2B 
3D32 
3D39 
3D40 
3D47 
3D4D 
3D54 
3D5B 
3D62 
3D69 
3D6B 
3D75 
3D7C 
3D83 
3D8A 
3D90 
$0D 
3D97 
3D9B 
3DA5 
3D AC 
3DB3 


CD 6E 31 
CD E2 IF 
4C 28 68 I 

A5 A5 A5 
64 20 26 
70 20 72 

64 20 4E 
68 0D 

24 28 68 
A5 A5 A5 
74 65 20 

65 63 6F 
6F 2E 68 
44 28 68 
20 A5 A5 
70 20 6D 
79 20 61 
68 68 68 
43 28 6B 
A5 A5 A5 
70 20 64 
20 63 6F 
72 20 73 
46 28 6E 


68 68 29 20 

20 72 65 61 
20 64 75 6D 
65 63 6F 72 
6F 2B 68 68 

68 68 29 20 
20 77 72 69 

69 6E 20 72 
72 64 20 4E 
68 68 0D 

68 68 68 29 
20 64 75 6D 
65 6D 6F 72 

64 72 73 20 
68 0D 

29 20 A5 AS 
20 64 75 6D 

65 6C 61 79 
75 6E 74 65 
65 74 0D 

20 28 68 68 


1258 ORG START+$D00 

1259 

1260 #HELP CALL #CLS 

1261 CALL fMPRNT 

1262 DM ”L(hhh) ••• read k dump record No.hhh":DB 


1263 DM ''$(hhh) ••• write in record No.hhh":DB $0D 


1264 DM "D{hhhh) •• dump memory adrs hhhh":DB $0D 


1265 DM "C(n) .dump delay counter sefiDB $0D 


1266 DM "F(n (hh or ;+Chr...)) search diak":DB 


20 6F 72 20 3B 2B 43 
68 72 2E 2E 2E 29 29 
20 A5 A5 A5 20 73 65 
61 72 63 68 20 64 69 
73 1 


1171 

WST 



3DB6 

26 

20 

A5 

A5 

A5 

A5 

A5 

1267 

DM 


1172 

PUSH 

; BC 


$0D 











1173 

CALL 

, #WIDCH 

3DBD 

AS 

A5 

A5 

20 

64 

69 

72 




1174 

POP 

BC 


3DC4 

65 

63 

74 

6F 

72 

79 

20 




1175 

LD 

A.B 


3DCB 

67 

61 

72 

62 

61 

67 

65 




1176 

LD 

(#LBYT),A 

3DD2 

20 

63 

6F 

6C 

6C 

65 

63 




1177 

CALL 

. #BELL 

3DD9 

74 

0D 









1178 

JP 

#GBTCOM 

3DDB 

41 

20 

68 

68 

2E 

2E 

2E 

1268 

DM 

"A 

1179 




30E2 

A5 

A5 

A5 

20 

61 

72 

72 




1180 

#HDCNV 

XOR . 

4 

3DE9 

61 

6E 

67 

65 

20 

64 

69 




1181 


LD 

(fPLAG),A 

3DF0 

72 

65 

63 

74 

6F 

72 

79 




1182 


LD HL.(*RBCN02) 

3DF7 

0D 










1183 

HDCNVl 

PUSH 

HL 

3DF8 

56 

20 

41 

2D 

44 

20 

A5 

1269 

DM 

"V 

1184 


LD 

B, 1 

3DFF 

A5 

A5 

A5 

20 

64 

65 

76 




1185 


LD 

A,H 

3B06 

69 

63 

65 

20 

73 

77 

69 




1186 


OR 

L 

3B0D 

74 

63 

68 

0D 







1187 


JR 

Z.JMPl 

3B11 

54 

20 

A5 

A5 

A5 

A5 

A5 

1270 

DM 

"T 

1188 


LD 

IX,#TBL 

$0D 











1189 


LD 

B,5 

3B18 

AS 

A5 

A5 

20 

63 

68 

61 




1190 

LOOP 

POP 

HL 

3B1F 

6E 

67 

65 

20 

44 

69 

72 




1191 


XOR 

A 

3E26 

2E 

26 

20 

46 

61 

74 

2E 




1192 


LD 

B, (IX+0) 

3E2D 

20 

70 

6F 

73 

69 

74 

69 




1193 


LD 

D, (IX+1) 

3E34 

6F 

6E 

0D 








1194 


INC 

IX 

3E37 

3F 

20 

A5 

A5 

A5 

A5 

A5 

1271 

DM 

"? 

1195 

INC 

IX 

$0D 











1196 

LOOPl 

OR 

A 

3E3E 

A5 

A5 

A5 

20 

69 

6E 

64 




1197 


PUSH 

HL 

3E45 

69 

63 

61 

74 

65 

20 

63 




1198 


SBC 

HL,DE 

3E4C 

75 

72 

72 

65 

6E 

74 

20 




1199 


JR 

C, JMP 

3E53 

70 

61 

72 

61 

6D 

65 

74 




1200 


INC 

SP 

3E5A 

65 

72 

0D 








1201 


INC 

SP 

3E5D 

50 

20 

A5 

A5 

A5 

A5 

A5 

1272 

DM 

"P 

1202 


INC 

A 

3E64 

A5 

A5 

A5 

20 

70 

72 

69 




1203 


JR 

LOOPl 

3E6B 

6E 

74 

65 

72 

20 

73 

77 




1204 

JMP 

OR 

A 

3E72 

69 

74 

63 

68 

20 

6F 

6E 




1205 


JR 

NZ.JMPl 

3B79 

2F 

6F 

66 

66 

0D 






1206 


PUSH 

AF 

3E7E 

4D 

20 

A5 

A5 

A5 

A5 

A5 

1273 

DM 

"M 

1207 


LD 

A,(«FLAG) 

3E85 

A5 

A5 

AS 

20 

6D 

6F 

6E 




1208 


OR 

A 

3E8C 

69 

74 

6F 

72 

20 

63 

61 




1209 


JR 

Z,JMP3 

3E93 

6C 

6C 

0D 








1210 


POP 

AF 

3E96 

51 

20 

A5 

A5 

A5 

A5 

A5 

1274 

DM 

"Q 

1211 

JMPl 

ADD 

A,$30 

3E9D 

A5 

A5 

A5 

20 

6C 

69 

73 




1212 


CALL 

♦PRINT 

3EA4 

74 

20 

64 

69 

72 

65 

63 




1213 


LD 

A. 1 

3EAB 

74 

6F 

72 

79 

0D 






1214 


LD 

(♦FLAG),A 

3EB0 

57 

20 

A5 

A5 

AS 

A5 

A5 

1275 

DM 

"W 

1215 

JMP2 

DJNZ 

LOOP 

3EB7 

A5 

A5 

AS 

20 

77 

69 

64 




1216 


POP 

HL 

3BBE 

74 

68 

20 

73 

77 

69 

74 




1217 


RET 


3BC5 

63 

68 

20 

34 

30 

2F 

38 




1218 

JMP3 

POP 

AF 

3BCC 

30 

0D 









1219 


JR 

JMP2 

3ECE 

48 

20 

A5 

A5 

A5 

AS 

A5 

1276 

DM 

"H 

1220 




3BD5 

A5 

A5 

A5 

20 

63 

6F 

6D 




1221 

#TBL 

DW 10000:1000:100:10:1 

3EDC 

6D 

61 

6E 

64 

20 

6C 

69 








3EE3 

73 

74 

0D 








1222 

#FLAG 

DS 1 


3EB6 

21 

20 

A5 

A5 

A5 

A5 

A5 

1277 

DM 

" ! 

1223 

;- 



3EED 

A5 

A5 

A5 

20 

72 

65 

74 




1224 

tPERR 

LD 

SP,(ISPBF) 

3EF4 

75 

72 

6E 

20 

74 

6F 

20 




1225 


LD 

A,2 

3EFB 

53 

2D 

4F 

53 

0D 

0D 





1226 


JR 

♦ERR 

3F01 

2A 

20 

62 

6C 

6F 

63 

6B 

1278 

DM 

"« 

1227 

»ERR13 

LD 

A.13 

0D 











1228 


JR 

♦ERR 

3F08 

20 

64 

61 

74 

61 

20 

62 




1229 

*ERR14 

LD 

A, 14 

3F0F 

75 

66 

66 

65 

72 

20 

A5 




1230 

«ERR 

CALL 

♦ERROR 

3F16 

A5 

A5 

20 

24 

34 

30 

30 




1231 


JP 

♦GBTCOM 

3F1D 

30 

2D 

24 

42 

46 

46 

46 




1232 

;- 



3P24 

0D 










1233 

#SPBF 

DS 2 


3F25 

2A 

20 

72 

65 

63 

6F 

72 

1279 

DM 

"* 

1234 

«MFLG 

DS 1 


3F2C 

64 

20 

64 

61 

74 

61 

20 




1235 

«LPSW2 

DS 1 


3F33 

62 

75 

66 

66 

65 

72 

20 




1236 

#FFLG 

DS 1 


3F3A 

A5 

A5 

20 

24 

00 






1237 

«RFLG 

DS 1 


3F3F 

2A 

64 

IF 

CD 

BE 

IF 


1280 



1238 

fGRPBF 

DS 1 


3F45 

CD 

E2 

IF 

2D 

24 

00 


1281 



1239 

*GRPBF2 

: DS 2 


3F4B 

11 

FF 

00 





1282 



1240 

#CLST2 

DS 1 


3F4E 

19 

CD 

BE 

IF 




1283 



1241 

#RECNO 

DS 2 


3F52 

CD 

EE 

IF 





1284 



1242 

«RECN02 DS 2 


3F56 

CD 

E2 

IF 





1285 



1243 

«RECN02 

1 DS 2 


3F58 

2A 

20 

68 

3D 

68 

65 

78 

1286 

DM 

"» 

1244 

«MADR 

DS 2 


3F5F 

28 

30 

2D 

46 

29 

2C 

6E 




1245 

#LBYT 

DS 1 


3F66 

3D 

28 

30 

2D 

39 

29 

2C 




1246 

#DTBUF2 DS 2 


3F6D 

43 

68 

72 

3D 

63 

68 

72 




1247 

#FINDBF DS 2 


3F74 

61 

63 

74 

65 

72 

OD 





1248 

#FNDBF2 DS 2 


3F7A 

2A 

20 

64 

69 

72 

3D 

64 

1287 

DM 


1249 

#IN 

DS 1 


3F81 

69 

72 

65 

63 

74 

6F 

72 




1250 

#DN 

DS 1 


3F88 

79 

20 

74 

6F 

70 

20 

68 




1251 

tDELAY 

DW $5000 

3F8F 

68 

68 

OD 








1252 

#SRCBF 

DS $60 

3F92 

2A 

20 

24 

30 

30 

3D 

69 

1288 

DM 

"» 





3F99 

6E 

65 

66 

66 

65 

63 

74 








3FA0 

69 

76 

65 

20 

61 

73 

20 








3FA7 

73 

65 

61 

72 

63 

68 

20 








3FAE 

64 

61 

74 

61 

0D 










3FB3 

2A 

20 

5B 

5B 

5B 

68 

68 

1289 

DM 

"» 





3FBA 

5D 

3D 

63 

6C 

73 

74 

2E 








3FC1 

2B 

68 

5D 

3D 

72 

63 

72 








3FC8 

64 

2B 

2B 

68 

68 

5D 

3D 








3FCF 

61 

64 

72 

73 

0D 










3FD4 

2A 

20 

72 

65 

74 

75 

72 

1290 

DM 

"* 





0D:$O0 














3FDB 

6E 

20 

66 

72 

6F 

6D 

20 








3FE2 

6D 

6F 

6E 

69 

74 

6F 

72 




1253 

#SRCL 

EQU 

$8000 

3FE9 

3A 

4D 

5A 

3D 

4A 

33 

30 




1254 

fMRJMP 

EQU 

$1053 

3FF0 

30 

30 

2C 

58 

31 

3D 

52 




1255 

#CLWK 

EQU 

$4000 

3FF7 

0D 

00 









1256 

#CLWK2 

EQU 

$5000 

3FF9 

C3 

C0 

30 





1291 



1257 




3FFC 








1292 ! 




directory garbage collect":D 


change Dir.& Fat. position":D 


indicate current parameter":DB 


printer switch on/off":DB $0D 


monitor call":DB $0D 


list directory":DB $0D 


width switch 40/80":DB $0D 


command list":DB $0D 


return to S-OS":DB $0O:$0D 


1278 DM "« block data buffer ••• $4000-$BFFF":DB $ 


LD HL,(#DTBUF):CALL #PRTHL 
CALL #MPRNT:DM "-$":DB $00 
LD DB,$O0FF 
ADD HL,DB:CALL #PRTHL 
CALL #LTNL 
CALL #MPRNT 

1286 DM "» h=hex(0-F),n={0-9),Chr=chracter":DB $0D 


1288 DM "* $00=ineffective as search data":DB $0D 


1289 DM "» [[[hhI=cl8t.+hl=rcrd.+hh]=adra":DB $0D 


1290 DM "* return from monitor:MZ=J3000,X1=R":DB $ 
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Fuzzy BASIC 


Fuzzy BASIC 

®g1o!3/j:BASIC'CrA'6, ZitlSr-lC/d: 

L^i|s^s,^A'%^6n^•r^ao 

Fuzzy 

B ASIC AP^ ~ ■^I'o 




Takiyama Takashi 

;lLiJ # 


'T'fl 3 HCib/.; t> Fuzzy BASIC I- 
; t C/j: I) i L/.:, 

-7-^ 11.'-5 

Izzit'C,, ^yi>y°')fr<D 

F*ia«i£0aji% ^ LX-C'^ i, Z it£C,\£ 

y c. I.' i x'Mtb 

-T'io'O § ^)l■'^l.'<^|i]®T— 

rpitlUj X'to 


i«*-¥>-r<T«73/^ 


BASIC^A^II.S-TL 4o«it{b 11.' 7 0 

11:7”D ^’•'7 A < -f 4 (11.' 

7J;y«t:) fL-C, 
tG0T0S:?fffi6 4(.', 7 ”b7''7 

t 14{r*‘^)(fGn 

ito 

G0T0X4Isg64i.'®iI:, f)^ % 
z ^ 7 T ^ i:4 G 

41.'^ 7t:t5 ti'7m***y i-r, c 
^i4-ife0BASICr'^^40tt^S LI'C 
t-r{j:4<, y°or7^{zX'oXii:^'sf^ 
i) i toS^^^tREPE 
AT~UNTIL^WHILE~WEND t i,'-q 4 
pjt'fb>'i'-7”X^7'n 7 7IFX (MZ-2500 
<-' Gi.'i: L*-4t.’) ^ItoBASIC**i^n-C 
JfCi.'il'*', ^ !)'(s6■b^^•tl.'4'.'®*^ 

*l«t'!i4i.'-C'L i 7*'o 

REPEAT~UNTIL^WHILE~WEND, 
7'n7 7IFX4ATJ: < 6*'G4i.', 11' 
bAti'S lE.^'iir0-CzZ'Ctyi^ I 
LTi>'|!iL<t7o 

REPEAT-UNTIL t WHILE~WEND 


lit {) 1:^1-—7”4fflti-®t;ffi7 
REPEAT tWHILE**.'i^-7”0tei >) 
L,UNTILtWENDIi^nf'n^v-7”®*?- 
ib y i to /^-7”X t i' 7 tFOR 

-NEXT*** y i t*^ «bn:4tLTIi 

®Ti.'5 tl'-oTt) ii'-CLj: 7o 

IX ^ Z t J: 

< 6*'y ito 

REPEAT-UNTIL \i ^t) i ^ff**P4 

if^yiitj-r. until®^*!; 
**>n4^ffs:**“*”-r*niit>—7”4tt 
ifXikiOUmr.i^ y * nii'REPEAT 

0mk(D^'%-r.m') itoOi y,REPEAT 
-UNTILIi^i—7”®ijs*-6 y-T'^ftl^iJif^ L 
it*‘G, :Rffif{> 1 ll]li-'^—7”rt?f^ft 
Lite 

WHILE-WEND li r* ^ft**ii4 $ 
tiX I.' 2. Pb^ y ilt J r, WHILE®m* t: 
#*■ n44 f. libv--7”® 4 *> 
4■^^fL,“m’’■r*<^lf/^-7”^f^fettWEND 
®ft*®^^*‘C>^ff L i to -'^-7”®gI 
® WHILE ® t C L i t *‘ 

G, ^fti: i-otli—7°®'t’:^-4 
9lfi-a-ti:7 4r7 7”t 2. ; 11:4 ^ to 

7'n 77IF5:ii#ii®IF5:44!!;5SL4 

{>®-r, Jt!:S4^*scffi:h4o-rieiair^ 

ito ^ftS:**“3it”'C'*n.li'}^®fi-*>G® 

“tt”®Ii-&-liELSE®* t 
L i t (1 ff-r# < IFS: t $ 
*y*y itAfelo 

iiS®IF^®f^®IEIili 1 fi-i:l® G n-C 
I'Sblt-rt**, 7'a 7 7IF3SC4't t'ci 
■r**IEH*‘h*‘y i-ti-A®r*m(:END 
IF5:4gl>ito ^ 7 t 2. tIFXtEND 
iFX ixrmi n.4ifi3:9-**7'B 7 i'mmr. 4 
*)it*'ii, 7 ”b 7''7 A**|^*-?>t < 4 2> 


®-C'to 

REPEAT-UNTIL, WHILE-WEND, 
7'B 7 7IFilJ: Fuzzy BASIC C {> 

n-Ci.'it®-r'. Z Tx L X^X < 

4'? I'o 


BASICS 


7^n7''7 /i-Itt S®li, 4 

4'^i:|%*^tS‘4[fe]±5t2.1^1: (fc 
*) * A ?■ n <> s^-r t **), * 2> 7 ”b 7''7 A 
®-|fl54li*-®7”B7'7 2, t 

I.' 7 f'J**** y i to - nii#Si:ffifi]4 

c t -r, 7”B 7”7 ^M%WPBl®SliSt: {> o 

4**0 i to 

li*'®i:IS41,'C*2> t.FORTRANi: 
L * PASCAL 1 : L (i 4 

lip^lb) ? n4 7“ B 7'7 A 4•» < ; t c 
s***l*‘nTi.'2.®****'0 ito 
cncWLTBASIClitin'itt. Ptg 
Li'C 11;^ iX'^lXi.' 

4i.'5:i£t-47 ti'i to ti'-tt', it 

i -o4^!!:a4t7V-*7i:t 2. <-%!.' L 
**t-*** 0 i tAo L*‘{). ^^7t^—*7 
4rli*‘®7”B7''7Ai:itfflLi 7 tt2) t, 
litAf®^'^, ^SSc«^#lt^i4ltn 
li'4 f. 4 < 4 2, ®-rto PASCAL!:ti i 7 
4 < T^^4^PB‘J-r'to 
cnii, «ii{tt2.±-C'®I>oti>£^4 
t@Et:**BASICi:littim-b t u 2. *■ G 4® 
rto ■tnii 11' 7«E;^-r'to 

BASIC-r ii, t'<-C®$IIScli7''B-^Ow 
4 {> ®-r', * 2.^7'i-.'wi*i4'i4r'W:a4 
B-t;i^^tSc**I#-r i tAo ■e®4i*i:?l 
S.n2.i:7®5c*li, ^r.'PLk^' 
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•; X h 1 ^ BOX FULL 


10 ' 

20 ■ BOXFULL 1 

30 ' 

40 ' 

50 cIstX0-0:Y0«0:Xl-10:Yl-10:CH-''A' 

60 gosub ^BOXj 

end 

80 ' 

90 rBOXj 

100 for 1-Y0 to Y1 

110 locate X0, I 

120 print string(CH,Xl-X0<-l) 

130 next 

140 return 


91 Lfj 11 c, mm 

FORTRANR#ft*' li ®t tT {> i' i' i L 
i?*', 7”5£&i: I ^ J 

fflL^t. -t7V-^7|*)-r«3S:I?f1Se<>-C 
L Li L i yo ?■ L 
-c C cD-t7V-^ 7 7 I® •) iE# 

i I L i to 

E ?fi>f cEtiit t tnif, 

I,V(:|^ilif^L-r: < mzL r.u^xi i 

(.'it, L-C 

L J: 7 o 

BASIC7°a7"7.^®^i;*'-r\"i-i t i 

^j:®-C'to 

t, Enii, -t7>-^7i:fit%-itL^.'•), 
ai(;-t70i/-f-7*>iifji^S(t5Co/.- D *« 
i^^-csgii-ris t(.'7 ^ tft, wn(i 

1?iJt ffiE®^-V77 

;5ft:j;5BOX FULL4>fi-7 ■t7V-f^7 

^^k.X^i L i yo Z-Oyff ^ 

5 rxD'^y c 11:4: *) 

it, ■t7>—f^V^flfCEtlitL’ 

CEi: 5 oco$S:Mil^ftAL-C^S'£'|?*5 
* 4 c t 4-^1!^ Lit (ffifi) < S' (.' C 11' 
tia), 

Hz, 

(.'t (.'7 ; t li. 4:(.'C: t 

t|e]«-rt, fciffi(:|l|Sc<^ieitL i 7 tt 
it. ^liO^SgcCffi^Anty ^5f-7L, 
7< 'i ^.'('-f-xaij-rB^^sc^f^Mt s i 

7 I) it, 

c:® i 7 - t t, 7°n7'7A 

cEt li (.' t ® t •), r'V^ i- 7'^ 

f*^*5A't.'--A.-rt,BASICSA®ll*.** 

m^LtzL^' ti-CL X 7, 
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U:x h 2 +-^7 ^^icJ^^box full 
(PR0<3jC^o/zl«'^) 

20 ■ (^v9^9-::3A BOXFULL 2 

30 

40 ' 

5 0 els 

60 proc rBOXj,0,0,10,10,'A' 

70 end 

8 0 

90 TbOXj 

100 for N-J to L 

110 locateI,N 

120 print s t r i n g (II, K-I + 1) 

130 next 

140 ret proc 


■ 

ifSttPROeXi 

FUNCBSfK 


? "C, C tl. li ATuzzyBASICt^t ® «t 7 

i:e)c#'Sn-C(.'S*>{i|g?f#Li Li 7(^ 
o tai-CS! A'), 

c ®BASIC®i:S^li, •) PROCit 
tFUNCII|&-C't, 

PROC35:UGOSUB^t5fl)A3g L A L ®r', 
z i 

t, iA. PR0C5:'r'‘¥-tEaiLA-t7'/w- 
> l^-T'6-7 i-ri: PI O-riipif^lgc^rffi 7 
I t L i t, T.T.L.®“ : =’% tl5]L' 
^Sgft*'"^. T.T.L.^cr#L'®::^i:li{) 
yisbi)'>)-CLxyi>L ^,<DtZii>CZ Z-C 
PROCl!C®fJl|(^Ui0^L-Cfc§ i Li 7, 

y X p 1 t 2 AT < A'? (.', 

5tlii:®A--V7 t^i:i 4B0X FULL%- 
PROC^ffiE.t't:*(.'AL® t, fie^T* 
(.'A()®®jli.'**fcib*‘yT'Li 7*', 
y X h 1 ®50ftT'ft'5 T(.' S 5 o0ftA 
^i3\ y X h 2®(i7T'(iA < AoT(.'i 
tti, cnf.(i60fi-®PROCX4'i:?|l5:t 
LTieasnti'it, 7°n^'7 A*5t(.' 
-KA t£^t < AoT(.'4®**to6*'yT' 
Li7*‘, cniiPROC*?rill7f'l.'^®'E 

® 1 -rt, 

60ft®PROC5:®ttft^ffl*' < ETAS 
c:ti:LiLi7, 

'"BOXj **^)y, MSts 
•y-7'yi—f^y^fKfcEttit w t 4’S^LT(.'i 
t, z(Di^, Mjpm^r.m^t'nxi.'i 
eocD^lSc (15iJT'Ufttit^T't®T'r"7;t 

y(-l'®I,J,.,N) ®ffiii-p$6^t:$»:x 

^-7 7--iiilL i t, iliSLAfitfi. -t7' 
/u—yy0i^h>)CDRET PROCXliio 
T t t®^»:t:ffcEftA$ni t, wih-ii 
6 o©$lScli-y-7>-^7F*(lTfit*'^6'5 
TLioTfc, y:Jf —7LAt|it:{)t® 
fficMoT < nsbit-r, 

X’m■oX^'X hmb'x'.'Z t t:A y i t. 


T'li-y-70^ - 7 0 A *■ (^)^ Sc N *■ ;i' 
-7”^scT'fiehnTl.'it*^ mmim. 
ffi^-ETAsto, oi y-y-7V-^7^ 
i‘fcEttitHii®ftt:A y. 
§nT(.'A®*'6*'y it, wn*'fi]^® 
^® 2T't, 

PR0CXt|’7^';i^®mA(: 5o0?IS:*f 
lejt $ nT (.' i t (Hiiit®fi]* ^ ® 1 T't), 
w ix li ®fjlli-y-7V—^ 7 cEait ffi i: 

^p»f$'Sci:4i (init,19iJT'li U., 

M® 5 55:S:(:, Pico, 0 , 10 , 10 ,65 (“A”® 
rxJ{—3-F) %-4xT(.'it, 
PROCX®il) l> A i t * S t HT® i 7 

c A y i t, 

1) ^pif3E&cii^$nT(.'S^ic®ffi^ 

^S:X:5? -yt^iiljlt s, 

2) ?isc*'4x‘itiT(.'Wjr, .E®fji4'Pi 

;A, ^pJr^&'^ftAts, 

3) -y-7V—^7 A»fy^tiit, 

4) RET PROCjSt-ry ^-7L, ECil 

iSLAfilA7C®^»:'^Mt, 


FUNCniK5 

flE'3'C3Ad:3 


FUNCIW&liPROCX^-KISC L A t ® 

-rs:®AA'-rat.'iit.it, PRocxisjt* 

C^ScAiliSL A* t-'E7V-^7 
iflL, RET FUNCS:T'ii^$ t-AtiiA®! 
S c t C A y i t, 

-»®BASICT' MS:A^^t S ® Cii 
DEF FN5:^1£(.'it*^C:®^^Ulff 
T'*|t |( ns raScA'ltC L*>«(.'S ; t** 
T'§ it A, 7i'-7°E:®BASIC®^-g'A' 
t ?liisc ?> y-1 o csi]Pi$ nT (.'i t, 
lftc#|! &nA(.'J: 7 AIII»:AieitL 
Ai.'ii'g-Cli, -t7>-^7C LT5S»:?f 

1^oTfii®Stti«L^ft7 c: tcA y it, 
L*'L, C®:^i£A*t7“n^"7 A*S|§^C 
A-^TLii.'. * t*'iil%AiSLTAT L 
AC^LT(.'S0*'$o(ty n*‘ii A(.' t 
(,' 7 - t C A-5T L i (.' i t. 

FuzzyBASIC®FUNCBIS:li, cn(i® 
1 9 Lf^o L/Jo fi9 

L J: 7o 

Ux I' 3 

10 

20 ' 2;i'>y 'y y t'l 

30 

40 ' 

50 c I s 

60 print func (TX * 2 +Y“2j, 1 0,20) 

70 end 

8 0 

90 rx'2+Y“2j 

100 ret func lEl+J*J 
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eo'no) PRINT itt'FUNC 
Tl'iTo 2 OCO^ISSC (C. C-r'IJ;i0i:20) 

Jlo-c 

Lit*N 4®*«RET F 

uNcxr, t?i]-rmxi+jxj, 

/.■ 2 *5:0 e mm l r i.- i t, 

fc 5 L J: 7„ J: < 
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4) RET FUNC^Ct: J: OIgSJn/.'fi?? 

ZZ-C, PROCXtFUNCBISc4’It5± 
T'aff L-Cfci'f.-IJ ■piU i' 

$3g(XiSf 5-^'i:oi.'-r|jiBflL-rfe^ Hi 
i o 




r 

f, POP|l|*5:t0a'.'iJ;x^ 

POPligSt TOPf5g*5:ii^:0 4-*-C)?Ji.' 
lins c 11;4 y I ■t*^ 

itoTOPUJgc 
(:o(.'-C(i4A,0P>‘lM {) * ^ i ■ti•^*^PO 
p r?asc4 o t o0 it® 4 A-irfgisciifse ? if 
^t:|J;iKa[0®^lilfifi4>#i-C1l’6 4i.' t 
Hr (?0a*ii#i 

TA-C < 4'$I.')„ 

Cl ton'll, 3t(:$Scx^ 


r'-/,4 !:'-rTVJf-^fflt.'-CJE-V7i^^ 
4ili*>Lito y X h 4 ^1,-r < 
w nii 2,4,6,8 0i.'-f 
Si-T'^lb, tf $n44r-(: J:-^-c 1 

i: t 5 t 3> n4^*-r'ON ~ GOTO 
4 yG0SUB4 y 

mmrt. 

S'lf ^ ffl I.' 4159 js I) leit-r ^ i T „ 

yxh5li0*>iin iX'0)^mm (2 >^) 

n m: o I' T g ft ^0 ?f 5 ^ * T Ifi yj L T i' 
i-to 

c:0#Df4’1£7fil*li, M\YS.k^<Di 
ix”a^"7 AC-r?!, iBfttLTffi-^4^ 
ilt:45w ti:*y ito w0fi8]0ii^. 
»rit:s:ii 

0 if x = 0 

f (x —1) +x^ if x>0 
t4y, x”Bi!'"7A t, •?■ 

o< y|lGJ^t:4'5Ti.'40*sh**5-rL 


^Scx^f VSTACK B-7> Kcj; 
oTffiSiOr K'^xt:ffi*0:>c^ S-TliS 
c t i to 4efjifi!Fi:li5F00H~6200H 

0768^^4 i'*>'#:®?n-ri.'ito 
PROC^:, FUNCII|S:i:fai.'T'^&0tt 

1 4 0 *>c: 0 j^y rrt, 1^*5: 

Mr6$*5::9-r't*-G,PROC 
X, FUNCK*5:t^ftt4^-ti:i2^M b 
ti:4y ito 

i4, C0t i>5K*!cVS(^*5:xX-xt0 
0'®*'', g®j6^i:i2iit 
■7'-x>|f0 SP 

{) G xnii'J: I'-TL 1 7 o RET 
PROCX, RET FUNCX0^^ft:i Oil 

xx-;' 

tt^4 >4?t:i2**)!lPl 1^4x4 w t (:4 0 i 

to 

^ScxX-^ttiPROCX, FUNCmSf 
®6n.4W^1-t:. f-x^y^tLT 
S*i:®7 4 t {)-ri! ito ■^0!:^t:® 
)bn40*fPUSHX (-7i^>|§0PUSHt; 
5t)£).PULLX (POPCitS) 02^^t, 


-;' i' \i.ry 4- bn# 768 -'f 4 b * 4 t 

iliZo itz, 1 lfl]0PROCX^fi-i:o|!, 
12^<'4 b*f®ffl3>n4 t i LfZo t 

4t, PROCX^FUNCX0tXT4 
^-^-'u*564ft(768-M2) (:$l|KS$ nt i'4 
zti:40ito t c: 
GOSUBX0tXT4 yy'i'^b^X 127 
si-ri^t t*i.'T*4 0-r, ^)t*^*4 
J: 7 i it/vt'o 

i 7 *^ w C -r^feli }:%i Z'y ItAX^fZ 
VSTACK =i^> K^fflt,<-t:,^Scx4? -7 7 
^il*'07 K^x--*j*'Lt L i ili'J; i' 
0-rto tz i iii'LIMIT$7FFF4^^f0 
* t i; VSTACK $8000, $8600t-r‘fct 
ntf, '^*5:x^?-;/70:k&$*n536^<4 b 
t 4 0.127fi I X'O) t X r 4 > 7' 5) "TSb t 
4 0 J to 

{> 11) t$®cx^-7 7*>'s*-ni:i'7j7 
Kwx0^^ry*fteil;i:44 J: 74^{)t 
4-r Lj:7*N C07 K'^Xl4:<^)tii-7:i^ 
VX^r-;^7 0—3i3t L-C®ffl$n4C:t(: 


J: 7< 


t|;it*TA4t. FUNCM*ic0® 

f^liiX0J; 7 1:4 0 i to 

1) ^pJf$*Sc(:m^$4i'C(.'4$Sc0ft4 
^®:xx '> t--il®t 4o 

2) ^|.*5:*^4x t-fiti'nif, ■^0®%’^ 
p/r^Sct:4x.4o 

3) 111*5:^1—f-v4O'mto cci-ris 
PROCXtl^l^lBlCo 

y X b 2 


POPII9S: (ti.'7 J: 0 i4xr A^Sc-rt), 
Topmsc (ini) i^xTA^s:) -rto 
PUSHXti®l;0S0®?f X X -;/ 71:® 
PULLXli X 4? •>> 7 C® i 4x4® 

^mmzm o mt^^-r'to popi5i*5:ii, 
^iiO X4?-Xt*-G®4'®l0ait f> 0 -rt 

|sioaiL4®4$lgci:ftA-ttc, 4 

4^i:®^ii L i to TOPIHSii X X 7 

0 1.' t> li'A,±t:® i 4xT i' 4 ® ^iEt f) 0 

ix^A yxbs 


4 0 i to -7 > X 7 iiftfeso IJ 256 

4 b LA- (4-tf'L*‘40*'liMit) 5*f-S? 
4iTi.'4'.'0ir't*L C4LAM K^<4 b t 
4 0 i to 

1 K^<'4 b y y X 'y y r.-Z'^Tn.' 
A.L''p4i.' 0*'4. t-&'3 4:^{>i.'4-C'L 
J; 7o #®t:® 71 ^- 0 -Cli €^0 14a'0-C', 
Vi/y X7 7 71:15:10^^4 b {)flsio'r*4x 
U'+^c L4 0 ^ t o ''fe-0gij51-A^~FUNCM 
0 A'f> n a-tas i 4 7 D 7'X A 


10 





20 

' -a 9'; sir 




30 





40 



I 0 

■ ##»####### #8###### 

5 0 

C 1 S 


20 

01J-9 10 f 7 ' / i ' i' -i ^7 

60 

on func(rKEYj) 

gosub ruPj,TDOWN j,tlefij,trightj 

36 

• 8888 8888888:1 

70 

end 


40 


80 



50 

c 1 s 

90 

TKEYj 


60 

for 1-0 to 10 

100 

J-0:repeat 


70 

print deci(I;func 

110 

I■in ke y 


80 

next 

120 

if I-''2‘' then 

J-2 

90 

end 

130 

if I-"4" then 

J-3 

100 


140 

if I-'6'' then 

J-4 

110 

rSQUSUMj 

150 

if I-“8' then 

J-1 

120 

ifl-0 then ret func 

160 

until J 


I 30 

ret func func(fSQUSUU 

170 

ret func J 
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tt-rii4*<, -7j^>xif 
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256^^ h L*-7i^>X^ 5'^'4ffl#.LT 
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t- t -h^^'T L J; 7 o 


SDi^iisr 
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50 rSTARTj 
60 Iiait $7FFF 

70 WI -40:' 40 or 80 
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90 gosub ruAINj 

100 end 

110 ' 

120 • U'j 
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i^mx'ti, 7ofi-0 
$3ScWI t:ftALt:t.'Sg|5^^40**G80t: 

mMttilX, ^co^s^kipm to 

it', 7°n7'7 ^0l.^t$ 

L-sb, 

>)it0X', fj:^x 

I'ito 

tnii'^n4D0xt'’-Kt;4') ito 
ta^'-'y^commk'JyLfSttLXtMli 
feL i I't: L i L J: 7o PROC35:, FUNC 
ifS4*tt-oC7^fflL-ci'it0-r, 

00 ?) 0 -tr'i.t < 4'$ I'o 
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^/u-^yrto WT. En]^kim<y^- 
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t>h4 
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J = -l 3 = 0 3=1 



^ *7 A 


140 ruAINj 

150 cls:aidth 40 

160 X-1:Y-1:D-3:W-'.":P-'B' 

170 proc fBOXj,14,0,38,24,•«■ 

180 repezt 

190 gosub •‘MAP j 

200 gosub fMOVEj 

210 until 0 

220 ' 

230 ' AV'^ 

240 ' 


164 Oh! MZ 1986.10. 















25e 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1080 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 
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rMOVEj 

on funcCKEYj) gosub r hqVEF j, fTR j, r TB j, r TL j 
return 

rMOVEFj 

if func (fBITj,1,0) return ruOVEj 
X-X+ (D-D- {D-3) 

Y-Y+ (D-2) - (D-0) 
return 

fTBj 

gosub rxLj 

riL j 

D-Bin(D-l,3)J return 

riRj 

D-(D+1) ♦ (D<3) : return 

' 

rxEYj 

J-0 

repeat 
I • i nkey 

if d-'B’) or (I-"r) or (I-$1E) then J-1 

if (l-'6‘) or (I-“K') or (I-$1C) then J-2 

if (I-'2') or d-'M") or (I-SIF) then J-3 

if d-‘'4“) or d-"J") or (I-SID) then J-4 

until J 
ret func J 

' y-fn 

ryAP J 
C-0 

proc rBOXj.15.1,37,23,' ' 

gosub TMAPSUBj 

return 

ryAPSUBj 

for 1-0 to 3 
gosub fLEFTj 
gosub TRIGHT j 
gosub rpRONTj 
I-I+C 

next 

return 

riEFTj 

if func (fBITj,1,-1) 
then 

on 1+1 gosub rL0Wj,TLIW j, rL2WJ,rL3ffJ 
else 

on I+l gosub rL0Pj,TLIP j, rL2Pj,rL3Pj 
end if 
return 

rRIGHT J 

if func (TBITj,I, 1) 
then 

on I + l gosub rR0ff J, rR1R J, rR2W J, R3W J 
else 

on I+l gosub rR0Pj,T riPj, rR2Pj,TRSP j 
end if 
return 

rpRONTj 

if func (TBITj, 1 + 1,0) 
then 

on I + l gosub rpUfj, rF21fJ, rF3Wj, rF4Wj 
end if 
return 

' HO 

fBOXj 

for J-J to L 
cursor I,J 

print s t r i n g (II, K- I + 1) 
next 

ret proc 
' 1 

rTRLHj 

for N-0 to 3 
cursor I,J+N 
print string(K,N+l) 
next 

ret proc 
' O'jHO 2 
riRRHj 

for N-0 to 3 

cursor I+3-N,J+N 
print string (K,N+1) 
next 

ret proc 
' 3 

riRLL J 

for N“0 to 3 
cursor I,J+N 
print string (K,4-N) 
next 

ret proc 


1310 ' O'jHO 4 
1320 ' 

1330 TTRRLj 
1340 for N-0 to 3 

1350 cursor I+N,J+N 

1360 print string (K,4-N) 

1370 next 

1380 ret proc 

1390 ' 

1400 ' Kjr' !Ji' 7 UA' 

1410 ' 

1420 rL0Wj 

1430 proc riRLHj, 15, 1,W 

1440 proc rROXj, 15,5,18,19,W 

1450 proc rxRLLj, 15,20,W 

1460 return 

1470 rilWj 

1480 proc riRLHj, 19,5,W 

1490 proc TbOXj,19,9,22,15,W 

1 500 proc TTRLLj, 19, 16,W 

1510 return 

1520 rL2lfj 

1530 cursor 23,9:print chr$(W) 

1540 proc rB0Xj, 23, 10, 24, 14,W 

1550 cursor 23,15:print chrS(W) 

1560 return 

1570 rL3Wj 

1580 cursor 25,11 

1590 print c h r S (W) ; <DL> ; c h r $ (W) ; <DL> ; c h r $ (W) 

1600 return 

1610 ' 

1620 ' fc?' li' 7 7'7n 
1630 ' 

1840 rL0Pj 

1650 if func (TBITj,1,-1) 

1660 then 

1870 proc TBOXj,15,5,18,19,P 

1680 else 

1690 proc TBOXj,15,5,18, 19, ‘ ’ 

1700 end if 

1710 return 

1720 rilPj 

1730 proc TbOXj, 19,9.22,15,P 

1740 return 

1750 rL2Pj 

1760 proc rB0Xj,23,11,24,13,P 

1770 return 

1780 rL3Pj 

1790 cursor 25,12:print chr$(P) 

1800 return 

1810 ' 

1820 ' JA' 

1830 ' 

1840 TReWj 

1850 proc fTRRHj,34, 1,W 

1860 proc fBOXj,34,5,37,19,W 

1870 proc TTRRLj,34,20,W 

1880 return 

1890 TriWj 

1900 proc rTRRHj,30,5,W 

1910 proc rBOXj,30,9,33,15,V 

1920 proc TTRRLj, 30, 18,R 

1930 return 

1940 rR2Wj 

1950 cursor 29,9:print chr$(W) 

1960 proc fBOXj, 28, 10, 29, 14, 1f 

1970 cursor 29,15:print chr$(W) 

1980 return 

1990 rRSWj 

2000 cursor 27, 11 

2010 print c h r S (R) »<DL> ♦ c h r $ (W) J <DL> J c h r $ (W) 

2020 return 

2030 ' 

2040 ' 7>>B 

2050 ' 

2060 rR0Pj 

2070 if func (TBITj,1,1) 

2080 then 

2090 proc rBOXj,34,5,37,19,P 

2100 else 

2110 proc rB0Xj,34,5,37,19,' " 

2120 end if 

2130 return 

2140 tRlPj 

2150 proc TBOXj,30,9,33,15,P 

2160 return 

2170 rR2Pj 

2180 proc rB0Xj,28,11,29,13,P 

2190 return 

2200 TRBPj 

2210 cursor 27,12:print chr$(P) 

2220 return 

2230 ' 

2240 ' vj7y> iA' 

2250 ' 

2260 rpiRj 

2270 proc fBOXj, 19,5,33,19,P 

2280 C-100 

2290 return 

2300 rF2Rj 

2310 proc TbOXj,23,9,29,15,P 

2320 C-100 

2330 return 

2340 rF3Rj 

2350 proc fBOXj,25,11,27,13,P 

2380 C-100 
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r 


2370 

return 


2380 

rF49j 


2390 

cursor 26,12:print chr$(P) 


2400 

return 


2410 



2420 

; y?yir'3*)y y-ro?'-?? aj. 


2430 



244 0 

TBITj 


2450 

K-X+ ((D-1)-{D-3))*I+ ((D-0)- (D-2))*J 


2460 

if K>WI-2 then ret func 1 


2470 

L-Y+ ( (D-2)- (D-0) ) »I + ( (D-1) - (D-3) ) aj 


2480 

if L>24 then ret func 1 


2490 

ret func bit ($8000,K+L*WI) 


2500 



2510 

] y-fn? 


2520 



2530 

rilAKEj 


2540 

gosub FmaKE INITj 


2550 

repeat 


2560 

gosub ruAKE SUBj 


2570 

until DONE 


2580 

gosub riiElij 


2590 

return 


2600 



2610 

TRAKE INITj 


2620 

cls:width WI 


2630 

X8-0:Y0-0:X1-WI-2:Y1-24 


2640 

X-13+ (WI-80)*20:Y-11:DONE-0 


2658 

proc rBOXj,X0,Y0,Xl,Yl, "#■ 


2660 

return 


2670 



2680 

rUAKE SUBj 


2690 

V-0 


2708 

if func (rCHRj,X-2,Y)-"#" then V-V or 

1 

2710 

if f u n c (f CHR j , X+2, Y) - " it" then V-V or 

2 

2720 

if func (rCHRj,X,Y-2)then V-V or 

4 

2730 

if f u n c (f CHR j , X, Y+2) - " It" then V-V or 

8 

2740 

locate X,Y 


2750 

if V 


2768 

then 


2770 

repeat 


2780 

R-r n d (4) 


2790 

until ( func (r2“Xj,R) and V) 


2800 

on R+1 gosub riEj,T ri j,ruPj,TDOj 


2810 

else 


2820 

if func (rCHRj,X-l,Y)" 


2830 

then 


2840 

print <LL>;" ":X-X-2 


2850 

else 



2868 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3820 

3030 

3040 

3050 

3060 

3078 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3168 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 


if func(rceRj,X+l,Y)■ 

then 

print ' ':X-X+2 

else 

if func (rcHRj,x,y-i)' 
then 

print <UU>;" ■';<LD>;" ";<LD>;" 
else 

if func (rCHRj,X,Y+1)' 
then 

print ' ';<LD>;' ';<LD>;' " 
else 
DONE-1 
end if 
end if 
end if 
end if 
end if 
return 

riEj 

print <LL>•"...'IX-X'2! return 

TRI j 

print "..,":X-X+2: return 

rUPj 

print <UU>5".';<LD>;■,■J<LD>;:Y-Y-2t return 

TDOj 

print "t<LD>;",";<LD>;".":Y-Y+2! return 
rCHRj 

if (I>X1) or (J>Y1) then ret func 
ret f unc ehtr a (I, J) 

r2"Xj 

if 1-0 then ret func 1 
if I-l then ret func 2 
if 1-2 then ret func 4 
ret func 8 

' y?iiA 

riiEUj 

A-$8000:A[0]-SFF:Idir A,A+1,25*WI/8 
for J-0 to 24 
for 1-0 to 91-2 

if chara(I,J)-" ' then reset A,J*9I+i 
next 
next 
return 
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le 

D0 

20 

7C 

30 

D0 

40 

27 

50 

46 

60 

EF 

70 

2F 

80 

5F 

90 

66 

100 

9A 

110 

27 

120 

A8 

130 

27 

140 

DD 

150 

El 

160 

DB 

170 

3D 

180 

84 

190 

IF 

200 

78 

210 

B5 

220 

27 

230 

4E 

240 

27 

250 

EF 

260 

42 

270 

8A 

280 

27 

290 

35 

300 

25 

310 

4D 

320 

4D 

330 

8A 

340 

4E 

350 

El 

360 

58 

370 

FD 

380 

5E 

390 

64 

400 

27 

410 

AF 

420 

27 

430 

A1 

440 

B7 

450 

84 

460 

1C 

470 

F7 

480 

F6 

490 

F8 

500 

F6 

510 

CF 

520 

DC 

530 

27 

540 

8C 

550 

27 

560 

96 

570 

B0 

580 

D2 

590 

09 

600 

8A 

610 

80 

620 

EA 

630 

6C 

640 

BF 

650 

CA 

660 

3D 

670 

83 

680 

8A 

690 

27 

700 

E3 

710 

F2 

720 

8F 

730 

71 

740 

90 

750 

55 

760 

91 

770 

8A 

780 

27 

790 

36 

800 

C5 

810 

8F 

820 

89 

830 

90 

840 

6D 

850 

91 

860 

8A 

870 

27 

880 

41 

890 

20 

900 

8F 

910 

5D 

920 

91 

930 

8A 

940 

27 

950 

A5 

960 

27 

970 

A1 

980 

IE 

990 

6A 

1000 

DD 

1010 

83 

1020 

8C 

1030 

27 

1040 

9E 

1050 

27 

1060 

F2 

1070 

EF 

1080 

E3 

1090 

68 

1100 

83 

1110 

8C 

1120 

27 

1130 

9F 

1140 

27 

1150 

F8 

1160 

EF 

1170 

BC 

1180 

68 

1190 

83 

1200 

8C 

1210 

27 

1220 

A0 

1230 

27 

1240 

F6 

1250 

EF 

1260 

E3 

1270 

6D 

1280 

83 

1290 

8C 

1300 

27 

1310 

A1 

1320 

27 

1330 

FC 

1340 

EF 

1350 

5C 

1360 

6D 

1370 

83 

1380 

8C 

1390 

27 

1400 

79 

1410 

27 

1420 

8B 

1430 

EF 

1440 

CD 

1450 

24 

1460 

8A 

1470 

8C 

1480 

F7 

1490 

CC 

1500 

2D 

1510 

8A 

1520 

8D 

1530 

40 

1540 

F0 

1550 

6D 

1560 

8A 

1570 

8E 

1580 

A0 

1590 

87 

1600 

8A 

1610 

27 

1620 

68 

1630 

27 

1640 

84 

1650 

DA 

1660 

8F 

1670 

C6 

1680 

90 

1690 

DA 

1700 

91 

1710 

8A 

1720 

85 

1730 

C5 

1740 

8A 

1750 

86 

1760 

E9 

1770 

8A 

1780 

87 

1790 

65 

1800 

8A 

1810 

27 

1820 

9D 

1830 

27 

1840 

91 

1850 

F6 

1860 

CF 

1870 

2B 

1880 

8A 

1890 

92 

1900 

F6 

1910 

C7 

1920 

2C 

1930 

8A 

1940 

93 

1950 

46 

1960 

FA 

1970 

73 

1980 

8A 

1990 

94 

2000 

A2 

2010 

87 

2020 

8A 

2030 

27 

2040 

8C 

2050 

27 

2060 

8A 

2070 

AD 

2080 

8F 

2090 

C8 

2100 

90 

2110 

DC 

2120 

91 

2130 

8A 

2140 

8B 

2150 

C0 

2160 

8A 

2170 

8C 

2180 

F3 

2190 

8A 

2200 

8D 

2210 

67 

2220 

8A 

2230 

27 

2240 

94 

2250 

27 

2260 

86 

2270 

C7 

2280 

11 

2290 

8A 

2300 

87 

2310 

C7 

2320 

11 

2330 

8A 

2340 

88 

2350 

EE 

2360 

11 

2370 

8A 

2380 

89 

2390 

66 

2400 

8A 

2410 

27 

2420 

02 

2430 

27 

2440 

97 

2450 

27 

2460 

68 

2470 

29 

2480 

D0 

2490 

F0 

2500 

27 

2510 

BF 

2520 

27 

2530 

D6 

2540 

B3 

2550 

84 

2560 

69 

2570 

AB 

2580 

20 

2590 

8A 

2600 

27 

2610 

2A 

2620 

ID 

2630 

8B 

2640 

45 

2650 

FB 

2660 

8A 

2670 

27 

2680 

E0 

2690 

C3 

2700 

8B 

2710 

8A 

2720 

8E 

2730 

90 

2740 

AD 

2750 

E4 

2760 

8F 

2770 

84 

2780 

7B 

2790 

94 

2800 

8C 

2810 

90 

2820 

07 

2830 

8F 

2840 

0D 

2850 

90 

2860 

05 

2870 

8F 

2880 

BE 

2890 

90 

2900 

07 

2910 

8F 

2920 

A9 

2930 

90 

2940 

05 

2950 

8F 

2960 

48 

2970 

90 

2980 

94 

2990 

91 

3000 

91 

3010 

91 

3020 

91 

3030 

91 

3040 

8A 

3050 

27 

3060 

49 

3070 

FB 

3080 

53 

3090 

AC 

3100 

5D 

3110 

97 

3120 

4B 

3130 

36 

3140 

27 

3150 

95 

3160 

54 

3170 

ID 

3180 

27 

3190 

A0 

3200 

96 

3210 

98 

3220 

9B 

3230 

CA 

324 0 

27 

3250 

9A 

3260 

27 

3270 

97 

3280 

ID 

3290 

IE 

3300 

B6 

3310 

E8 

3320 

83 

3330 

83 

3340 

8A 

3350 

27 




-:V-Y-2 
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TE”li '"LOAD DATA? Y/Nj tMuT 
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to 
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5 
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R 
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U7.h1-1 MZ-15flOffiPAL-SET 


U7>h1-2 MZ^500i|PALETTE 


10 

OUT© 

$0. 0 

20 

OUT© 

S U $C0 

30 

OUT© 

$2, $7 

40 

OUT© 

$3,$C7 

50 

OUT© 

$4,$38 

60 

OUT© 

$5,$F8 

70 

OUT© 

$6,$3F 

S0 

OUT© 

$7,$FF 

90 

END 



UXh2-1 MZ-700jiPAL-SET 


10 OUT#0,0 
20 OUT#!., 192 
30 0UT#2,7 
40 0UT#3,199 
50 0UT#4,56 
60 0UT#5.248 
70 0UT#6,63 
80 OUT#7,255 
90 END 


u::^h3/AU 



J 


RUN 


1 0 

DEF 

KEY ( 

1 ) 

-‘RUN ‘+CHR$(13) 

20 

DEF 

KEY ( 

2 ) 

-"LIST" 

30 

DEF 

KEY ( 

3) 

-"AUTO" 

40 

DEF 

KEY ( 

4) 

-"RENUM" 

50 

DET 

KEY ( 

5) 

-"DIR " 

60 

DEF 

KEY ( 

6 ) 

-"CHR$ (" 

70 

DEF 

KEY ( 

7) 

-"DEF KEY (" 

80 

DEF 

KEY ( 

8 ) 

-"CONT" 

90 

DEF 

KEY ( 

9) 

-"SAVE " 


100 DEF KEY (10)-'LOAD " 

110 PRINT'Q CD' 

120 RUN "PAL-SET' 


le 

2* 

31 

4t 

56 

69 

71 

89 

99 

199 

119 

129 

139 

U9 

159 

189 

179 

189 

199 

299 

219 

229 

225 

239 

249 

259 

269 

279 

289 

299 

399 

319 

329 

339 

349 

359 

369 

379 

389 

399 

499 

419 

429 

439 

449 

459 

469 

479 

489 

499 

599 

519 

529 

539 

549 

559 

569 

579 

589 

599 

699 

619 

829 

639 

849 

659 

669 

679 


OUT# 

t9, 9 

689 

OUTt t4.Ad) 


OUT# 

tl,tC9 

689 




OUT* 

t2,t7 

799 

GET At:IF 

At-" 

’ THEN 799 

OUT* 

t3,tC7 

716 

IF At-'O' 

THEN 

779 

OUTf 

t4,t38 

729 

IF At-'D' 

THEK 

899 

OUTt 

tS,SF8 

739 

IF At-'B' 

THEN 

869 

OUT* 

t8,t3F 

749 

IF At-'B* 

THEN 

1999 

OUTt 

t7,tFF 

759 

IF At-* * 

THEN 

1139 ELSE 



769 




DIM 

A (8) 

779 

CL-CL41 




IHIT 'CBT:CR*sCLS 1 

COBSOB S,19:PBIMT 'LOAD DATA T Y/K* 

GET as:IF AS-'* THEN 139 
IF AS-'Y' THEK 179 
IF AS-*M- THEK 225 ELSE 139 

ON ERROR GOTO 225 
B0PEH#1,*QD:PAL' 

FOB I-l TO 8 
INPUT 81,All):NEXT 1 
CLOSE 81 

CLS 1 

BOX 18,48,218, 132 
LINE 19,79,218,79 
BOX [1.9] 162, 53. 194, 65.5 
BOX [7,9] 138,89,186.129,4 
CURSOR 6,7:PRINT 'PALETTE NO.' 

CURSOR 3,19:PRINT * (*::PRINT[9,7] *R*;:PRINT ']* 
CURSOR 3,12:PRINT ' [C]* 

CURSOR 3,14:PRINT ' [B]' 


789 IF CL-4 THEN CL-1 

799 GOTO 839 

899 CL-CL-1 

819 IF CL-9 THEN CL-S 

829 ' 

839 IF CL<>1 THEN 879 

849 CURSOR 4,19:PR I NT [9,7] *R* 

859 CURSOR 4.12:PR I NT (7,9) *C' 

869 CURSOR 4. 14:PR 1 NT (7.9] ■B*:COTO 799 

879 IF CL<>2 THEN 929 

889 CURSOR 4,19:PR I NT [7,9] 'B* 

899 CURSOR 4,12:PRINT [9,7] *C' 

999 CURSOR 4,14:PR I NT(7,9] *B*:COTO 799 
819 ' 

929 CURSOR 4,19:PRINT(7,9) "R* 

939 CURSOR 4,12:PBINT [7,9) 'O' 

949 CURSOR 4.14:PE I NT [9.7] *B':COTO 799 
959 ' 

989 IF CL-1 THEN R-B*1:IF R-8 THEN R-7 

979 IF CL-2 THEN C-C+HIF C-8 THEN C-7 

989 IF CL-3 THEN B-B+1:1F B-4 THEN B-3 

999 GOTO 1949 


CL-1 

FOR I-l TO 8 
CURSOR 17.7;PRINT 1-1 
IF I-l THEN OUTS SS,9 

IF 1-2 THEN OUTS SS,SC9 

IF 1-3 THEN OUTS SS,S7 

IF 1-4 THEN OUTS SS,SC7 

IF 1-5 THEN OUTS SS,S38 

IF 1-6 THEN OUTS S5,SF8 

IF 1-7 THEN OUTS S5,S3F 

IF 1-8 THEN OUTS S5,SFF 

R-9:C-9:B-9;X-A|I) 

IF X-128->9 THEN X-X-128:B-B+2 
IF X-84->9 THEN X-X-64:B-B«1 
IP X-32->9 THEN X-X-32:C-C+4 
IF X-16->9 THEN X-X-16:C-C*2 
IF X-8->9 THEN X-X-8:C-C«1 
B-X 


CURSOR 6,18 

PRINT ' ':CURSOR 6.19 

IF R-9 THEN GOTO 579 
FOR J-t TO R 
PRINT '••;:NEXT J 
CURSOR 6,12 

PRINT ' * tCURSOR 6.12 

IF G-9 THEN GOTO 629 
FOR J-1 TO G 
PRINT '•*::NEXT J 
CURSOR 6,14 

PRINT • * :COBSOB 8, 14 

IF B-9 THEN GOTO 679 
FOR J-1 TO B 
PRINT ■•*;:NEXT J 


1999 IF CL-1 THEN B-R-1:IF B<9 THEN B-9 

1919 IF CL-2 THEN C-C-1:IF C<9 THEN C-9 

1929 IF CL-3 THEN B-B-l:IF B<9 THEN B-9 

1939 ‘ 

1949 A(I)-9:X-B:Y-C 

1959 IF X-2->9 THEN X-X-2»A(1)-A{1)+128 
1969 IF X-l->9 THEN X-X-I:A(I)-A(I)v84 
1979 IF Y-4->9 THEN Y-Y-4:A(I)-A(I)♦32 
1 989 IF Y-2->9 THEN Y-Y-2:A {1)-A (1)+16 
1999 IF Y-l->9 THEN Y-Y-1:A(I)•A(1)+8 
1199 A(I)-A(I)+R 
1119 GOTO 529 
1129 

1139 NEXT I 
1149 ' 

1159 B0X[1,9] 19.132.218.146 

1169 CURSOR S,17:PB1NT 'SAVE THIS DATA T Y/N 

1179 GET AS:IF At-" THEN 1179 

1189 IF At-'Y* THEN 1219 

1199 IF A*-'N* THEN 1279 ELSE 1179 

1299 ' 

1219 INIT *QD:Y* 

1229 »OPEN«l,‘QD:PAL- 
1289 FOB I-l TO 8 
1 249 PRINT tl,A (I) :NEXT 1 
1259 CLOSE «1 
1269 ' 

1279 CLS 8 

1289 FOB 1-1 TO 7 

1299 CIRCLE [1,9]S9sI 449. 199. 49 

1399 PAINT [1,9]39*1449, 199,1 

1319 NEXT I 

1329 ‘ 

1339 FOR I-l TO 8 

1349 OUTS I-l,All):NEXT I 

1359 END 


U7>h2-2 MZ-700SiPALETTE 


19 ouTse.e 
29 OUTSI. 192 
39 0UTt2.7 
49 0UT83, 199 
59 0UT»4.56 
69 0UTRS,248 
79 OUT86,63 
89 0UTt7.255 
99 ' 

199 DIM A(8) 

119 COLOR .,7,9:PBINT 

129 CURSOR 5.19:PBINT 'LOAD DATA » Y/N' 

139 GET A$:IF At-" THEN 139 
149 IF At-'Y' THEN 189 
159 IF At-'N' THEN 249 
169 GOTO 139 
179 • 

189 ON ERROR GOTO 249 

199 CURSOR S.lltPRINT CHBt(127):* PLAY'.-ROPEH 'PAL* 

299 FOB I-l TO 8 

219 INPUT/T Ad) :NEXT I 

229 CLOSE 

239 

249 PRINT 

259 CURSOR 22, 6:PR I NT [5. 9] ' _ ' 

268 CURSOR 22. 7 : PRI NT [5,9] 'BHi' 

279 CURSOR 21,19:PR I NT [ 4.9] 

289 CURSOR 21.11:PRINT |4,9] 

299 CURSOR 21,12:PR I NT [ 4.9 J 
399 CURSOR 21,13:PBINT[4.9] 

319 CURSOR 21, U.-PRINT (4. 9] _ 

329 CURSOR 6,7:PBINT 'PALETTE NO.* 

339 CURSOR 3,19:PRINT * (* ;:PR I NT (9,7] *B’;;PB1NT *]' 
348 CURSOR 3,12:PRINT * (Gj * 

859 CURSOR 3.14:PBIHT ' [B] * 

369 ' 

879 CL-1 

389 FOR 1-1 TO 8 
399 CURSOR 17.7:PR1NT I-l 
499 IF I-l THEN 00T#S.9 

419 IF 1-2 THEN OUTtS.182 

429 IF 1-3 THEN OUTtS,7 

439 IF 1-4 THEN OUTtS.199 

449 IF l-S THEN OUTtS,56 

459 IF 1-6 THEN OUTtS,248 

489 IF 1-7 THEN OUTtS,68 

479 IF 1-8 THEN OUTtS,255 

489 * 


499 

599 

519 

529 

539 

549 

559 

569 

579 

589 

599 

899 

619 

629 

638 

649 

659 

669 

679 

689 

699 

799 

719 

729 

738 

749 

759 

769 

779 

789 

799 

899 

819 


849 

859 

869 

879 

889 

899 

999 

919 

929 

939 

949 

959 

969 


B-9:C-9:B-9:X-A(1) 

IP X-128->9 THEN X-X-1 28:B-B^2 
IP X-84->9 THEN X-X-64:B-BM 
IF X-32->9 THEN X-X-32:G-C44 
IF X-16->9 THEN X-X-16:G-C42 
IF X-8->9 THEN X-X-S.C-C+l 
R-X 

CURSOR 8.19 

PRINT SPC (7):CURSOR 6, 19 
IF R'9 THEN 629 
FOR J-1 TO R 
PRINT '•';:NEXT J 
CURSOR 8.12 

PRINT SPC(7):CUBSOB 6.12 
IF G-9 THEN 679 
FOR J-1 TO G 
PRINT '•*;:NEXT J 
CURSOR 8,14 

PRINT SPC(7):CURSOR 6, 14 
IF B-9 THEN 739 
FOR J-1 TO B 
PRINT :NEXT J 


0UTt4,A(I) 


GET At: IF At-" THEN 759 
IF At-'D' THEN 839 
IF At-'O' THEN 889 
IF At-'B' THEN 1929 
IF At-'B* THEN 1869 
IF At-- ' THEN 1199 
GOTO 759 

CL-CL4I 

IF CL-4 THEN CL-1 
GOTO 899 
CL-CL-1 

IF CL-9-THEN CL-8 


IF CLol THEN 939 
CURSOR 4, I9:PRINT19,7) 'R* 

CUBSOR 4. 12:PRINT(7,9] 'G' 
CURSOR 4, 14:PRINT[7,9] *B' 
IF CL<>2 THEN 989 
CURSOR 4, 19:PRINT[7,9] 'B* 
CURSOR 4,I2:PRINT[9.7] 'G* 
CURSOR 4, 14:PBINT[7,9] 'B* 


GOTO 759 


GOTO 759 


979 • 

989 CURSOR 4,19:PR I NT (7,9] 'R* 

999 CURSOR 4,12:PRINT (7,9) 'O' 

1999 CURSOR 4,14:PR I NT (9,7) *B':COTO 759 
1919 ' 

1929 IF CL-1 THEN R-R^dlF R-8 THEK R-7 

1939 IF CL-2 THEN C-Ctl:|F G-8 THEN C-7 

1949 IF CL-3 THEN B-BtUIP B-4 THEK B-3 

1959 GOTO 1199 

1969 IF CL-1 THEK B-R-1:1F R<9 THEK B-9 

1979 IF CL-2 THEN C-C-1:1F G<9 THEN G-9 

1989 IF CL-3 THEK B-B-1:IF B<9 THEN B-9 

1989 ‘ 

1199 All)-9:X-B:Y-C 

1119 IF X-2->9 THEN X-X-2:A (I)-A(1)♦128 
1129 IF X-l->9 THEN X-X-1:A (1)-A (I)464 
1139 IF Y-4->9 THEN Y-Y-4:AH)-A(I)432 
1149 IF Y-2->9 THEN Y-Y-2:A (I)-A(1)♦16 
1159 IF Y-l->9 THEN Y-Y-1:A{I)-A(I)48 
1169 A(I)-A(I)4R 
1179 GOTO 579 
1189 ' 

1199 NEXT 1 
1299 - 

1219 CURSOR 3,17:PRINT 'SAVE THIS DATA T Y/N* 

1229 GET At:IP At-" THEN 1229 

1289 IF At-'Y* THEN 1268 

1249 IP At-'N* THEN 1329 

1259 GOTO 1229 

1269 ‘ 

1279 CURSOR 3,18:PRINT CHRt(127);* RECORD. PLAY* 
:IOPEN *PAL* 

1289 FOB 1-1 TO 8 

1289 PRINT/T AH) ^NEXT I 

1399 CLOSE 

1319 - 

1329 PRINT 

1339 FOR I-l TO 7 

1349 CURSOR 4*143.7 

1359 FOR J-I TO 19 

1369 PRINT(I,9] *iH'i:PRINT *BOB]': 

1379 NEXT J,| 

1389 ' 

1889 FOR I-l TO 8 
1499 OUTtl-l.A(1):NEXT I 
1419 END 


172 Oh! MZ 1986.10. 
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I I ^gXIturbo^S^a-StSor 

L^5(D•Cg•«', 5“'r7,7b-t':£ 

I I M■^<i:Sci:otsyu^^®r, 

!±it]Z)-&®)i®T VCOS^ot®^®!? 
-^tf, 2oo^'t'> / 400^-f^-g-n'fnca 

:55i\©t'®Fca@(SEzio^-e/u*-7 xi 

G®:?35'D'7SMe«'^<0 aflo^-r^-cia 

smas «¥ 

X1G / turbo / turbo n cia 

3310 , <l»^UfeRGBx-YX:/ 

ii^cia®j)i0tf®‘os^o 

1 ) turbo, turbo n ■ciaSP®g(400^ 
-f» 

2) fil320R'VS (40fi)® 

640K'yS(80t&)riailfflC«5«:t\o 

3) ${$;»5ffiT:i,\s®iaRFi±it)rias: 
< "'trxTTtiitij «®r. TVCt^x:a 
A7:;tfQt^«ala, r^cvTR«<b”^ia 

G®®eia^56iz@ 
ggtffiTg-s®r 320 K'vKrfeSffl 
ttlasE•cs«^^o 

Gn5®Gtb'5^^S(b. XIG-CQ 
B^^bfeturborRGBxYX^b't^s 
SO^C^S-ect^<bU-5®(araMtf^S 
Tua^o ^zr, ^g’ias§§e'CM>o 

I I Xlturbo model 30®H—■y— 

r,turbo BASIC^®fflbi:t\ 

I I Sy. B^^5t?B93SKACNV 

$ la, y-zLp;uz<i:st “A$A;”y“A 
SA;” C«5t®Z<i:ryy«3Ci5!l», K 
uetzsria "a*A;” cs^rbsu 


sy<.&®turbo BAsic^iarbayy? 
y® t) * 

§5®!* ME 
)B^yS$tlZt\oTb^-5<b, 

-enia basic®/ \’ycia«< 

t?-nJ’/l/®|giltryo KAC 
NV$«:<b‘®cF-5IZ, l5y®BASICIZia 

mm.a:im^izz, ba 
SI c y ng^rt \s® y ^zzlp/ u y 
-oT:^^5®b'^®lzlaPJ»fy^sy^^sc 
®x®i5i«'5bT:=b^z 
3.>^/i/®®gt \'c®5c tyiaii/u^iry, 
I I X1F®Z1—tf—"Cyo CZ-8PC 

^nmz7>y'j^- 

I 12/3>vz’h® "y'jys! CO 

NFIG2. uty” V CZ- 8 PCI ^§iSL/<i;y 

d:bte®ryyrs®:tN®ry, yrzip 
;^<^:35‘Olzt^ye:t\®r•g•, ynyy^n 
aybt\ffi'Cbao«‘7 y.-3.-yt±ir 

r[Z] .OTHERj ^mXJ, 7>-5'®iS 

SbcfcytySi:'’A-D Printer Nam 
e:j IZStJ SyoZ-ZrA® bcK-ptySt 
1 x^ifbe^iaro KZ3S/^^nya<7 
t)S5/u rNEvyON 
7jizia4fe/Jt^Anr^y. 
sy/uo EB)iar<)g$t\o ^® 

^z®7*-5’t.z'yAnnia<st\®y=fe<i; 
Kiono^^ho ia3iU!i ssjii y 
I I Z®lg<tfcz-8PC1 ^m.-:>1z(D 

ryy, "yuz/5’coNFiG.ut 

I I y"®®^^75ya:<tl«■l0^y 

hjo <!>«:<Zt.g|?:^fJStBy«<i:yiZb 
Et\z®-5®ryianz*=&. y>jyy(Dy 

<i:y-f<J:5U<agit\b^yo SiffiffirsT 
t\S«l«iaxiF®model 201*^0 

m'Mmm ^lu eb 
NEW BASIC'f’turboBAS 
icr CZ- 8 PC 1 
uyzZ^tS, AZ:i—®c|3® 









'■CZ-8PN1 

CZ-8PC1ia, X/y—tf®^-5ctyiZ9-o 
SZ tl^5^CZ-8PNl Zl^^®1i|g;ey5 

rg-o feu '■[z]. OTHERj 

T)^T)^ffU^/^yJ>5'ZbT:S^USZ 
bTfe. yy-ymx?>^z>\zu^mv 
la®t)sy^y5. )^®ia^iA#®iz«5 
^ITZbctyo 

$r, ^zumsmw^hcLmmz.^^ 

■7U>5’C0NFIG2. Uty' ®1)/TIZZ) 
tMTryy, T.UMPo1IZ®^Z®'0®ffl!K 

a-5:6<. ^^^®^lzy ■yu>5'CON 
FIG2. Uty”=£»S]^^TUSort\S 
®ria«t\yzsT)n^y (S,^®^igtt 
zuriax-r-xT'yH® FAT nnywa 

^ozbasic ® 

AS'-y Yxy lay T hyoxy h®il 

^56®|gy«'5ZllZ'-UT:ilfT UT^T 

<;es^^o 

0:a, ^®E®izi\-oTas^yy, *7 
iJ>5'CONFIG2.Uty' z t \ x ®iaNEW 
BASICIZMUyaz-X'f'Ux-rZyo 
(iSS *-) 
MZ-2500ZMZ-1P17^-:3T 

at/sy. yuy5’®D-;b 
jffi7r\/b5^-;£®IAU'CSl\yD 

yy u y sy a®iziifij(zsio ^ u 

sy, A4y'rxzziz'X-2;ai'oyrs 
nia«g®i^izaxz®fijiz®:a®ryo 
^®a:yizuryuysyaBay«:t\a 
®rbayyo msiB lua m 
SAE5yBASIC®iJAh®t3 
5l±ig•zslz^^yla^m®^«' 
y®yyx>y7T-/L/K)K®5 
y>glzy^y^r7?6&^^a;ylzg■azz 
rg-o znia$^iz®a«<Tiir. '■^-y 
a LLiST izffi y a 
tvTZinntj-oiiiviz I j zssiy;e<=fe® 
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sffi-cu^^o ^^las<^;oc^:Uie'v-J^ 

UT.hMSiVimf^myijyi-j'Oh'y 
-iiT^c yuyh-yohy^yayyi^ 
i3im^yvisbyy^-i2-yyzd5i,\z< 
®S)C1070f7~1140eCD/t^^- 
PAGELIN^:^/^■^®B 1 
yj’ 

>77r-;iK*B«666f7. A4®»«569 

<Tr^o ± • 

yyyuu o^ioBASicrLUSTus 
®i;llL;)eSC«‘0*g-o 
Z(Dyayyu3i i ^-v66f3®o5<i 


Paging llist-*-‘Page 1 


«'^Si^^SC<tC<i:‘05S/>ec«'»5 
«:U^<^:oC^S=fe®T. ZEDA®p-fe>7 
JlUZhht)tlfeGntllL;Gt^>Po'CO> 

s?^g-5Ci:®rgsiaaria3i?7f 
2nizmJzy^L35yy’3iy^yyuyh 
POh^nzumi\^y(Dv, kflag^ 
my^ 540-1 mfizz(Ds^ynmmw2\t 

y-yyymiysiy^m^yTzz^\z 
agx$nS;>t'V-tz-57IS1 SSOI^rtllTD UT 
aci/ie)«n75iat'o-ESffic« 
sM^Tcesiio 

«a. z(DyuyyLj$j>z^-^z-y 
y^mn‘biihjn BASicrfc®fflrss 
MZ-2500 @ffl^ld:^'OS■t±^®•C^ 
S7ugox*T:<esoio (g z:iT) 

'jxhl ux ha* 

Paging Ilist*---Pa 


KPACfc^A-Lit 
ac-.*)l5P=1CS-7TL''5r 4. ^;•^4-r 
^:T•fc*S«T-r.i:•^^:'^^^ffi‘J < 
siPni, $pni. 

L'fcLSr. AA'L, fc-^-tl-L'fcfc'l'Tl' 
•5 fetTJOT+ClJ, v-jL^JU^ScftlfrC 
i. ^ 4-fe<7)fc#-^S)l1 S 

•r. e®pi, vrir;Kj»iiiLT#i$* 

L J: -5 o «F=1(i4'5-t< 
vXxAflIfiit, 'j2>S4'‘b[llt)XnTC t*ffl 
*'C*l'T < fc'? I.',* E,®1tffl-tJ)^|5|t^ 
otUFbI^J: < JSSiJilLT. K 

Fn1(c»^igJiT-#5S:;l-r?>3 i:(c4'oTi' 
^ T<7)-C'r7^</-iSUo 4'#3, «Fn1(7)rt 
^crjL'T, ilSF=%'-g-*7l+?)-i: fc*tj 
* fox-, 4 BJE L T < fc'S l'1a„ 

5656 : Tl02 *^«|5^1'tffll£ES#ST2-1 

rOh!MZSFBl?|j« 


e 2 


1000 


1470 

END IF 

1010 

^ - > > / J 'J 7. h {H 

1480 

GOTO 1650 

1020 

by jk 

1490 

' ELSE 

1030 

1040 

• 1fi*t*1^tt*t*t^t*t**t1^tt**t*ttt**t** 

1500 

1510 

ORGLNS’LNS 

FOR 1*0 TO INT (LEN (ORGLNS)/GYOMOJI) 

1050 

1060 

' * W T 7) /N* 7 ;4 — $r 15 ^ t T < T'i $ u 

1520 

1530 

LNS-MIDS (ORGLNS,1.GYOMOJI) 
0RGLNS-MIDS(0RGLNS,GY0M0JI+1) 

1070 

FiLKAMs-'TESTr ' r^)yvr^h'thyr^)V^ 

1540 

IF KFLAG-1 THEN 1550 ELSE 1620 

1080 

LPTCOL-80 ' r y 9 ay \ ^i(nn 

1550 

TST*ASC (RIGHTS(LNS, 1) ) 

1090 

PAGELIN-66 j /< — ^t) 

1560 

FLAG-TST>&H80 AND TST<&HA0 

1 100 

GYOHOJI-80 ' ^1)-^ 7^ \ 'if ay-X-^^ 

1570 

FLAG-FLAG OR (TST>&HBF AND TST<&HEB) 

1110 

uppERLiN-3 • igpsafrfi: 

1580 

IF FLAG THEN 1590 ELSE 1610 

1 120 

LOWERLIN-3 ' T gP ^ S tr IS: 

1590 

LNS-LEFTS (LNS,GYOMOJI - 1) 

1130 

PAGE$-"Y' ' 9 'f h }V ^ (Y/N) 

1600 

ORGLN$»CHRS(TST)+0RGLN$ 

1140 

KFLAG-1 • ^^7 y 9^ (1/0) 

1610 

END IF 

1 150 


1620 

END IF 

1 160 

’ * IS: ® 'f' X y 9 

1630 

GOSUB 1 380 ♦tf r •; y b 

1170 

IF GYOMOJI>LPTC0L THEN 1180 ELSE 1230 

1640 

NEXT 

1 180 

PRINT n *c a En gij T' ^ ^ It ^ . “ 

1650 

' END IF 

1190 

PRINT "LPTCOLi; GYOMOJIi^ IS ^ 1 g L T < /i $ “ 

1660 

RETURN 

1200 

END 

1670 


1210 

; END IF 

1680 

■♦CNTR-(>^'iy:/P 

1220 


1690 

CNTR -CNTR+1 

1230 

♦ IWra 

1700 

IF CNTR-PAGELIN-LOWERLIN THEN 1 730 

1240 

OPEN " r,#1,FILNAMS 

1710 

RETURN 

1250 

PGN- 1 

1720 


1260 

GOSUB 1 800 10 11 

1730 


1270 


1740 

IF LOWERLIN>0 THEN 1750 ELSE 1780 

1280 

WHILE EOF (#1)-0 

1750 

FOR I-l TO LOWERLIN 

1290 

LINE INPUT in,LN$ 

1760 

LPRINT 

1300 

GOSUB 1 380 '♦ff r b 

1770 

NEXT 

1310 

WEND 

1780 

' END IF 

1320 


1790 


1330 

CLOSE #1 

1800 


1 340 

LPRINT CHR$(12) ; 

1810 

IF UPPERLIN-0 THEN 1920 

1350 

END 

1820 

IF PAGES-' Y" THEN 1 830 ELSE 1850 

1360 


1830 

LPRINT FILNAMS: “- Page“;PGN 

1370 


1840 

GOTO 1870 

1380 

7* •; y b 

1850 

' ELSE 

1390 

IF LEN (LNS)-LPTCOL THEN 1 400 ELSE 1430 

1860 

LPRINT 

1400 

LPRINT LN$; 

1870 

• END IF 

14 10 

GOSUB 1 680 '♦CNTRY>^';y>h 

1880 

PGN-PGN+1 : CNTR'l 

1420 

GOTO 1650 

1890 

FOR 1-2 TO UPPERLIN 

1430 

' ELSE 

1900 

LPRINT : CNTR-CNTR+1 

1440 

IF LEN (LNS)-<GY0M0JI THEN 1 4 50 ELSE 1490 

1910 

NEXT 

1450 

1460 

LPRINT LNS 

GOSUB 1 680 ■♦CNTRY:.7';y>} 

1920 

RETURN 
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H2> 

i:.iA^(n7 >'r- zrmX(7) T A., 

l'#-§-?r«*'#*-h(7):^-<-:^CU-i:-oieALTfc'^LiA*^< fc'St'o Web^D^) 
(JlOfl l5H<7)il)Mi9-J Tt LJf, 4'fi, 




turbo Z’s STAFF 


Xlturboffl 

3« 


5 DRg ( 
19,soon 






Super MZSW-ys^U-X 

FORTRAN IP-1213 

O IP- 18 M 

COBOL IP-1215 

LISP IP-1216 
PROLOG 



MZ-2500ffl 

3.SDKS 


IP-1217 

S3« 

#13,soon 


7-1^—hCOo '>'J — 7.>', MZ- 
2500ffl (P-CP/MKR) (7)5 >y—'7-> 
U-Xi; LTS^Lfco 
LT^n-¥'n3 7ts-fo (-#ltl5:$;) 
K->2: 7"H2> 


7 —7U, turbo Z’s STAFF &7V-tf>h „ X I turbot/) 



ife(7)7.—/N"—"7 >aH—< 7)y\’-y 7 ••< >• S'lb, 

5>/7:—(DT v-f 'y (§r7V-b'> h„ -t-f Xlj;7 'J — 
77--T Xx-To 



•rf^-yh-h'-f 003(360)3623 

+—/|\7b5>— 



•#-Zx-y7 003(407)4230 

b'J^X 

5a 

Xl/XIturboffl 

5D)S(2«C*§) 7,200n 


Bi:tt®(7)X5 7-r -y 7X'Am<7) u'J 7 7 ^ 
5#(7):5ic7V-b'> ciL'oB-ib i 
ftibtl-S-t+AJ:, 




•y<-VX7M-r'fX 003(495)6241 



7\“VZI>AP? 


5S 


e-7--A-777-r'JTA7S UifibSIR 

l,500n 


3 y 

APT 



FILES 0h!MZT'7ilS:rrL7; □ >AP1j %-7‘H2'>h„ 

J: -o 2:119^7;AS i9‘^4'^-lrc^X'fc ‘bi.'/cL'rt#^;, 

.—.— -rTi"tr”Tr": ■"'rrii """r".]!:. i,*; .&' .■«nbh» •sth o' 2?5c««-a>»is,a!«M*i«»as 



-y —7)^(7) + —-X'JL7' 

-^XHz> h LSTo *'4oi'7)'-oT < 7;Sl'o 


mSoundGal (S»SS)S9Aas]S (7t>«»)S*etii (AB5«)«fiJllyfe- [2](#oTA7 

7 5OTA1BI i(*ii«Ji)‘F«;g5i ii]=h^. (4«siii»)Hfflj?:$i {& 

*S)mTa!A (i«$»)4>44yfell6B li]MZ-l500SraW5E (S!«*)^BaBi® (■»«») 
(Sa»)S«IA7- (*aai)ltBa3l«} [I]MZ-I5007-I''y7x 

-r77-;gfflflf9E (1¥aSm)ffi1» (H*m)mBaMe («#»)£*5EqiE (*iiiS»)4Jyt:tt 
(«7F*)S^UJlftia® (AKfflF)ABa*ll (it.S»)«iitM- (>«*»)« 

#A (7P«»)AP4J1S; (AB6)ff)igfflS» 

L/i. fc'K)Xt-) 7$X'iT. UH, «p°=(J)W>)J^ail.'7c L S 
tti\ A15(/)«5£CJ: -yT^dyan5lg-&fc7fl'*X(7)X-77*< 7c'3l.'o 
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•NEW PRODUCT 

a-»I^WD-80/85 

*iS. 

7—7°n 'y-^—Xt'C, 
Pl5g$nTi.'4 r^^APxi^y-Xj (:?if 
1zUy A >7 -y-riL TWD-80/85 (62,0 
OOR) *»8 

C®WD-80 (JISE^iJ^-^'-K) /85 
(50^Sd5il4i—-K-K) ii, •g-Saii**^*' 

2 tf, itz, 661ffx32tr 
K -;/ h 0 w ^ 7 h {. 5 7 j 

IS (isiw«ii2:^is#ti-) (Dmti t tr., 

^ n.i;> cipxt:, 

f£ £' ®i^ie^*n60fi^ EP^wr^g^c a*', 
-f 7 X p J: *) li 2 ~ 4 X^^(96 

K';'h), ms~ 12X^6^ (288K->h) ® 
x^—X?fseo-cn7X h 
t {>-C'^i>i. 7 ii/jr-oTi'So 

yis—yy y-tzm^'^Tiiza'^hX' 

|i S 7 y -1“ 7 EP^ 

f'l! 

-trifSIJ**, -(A, x-«4 7is®4 

w i> s X'r-ors ifi i-c^i-tzub 


/ 



7 />:'„ itz, 

f1s;* y i: A4-y--4 

x'-r'*^4^-v''^ (4000^^:) 

Bg-r', ^®li*>i:{);«;-t7 l'4>i5?7p:.4 

X ?ffs(;oTi;-t 7 h 

t/j:o-{:i.'S„ 

<FB'Ji.'-^47-if3fe> 

i^7-7°W S06(621)1221, 03(260)1161 

A'3^yDy'5> 

□XY-855/990 

□—■:7>'K T-'f—A)'— 

y A-^1-CAD® laff^ai Aj ±S^CAD 

0 -t 7 ' 7 °n 7;» t L T:® {>- —X'®ilii,'A3 
rn »bL tttg, 

f < (D^f^rntz L tzmms, 
rOXY -7 y - x'j 2 f!'( 7°*» 9 1! 10 B A 
y HyS? 4i.Aro 

4lfll4g^2‘nfwDXY-855 (155.000R) 
t990 (258.000R) li. C ® 7 y 

X ® jfi ii ® 300mm/» ® (^3 H « pg 4-f$ 

7 • y 7 1 7 >t"4 

«i:A SS1JI11R4 7 b^-u 

7 1 •^'°7 *- KttHP7475/7470®HP-GL 
LfJ '■rd-GLIj 3-77K 
"^fi. -t 7 h n ^ 7 xttit t RS-232C tt(t 
® 2o®4 7 ;s?7p:.4 
5 7At', la7j:^tSg5ffix-ri.'4o 
i S DXY-990(: liJIS 

17l<5^:ii^ ROM k L (855 U 4- 

y°'>3y), iS^'**f4iRTr’|> 5 (i*’, 

8 Pl/P2?j: t'0& 

Hilaire 8'ttM±i:fmA-f)fSax 4 7f-^'° 



DXY-990 


X'7^, XY;$1f**Ot 

ifz, 

-'^4 3X p 7f7 t 7X fO.'5, 

<FB‘]i.''g-64A.3fe> 

n-7 7 K t" 4 - ^'-(t!B 00534(37)2333 

X * s □ s u--y-X'yx^A(Dmms 

7 ;* p n p V—— 7 7'''7Xr 
Mp“pt LTg|Sflii]fP7 5a.w-7 rpTS- 
lOj (7oo,oooR) 

C®@®]ai]fP'7 5 *1®®-® 

m, tiPfi, itai. 7°7 7P/j:i:'®gc^<® 
L r I' E 

*, jiffi/j:J:'®rEB7"« Gdirc^lbS) 

^g^fitc-iS:$-tfSf.-*®7 

PkL, &^T'Vi/®ffl;9^'a-fc4i-t;A y'7xf 
A ?f Hitfb-C' l> 5 A 7 i:l* L () ®-r', 
nftf/A t s6nT I' 6 

c> 7 ? ^ w- 7 a 

7 i -C'feilA i' m R *’‘«lBg t 7 T i'„ 

PTS-10®±7j:^fgj(:}: L-CIi, 
±®'J>:-S^E**X^'Ti 4iT I' 5 f.- 
sbiZ, >'■>°X^^®7'o 7 7l2|i:fii£7T^'°7 E 
^-KXIfiljf&^lifAtSC ti:A y, SfPj 
t XS^.®'7 5 ^^--7 3 7**aRcX'^ 
io Ayjlt^t LTRSexf 7 7“A®1U)1- 
t:)i-g|iAA)S-7-*'ii. ;^-7w-i5?(?gjE® 
y 7 7 r.mm L A’D/A'^^lff*' li 
®{iiAj7At'®Ay]*’"mr*s„ x-Y"<7 

lx 7—|^ ;^_jy'x y—y°f£ t'®^® 

Btiflilltgff S c 11: a y, ^115? H 

X?tlg L ** c, fl2***X' S 5 f ** c ® e 
ftifiijfli 75iW'-4?®AS ^Ctf•aX'^) 5 o 
i A-MttX’ii, PS C < «XIS]tfftg»j<tllc 
^gPZ-CTl (76.000R), ^7iilA-7'-'i/ 
g»)1t:S^®PZ-HTl (84,000R), 7° y 
7 P-««gfi)1t^^itPZ-PTl(98,000R) 
3««()|s]B#t:fl5bL, Migi:*'*‘6oT 
I.'sKfPi^S lyy V 

Y7ir®/^l^t:c®g 
Witii iSf 7 T e ^® g 6 ttil 
Ai:^coTi.’'5o 


-<7+'7lt«3-7- 177 






Z <D ^ h I'——y ^ T i 

<1 u'<;uC'h-h^ tz rSffj *■«/ tit 

■C'* •), iix, i fz± 

JSisl^J-r'W'^-mrX httJt LT, Ztii'i^O 
mtricoMimfznor. ^ 
it>X I.' H' I 6o 


<rr!H'-§-b-ti-5fe> 

±¥i¥X«« 


S0584(81)5300 


t3. S/SX >^FD 

XR5/'J-X 

'myxwmxm 



ill!l$l)«l-> i il—^-PTS-IO 


8' V a 7 —7°n ** 
t•&1■St:o^^, 7 n-y t° —T''4 X ^0flS 
o, 7 n t.°—t"^ x T' 

It 4 BtTvtt, li w *1 i XXIX{; ® I' 

i;,nTi.'5o 7 ^C4^i5i<9 

^C*’X 9 8Jlll3*>ii?gr,i4>l)H<ift?nX'’XR 
'7';-X'jii, 3.5/5^ >Xt {) CM 
©*■*'0 ^•ri.'-t77-X--'p|||5C, 
cOT/p 5 ^ 7 y -y 7^'7'y > 

^'"4’SI L, fitXtt^rnlXXN O TI' S „ 




”7 mi TUV /VIA7 O.xj'l ^ y ^ 

7! X8 S 4 7^S 7! XX, I 



7 7 X0]ffltS«li}A0 f 7 c X o T i'So 

- 


1) 3.S7 7X 



MF/ID (lOtlcil) 11.soon 


1986-10 

MF/IDD (lOmil) 13.soon 


9 ^0^- 3M 

(U5C) 1.3S0f| 


MF/2D (lOfell) 13.500P] 

MF/2DD (lO^^Cffl) 17. soon 

(Itt) 1,7501'] 

2) 5 4>f- 

MD/2HD256 (lOtXil) 23.000n 

MD/ID (lOtJcil) 13.000n 

MD/IDD (lOttffl) 17.soon 

MD/2D (lO^jCffl) 17.000n 

MD/2DD (lOtiCil) 21.000n 

ifz, CC07 n •;; x—f"-( X 70^5SC 
-Jctz’oX, 7 ISIttlittfii L f: 

7 n -y tf —f''-t X 7 0 t"— fX 

Xx7-h?-B-, a.--f'-t:l:4t^>7 77 

—y—f'X {, T"4X7t<)8{> 

a03(349)S2Sl 




{>7 9 1! 1. ^ L, 

N 8 J; 7 c^f!C‘^»-4’ 8 7 WBttcfigfc 7 *’ 
,^718, 

oXx^-cXtlfoX^J; 7*>.o IS 

**Mc^nTLioXo y'“ya>^5^c 
t '^x<Dmi^^mmm<Dmwf£mmz\ 
^ipli!$cy'-K, 77 1, iilt-t-f'x 
0 3 itiitX'i* iCiL 0, XtBi- 

HARDWARE 

yfy a>©|ifMpnC|j:8® J: 7'0:{)®*** 
xnii cniX® 18086??i 
80286C L X“ac^”i!!® 7 - 7 X 

T - 3 > 7 ! 7° ” ( ? ) ® la p“p *»S U riij fi 

C*7c 7 t5l^snXo L*-L, 
fiJXIJ:? XlG*‘*-oX-„ PC-9801UV2** 
t>-o1z. ±U\iZhx:ii.-tZ'ytzz(r)2mM. 
L*'Sc *’ 0 X 0180 * 8 liMSXfeJ: C 8 MS 
X2** U 4:^g^iaig^& FS?l^3e-Sc 8 *• 
(iMnMn tmx^XX'Ho i.'Xnc-tl-J:, 
X:g|i^«>T {) 2 77Cii^LSc*’oX„ L 
*>{) ^®?lfMp“p81f, Mt;Sc#.i*X®ff«a 



iiCltoX I) t {,Sc*’ 
i I oX„ t-sTy<'li¬ 
ft I a >-7'>>XibS>o 

■ I C/iSc t liy'°7a y 

■ I mmmtmM, 

* ■ -xX^b-So 

■::®ili!iii;i.'< c)*>^)S.o ■9ijii!ts8, 

1 ) 3 7®S{5ii*»®Kiit s - t 

*f, “•^|liJ”CSco-t:i.'4X«!), 7-:*-** 
;t.^LTi^-^-7>XlSll4o 

2) IIF^fAC^7-*-**-^Cflfli«X 

tjlALXX*. CScoTi.'2.o 

3) Sc*’XX!tcMSXc|!Bntf,Sf«ai 
IB«li{>[5]L'cScoT L i 7 X«6, 7- 
7;-*‘IHlSa®&)¥4’reixTi.'S.rBTii1t 
X A "C i' 2> o 

Sc 8***(f liXS, Oi 0 7-;y-il:^X 
C«JtS!^-i*iS)liAXt.'X®X* So 
t C7.*M~6H»l®y'°7aye£iil?f’& 
fcXS^st, -a-ttXliBiI¥leI»lib1ilJrt.'® 
42:5SXol8oX*», Iini8(l^®-S 8, 
2615^X1111 7 %Jio lkm**niSXItAXe 
t-r I'S c {)*’*’ib liX, s®fifiC 5 :oX 

8i.' 7 s 8li^^ffly'°7 3yfi@ijSn°p** 
Xl£X*oX®c {)*’*’XiSX, ■8C'5-s 
5£n-ct.’X®i8o {) LgXi®p5.M*ntjr8, 


* 8 XIS L TI.' Xtia # i t.' Xo 

X, X¥J0j®C 7 LXR^tXSHT®!!: 

cWlJ^M*f!!{:A?nxi.'SX'ilc, 
fc S®y'°7->CXS S 8*»Xffi?nSo 
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AS it* (18) AKlff 
7 7 5 = >lfliS t I- 5 A fc 7-rXi)', 
CA4f!l;i.'Alfiffll'l? 7X'to 

SENTINEL5-i5tAXI®»(7)** 0# 
«L' L X L f L' f L A, 2500)ig"SWORD"lf l^itS 
iUiflHZi&XtzT^tzL, □-*7L^Sil4fA< 
ffiASBASIC, Jibielf + ^'J — X/-Tl $ A f X-4i: 
SiiAXLf 7 tif ! ;§;* !« (18) *«05 

S-OS 6 2 «iqi, iE;^iglf X n*' bX't, 



t # le(f A—tf-lery-AX-1. L f # 7 j4 AX 
L'-3X# AO ASCDA'^-) Xf, Hi.'AIt(7)RPG 
leiaSAb. XA4«tSV7 1- t)f L'(7)Xlf4i.' 
XL f -)*'o fAtff-t./\-f Kxf K^-f A(7)y 
X*Ax*LARPG i:lf(7)«)0i7ftf ■|+^, Af>^ 
If 0 7-T-If- K 0 -f 7 -f A(7) RPG (7) is 7 A'L-3 
< 0 t(7)«!)Oi2.»S f -) Xf. 

lilts ffl- (17) ?i*» 
♦fA(7)(^7A'-AlfX/<i) '■CPU-> 5 a U-7j 
XXtao ^(AR^X-TA', 7^U"fX-*'CPUt4' 
0y-A7f-l-, 280 «Xlf1*K*%-K-AieS 
•flfOOOOH^-T’KU'7/\'7C[UAL, lal^CMI f 
>%LI:A5i, i:L'-3A*'&ie#’^5-7x-yf^L 
JlffLXL'<(7)X-r. ■9(7)77fn5>A'-AXA*\ 
CPUC7)»lttlf^gi:(7)i!*a4f)f r. 433, U^7L 
I Xlf7a'y7t.2MHzXt''f A|^Svle•tl■■fle•r 
3!^ $. X*'ly^7L 2 XlfAMHzt 4 0. a|ifiS#PBl*<aj 
XSfr, $‘3lCL'<.7L-3XlflNT«iyAlfAle 
A?)A*U^7L3 5-X4-rj:-)ie4nif, fc-) * 
4Alf Z80(7)#»X'r. $ ^>1X71-y t-LA#^ 
7!l'l6ilX®7X < ?>L^7L4 07LXLS 7 
t, t,lf'P*4Alf» IOOR(7)(i(lL44L'AA 
(7)LSIie4xX L f -)(7)Xr. 

aw ( 16 ) 


nxAibtL'T L(7), mm\izMt 
% a Af 0 « L < 4 0 -S-A 

Xfo J:7't><'#-X-,*(ie4xXS-0SieH?t433 
AALAL'-:s:X*'Alf7Xi.'f r. 

iSffl «■;§ (27) 

WSi, x'±A(Z)®iU;i;^Jin»4-! 

♦ 190 COh ! MZZl'S < '?>L'4'PS[8 #Pb 1XMZ-25 
00"SWORD’’5-AA L. *g»LA, ®»l<7)ytW 
X*?>, 480R-l-*!!a#PBTXX-) L'-9 t,(7)«i¥ieA 
•stiff oACiiSX**, *iitt«ie®M(, L4 
L'flf OBASICIT)f -) 4RAMDISK«Mi LL', X n 
If L-)'jz-Sb°dX*s, an liff-(19) »f-;gm 

iiX'tiio **-JI:-i!fiI/Ot5-mxilHEM 
M 4>3S*icLX < ni-B-A*’A. 

♦ MZ-2500IX;1l5:ttCS<D"SWORD"*'i±iX L f 7 

A. {)73SAturbofflLtiJSIXilLN4l.'o 7''77-f 
•y 7(7)/\--y 7—7 L ? nS L W«31IX L 

$nXI.'<» CP/M C(7)J;-) X 

■rta„ t X A XiAlf iIft"SWORD"lX P X > 7 :e > 

P av> K7L--?->%-iij!)PLX, CP/MX-xX^ 
LXL'ffo «5 (17) ftlllS® 

“SWORD"4-nt>4 1) < lAiSL 

xi.'SAti;i'f trAti, •Diiiji.'isiox'to 
♦(ilf 8 0-%(7)Oh ! MZS-lftAXAb <®'L'LX 
Lf L^f LAo L'7(7)f 1X4S-OS 70-7'lfy 
(7)*;SL'*#5-LAL'IXJ1L, 7L'lx3E@(7)lte-^ 
tJRjJlt 7 t LXL'SXIf4l.'XX4. L7«(7) 
¥i 7)S44L't X X L f •) (7)A'S ■) 4 7 

AAA, talf ! 

jEip (15) 

S-OSIfffti:^--f-A T-«W < OSXA 9 A 
i' t.5!.'.xXi.'iXo 

♦S-OSIf7l.'IX7'x7-f •y^’f X-tP.K- PfS 
Axr*'! ;si.'XT3a (w«xMs-Dosix*n 
Pr'ItL'x A t) Ala), t X SX80K(7)80X50IX-&13 
-ttSAXT*'? SB W- (16) WsgJHW 

THE SENTINEL I'.T'Kitl'L AA»MZ-K/C/ 
700^--f-i:,ZsSii'VI(|i.'Ai irttK MA 


GICIfS-OS',VII)0y'- y X-7Xlf* 9 i 
A. 

♦ f-) LXLx40W7A/<-7 3>7-yA.5-S- 
OSIX L 4l.>0Xr4 ? E-MATE0LNPRT7L- 
A>, L'xAl'4AX'r4*nif, ^)-l '-9 0 X 
^•itA7l'-A>-ffr'^|:XLf-)4. 

<J > 70ajA4;«£IXLv44L' L, ZSOW^OTR 
ST^'^ilSitLXl'SL. OS0«^4t>4xX 
L'S4'b¥</''-7 3 >7x7?: ! XL''XIW 
fflS-OSgj 4AXL'-X’X-rj:, 

a (*S (21) AR« 
S-OSIfi3£MX S 7 7 t AX't. ;WB|yf- 7 
3>i:lttSX'31::'V(7j:f tfcff A LXi-i t. 
♦fS^EtrSntL'xX L f ji-). M2-25OO0WW 
(±WlfRAM256K/<'f P, VRAMI28K/<-f P, IS 
♦ROM, /TL-y Pt<-P'?-g«LAL0XS)S. 

i«Sl/0t<x 77 t,3#xXL'4ltnif4'34l.'. 

XfO, 7x-7lf^*Btp°p?:5ExXI.'S0Xi) 
S. 4< L'-7lA0MZ-25OOt>WWP±«(t4Sf X 
*t 2 7JE0 4L'. MZ-25OO05>:0/''—7 3 >X 
If X -) I'-) X t If 4L'f -) IXJiL'AL'ti0X<feS. 

(23) *6687 

Tf S If t'. X 77 3 >**,llf t 7 A < 5 AX 

tf. 

♦-S-X-SIX47XF0RTH41347X# f LA. M 
Z-7OO0 7>7)L4VRAMt7) 0 W A ?• Iri'ftSt0 
FORTHS-'ftS-) t-g-xXL'f X. XL^lfCGB* 
■i?-fFS045feXS)7>A. ^miXlzx^i,i]'U, 
A* (18) *668? 

t'0f 7 7j:(1-:,'«',*'mx0XL f 7 *• ? 

♦ X 0?*IX If turbo0±e«««'lU S t (i L X L' S. 
^LXJ.)IT0ft«!Xf3SXt?r¥aTS. 320X 
200 P'-y PX40966(8a4B®), FMgigAxL 

♦ 8 MIO®, 2HD K 7 -f 7 2 *, JISS I M2 * 
WiH^lROM, XxA, t'T''*T''7 7 T 7, > -T > 
3'X0 256K/5-T P, vtA?-*®. X#4i.'tlf 
l'l374l.'-f 7x-7$ A. G-RAM IfSMWIX® 
LXIS40t)*77 3 >xajXSAAt)0. 

S® ® (20) 

ti'i'-ao, I)(*'j!i7i-X |( f L A. ?X? 

♦ XAIXF>(f, ?A4l0f»0New VT?:*i!i4X*t6 

LAISlfflxr. < 7-#^40IX5O77Rfc3i374 
4'bA(P->-PllSiHt). S-7^4'lxlf4At 
445'f’S-. f Ay'TAf^iSXfrxXLf 7 
A. Hffl (iff (16) *668? 

faJpfc-'p, 'KttlllfIdi-ottX. 

♦ L4L Oh ! MZ 4Q- P'(t0*t.aAXL'Sit 
istL'ian, ^n?-5S:L)iiitxi.'A«fc8a-§- 
?-1* A A t # If ,f.l37 a7 = yi K. ?-K 7 A 0 
4"tnt tv-fa >K.?-l7 A04!iflSLX L f 
L'fLA. A7X7 0 7>XLa, 0XAX-LJ:, 
STUDIO MZ IfA- b A fX L a. 

SW W* (16) WH* 

OhIMZIf fv/xy-pq *<XJi Sii!i4G 

r - yi an-riSH'; 11 = 7 x f l a, o - p* ft t 

i'70if?'ii--‘it.'i'.t)ni-t. 

♦word POWER0n—vlfx— p'X-l'FUJITSUUj 
tAtlXXFER+-?-3frt''S±iijtaA. IS 
41X'■*2jt,*7A. L4L '■0O««.j If44 
7 A. ?-r47x-7XX3a. 

sm M- (12) iLSt-l 

TfAPx' '■qcj *>t.ffi.7A-0i; r^j (OlStX 
LA*'. 
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♦ 8 B^<D ^y7>n- Kj izoh ! MZ/3'ttlTi' 
fZo C ^ 4'o/z'b STUDIO MZCP-x-f l'(7)Sj5 

m± il-lil (17) tiisim 
4 7]^-rO t 5 LTw/l/j: 

z ir.l 

♦ f U a>-fEl^i7UTj (ict o '’Call me h 

ot^ \' J h Xt)^':>fzo :t-yjit^^tzo 

>■$113 J i3'M.tzi\ 

<DAri\^o moi n in) 

^Call me-j X t^otz i i X i'ClX 

ifSitSo t (.'t'oor/j: 0-fx ^ 7 >7Vj 

^-§-(7)?J--tr PTOO^S-OSC^^il LTt>bx.^■ti■^ 
^'o im mjt (16) 




» m 


T-□ > f JL - 5-11 {, (; g«#^ 5-T 22*T- 
To ^^^i'^A**':>l.'CM2-25005•¥12At^S L 
fco a fc' I Hral i X-t<r>X\ * t, * i bA' tj S 
■t^'^o t'o A'BbS L<ntiH‘) < /r'^i-'o ®>I94 
«#!»litam«^l30-§-207-2 eT«?a(22) 

★ ''M.M.Mj ?ISOT7;«)MZ-2000/22003.--T- 
w:5$-*«f)Ti'STo 

n«*8MSiJ(c;^?-h LJTo J;^TMT-i’ 
JUT-TOTT-l'^ L'4'- t -:> TL'$ (.'i: 
SA'S-To 7-f-7HeA, 60 

nt7)¥l=)t4OTi4»T-Z-a*8< fc-^l'o ®06l-ll 

:(b;Sia+L«ffli/£aai?:ffi(2)m#nife a/sts 

(14) 

★ '"Super MZ CLUB J $• »* L T L'S 

To ai’7 7'T-(Jt'-7?-7, S-OS, V7K7) 
W5E • L-TL'STo ftSilWt: 

2500^77Kr«L'C4-tt'5ot 7 ICLTL'SfcL' 
tS-oXL'STo #))B#a<7):4U±KOT»*«' 
S?r»L'TTIB5T-o 'jZ'T®*(JiiJLiTo ® 
670 ft»m!es&mf^eg442-2 *s?i«}(i5) 

★ MZ-l500$-fcT#4(7):4. ftffi3E«LS*A*'o 

A® A'* S L fc L' i: ® L' a 

To a*s«aa^'A'TT-o ®93o-o2 suiJiT 
Sf7l|?Ca;UjBl*;)?6-22 (12) 

★ '"vov h XljTlJ 

UTL'STo i^SKliX'-A, ^-yPT-T 
Z)'^(7)(i«'OT-9-i?IL7lNT t.;S»lLTl.'2 To 
24flC I [ll^«$-*4fLffi«S#^^-m'JTo 
60Rt7)¥?-|5|*tLTa»LT < fc-^L'o ®4I6 
»|5im*±mTA.749-9 feUj)i¥ (24) 

★ xi^^ypRijT-ij^a^-it^LTL'STo s 

7 yT-fJ7'-A4 ir(7)«^jz«4 t'1r4>'C,'lC 
;SBLTL'*To »L < (J60nt7)¥l5)WT-Tie 
ST-0 ®570 AKfi9'?aT»JA®*fflT2TS272 
7 □x-r-/\'f AAB606 (19) 

★'"T-IS-MZro? (ffiia^) T-tJMZ-2500A 

-■T-fcSU'2500$-Mfc7 


W-glSi.'S-B-A*' ? 

♦ i Slif i: 4 -D T 4 4 ^, A * t) 7 7001: (J*ttt4 

I' OT «' t s O TI' fc t) i:80C 4<* -5 T-(J 4 L' 

*'! «:4 iEiS (18) »S» 

Jit0'<f 9 li : mrVj^T'Tiao 

♦4-t!-'4'Ba:OT*(4* %SgC-> 4-- yroiSM*' 

2^fc*5.o CA4-- i:T-L'L'OT4'4 7*'o 

m &M (19) ttgjiim 

«ll4'-#:i:lS!i!;98*'lrtA'^72o C/tti-lX' 

7 *’o 

rya^Vj 5r)EP4)TfcAT-Tho 
$)roJtte(Jitt4'±4IT-, 4-<7)0h ! MZ*7;L'IC2, 
3*^T?.i:T!!iTrfl#-T'b < 4-Sti.'-7 -t 4 4 
4'4>7^:L, 77-T’n7'7V-5rS7gTT7c7fc 
ti'h^air-=7i, (ittcy-A) #lc(S$i| 

am:4 -STT- L fco 4AT-MfJi:4 7 *> -p 4> 7;A 


(I8) 7SIS)» 



7;4o «5) at- (I7) 

< T fcOh ! MZUT^a (?) -rtcD 
•C'C'^C-^To 


r*}«e--#gro:4li. § (*■&•»-)•«;€ •%K-aiS:4;i- 

7*V7K775tM, 3c«i:7L'T(J, L'4i$i.'}SKT-SS-ti-A„ 
M)!')ii#c7i'Tijaaiis:T-ij*e?rai'4'7aSTo 
' }8ttT-#4-i'^^fc*‘J*To 


•)5-0JELTJo^La*<7;SL\ 


MLS To ^S:WT-T4'^«5 -«^tL'7;USTo 
»L < (S60Rt7)#t iB^7)-S-l5)K(;)7 XC-* 
*S < /iS L'o®252 W^JIIWi»;Sit;S-S-4595-6 
(I8) 


mo^r 


★ ^ T-' A MZ -1X22 -L RS -232C -7 - 7' 7L 5-1 :^5i^ 
RT-o *IS(Sa)I/\S)- + T-o ®373 ISSlIAffl 
rt54:UjBl34-33 SBKM 

★ MZ-1500, 2500ffl -J-C -f 7 ,K - K MZ-1M08 5- 5 T 
RX-o a*S(Saa^'*'+X-o ®699-5l MtS» 
afflm»BaBi'r-i65-3 

★ XlfflKSl/0--7f- I- +-*9: ROM 

±X-o ai|«lSaa/'4" + X-o ®66l 

fl5B;S9:=#Ea 133-8glli5:4 liH/'SIB 

★ xifflo-r^T^KT-fTCZ-300F (liias)-I- 
X-7'7H-NEW BASIC-1-x-r 7 7 IOt)c5-477 5 
i^RX-o aiS(Sft«A:^i' + X-o ®662 *»mH 
SifirUiaBl3-l7-302 

★ MZ-2000fflOD K X -r 7" t l/F -F X -I- 7 7 X- 7 
S-t-y FT-I 75 5^~2:^RX-. *i|ig(S/\4*T 
X-o ®l92-03 MSaBAIT-rtiffifil^2-7-ll 

★ UO^-Tjx-x-f 77'L-1'MZ-IDI5, Zf') > 

7MZ-IPI4. l-77 7 7-r—7'MZ-6PI3, *9: 

ROM MZ-IR23, iS»ROM MZ-IR24, RAM7?'r 
7LMZ-IRI8, FMZ-IU08, -7 3 7" 7 

x7 7 7 MZ-IX03S-^(i<779^S|l.7TX-7B‘) STo 

xsnif¥*L=rsi4:T5-a*STo 

*•+i:#a<77p“ t L xais«-o® 162 

*ma5Sf7SE*«TBI8l4b)ST/4-F gf«1t 

± 

★ y; > 7 CZ-800P t GP-700M 75 3 

77Rx-(7--yiu, x-3.Ti\^m, **s(saa 

y\S)'+X-o®232 W^JI|»«;fi7f)aE»)fllf6-2- 

507 mm^ 

★ MZ-l500ffl7'') >7 GP-500Z-FX-7’7L5- 2 7? 
RX-o RAM 7 7’'I'7U4'6T-R, T-f 7--)4- K 5- 
5 i^RX-o a*SfS^'4'TX-o ®380 ftSMSlF 
m;*)i|ffi*927 *M« 




★ ! Xlj «l|flJ-% 2:Vol.2%l,OOOR 
(®S4a)X-o **«(S/'4'+X-o ®379-02 US 

»«7)4t8©#BBT-*Fa*i684 itmmm 

★ XlturbolIfflJIS* 2 Tii;1l9R0M CZ-8BK4 
5-3,500R (®»4ii) X-o iliS(Stta/'4'TX-o 
® 627 S:#li)ff4>S8(itajBTffllJiRI7 TiSaTiA 

★ MZ-2000ffl;ll9ROM MZ-IR035-I7?31^R Xo 
aitS(S7\*-+X-o®l82 *«S8M4SmiSA#* 
BI7-34-3 ll!i(«^tf 

★ CZ-8PP2ffl <7)ia9' ROM 5- 3 TR ()MS4SI1) Xo a 
*S(S/'4'TX-o ®545 AB6)»ASfimra(SlfE)fi 
HI I-2-12 itTfeSi 

★ PC-1260, PC-1261 (^U, XAaT’JHt) <774 
<77?:#7T~ I :^Rx-o a*S(stta7\4'+x-o 
®689-53 ,Mffi»0ifa5 0*Hia;'^267 itS 

m 

★ l9859-5~ll^-%, 198692-3 ^•§-5--S-l,000 
~l,500RX-o67)')tt?TWo ait8(Sea/'73- + 
x-o ®5I8 =«*JbifJfiAR344 

★ 19859 6 «5-1, OOOR (a»a) Xo 67) 0 ft I* 
9^0 a*Slsa«y'A"+X-o ®I54 
a-EA9t:5-24-9 MAFtSk 

★ 19859 6 •§■ «r I, OOOR (aS4a) Xo *7) 0 IS # 

T^'o a*S(S/\4'9X-o ®398 fiSmAHimA 
9HI4I95 f^fSe-til 

★ 19859 6 • 8 fl-t, 19869 2 5-# 1,000 ~ 

l,800RX-o t7)‘)iS3<9^o a*S(Saa7'#9X-o 
®4I5 »H»Tfflmti|)ll«33-36 fjR* 

★ l9859 6~ll^#5rl,OOOR (ai|9a) Xo 

7'7AZ)'tt«>tl(f OKo a*S(Saay'4'TX-o ® 
689-11 ,A®!»,»ISmS9245-30 

★ 19859 6 ~l2fl-§-$-«-800-l,200RX-o «')tS 
#,>99(SAiJ7-4>b9loa*S(S9iffiX-o ®50l-0l 
K*»iKAm9H63-l sues? 

★ 19859 6 ^~8692#SX-%--&l,OOOR (aS4 
a) x-o 67)'7 a #9^0 a*sistta/'*-Tx-o 
®680 ,A®!a,A®rFJFT®-483l ISTK^O 
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FILES Oh! MZ 


^'fi';u, >±12— 

•^, ic'^, ^■§', ^ V^ tlTl'i "^o 
li b-r^s^'ct ^ 

T'To "e<7)(5/}'C7)ie*T'(i, PC-I600K 

^ie*c>ig LTjD#/ci'Trt3io 

- r ... 

I/O 

ASCII x:^=^- 
enter 

OA/n*V=i> 

□ >7x'r-:? ^Jl|#;£ 

PiO 

POPCOM 

-7^zi> m^mmi 
v>r □ >BASIC Magazine 
LOGIN 7 7 .^- 



4-^ cTr r ^ (7) (i B Asic<7) A n * T'-r o # ^^ ^ , 

“7 5r —$^7" ^L'')<7)(i 

C (;);$:(7) 4' *' (I (i40^TlUT(7) V a - F 7 °p 7 A /)' 160^1 

DcoTl'^fo v$aL^-'>3>, X 

- ^ 1^114 /)<(J ^ ^ ^ 

^ 7 '> J. x —j 4^, J: 7 
nxi'^-To Z(r>^ ti 
PC-9801 V 'j -XH^^t/nT' L /c t>c7)(7)X1 KS /c ^ I' 0 C t 
h'oX, *^(z(i '■xi:$'-.x7x1'>';-Xj^^^^j(7)(7) 

BASIC(7)S;$:^^.st^l'^ ni^. oToI 

T t L' I' /)' b C /)' (IPCG ^ ;||:?:^ii4 ir'cOI' T # I' T 
t>,fA'^-ro 4'#5. ^lt6^4rn1IiT' 
(i4l'(7)X-r/?\ U 7 F(i-r"<T 8 fc'> 
yj To «ifi^fij?n/c:^4c7) 

xr/j'ib, t)T'# i:4b24t:*><7) 

yij >:5^^^9^#/co/z(7)X{i4t'T'L J: *)/)'o (T) 

xi^-.-}i/xi'>';-x 7 5^-^ixieo 

B5^J 206^-V 2J00R 003(726)8124 


-« 

► 4AT7/C7T, -''fV 3 >ififS V □ -f K 

^STjy^/j'bXxA-.il^ftiil^o/Co XxAIZOl'T^tfM-^o -^mSP. 

POPCOM. 9^-^, I73-I8lpp. 

► 4AT7/Z7T, :^—/\*—t'+*X—<7)/zfi^)(7)/\*v =1 >il‘fiAP1 

7^-b7-r?>f KLT, 

SB. POPCOM, 9^-^, 156-172pp. 

► cnT'Vv>|§*<t5*'?) ! 

*0 -SHINGO, V'r=l> BASIC Magazine, 9^-§-. 48-50pp. 

► MZ. Xl^^l^lg 

ztiSiX'>^- yL T # /z/<- V yJL □ > t* ZL - ^. ^um^xm 

enter, 9^-^. 70-73pp. 

► NEW PRODUCTS CZ-8RLIS 

zi>t:*zL-:?3>F □-;i/7!)'^Bl4 7>yA7^-b;^*-t2 7 F - 

85l|gB. LOGIN, 9^^, I98p. 

Z80c7)^%^iJiBJL^>f>9-^'^ST'r. LD ^%(7)iSo-^^SB. x 

9^#, i2i-i26pp. 

MZ-80K/C/1200/700/1500 

MZ-BOK/C/1200/700/1500 

► CRAZY FIGHTER 

^:;^^p-;u:$^-Ty(7)'jT7U:$'-<A'>a-xY >yy-A4(7)T'-r^fco -=i p 7 

X. T-f p >BASIC Magazine. 9^-§-, 115-116pp. 

MZ-80K/C/1200 

► • A;«Uy-A 

1i||^^(iajmT'AiSU(7)fifl|$-1-^<7)^zo/Zo —l'iE),Pi0.9^-§-. I3lp. 

► TAMLON 

a: IZ*'< ^4 !-AHOMk.2, PiO. 9^-§-. 130-131pp. 

MZ-700/1500 

► PAD GAME 

/tx-JU^/X-^U'^An^CT)/!, -< • yj P, V'T a > BASIC Magazine. 9 H 

■§■, Il7p. 

► Break Block 

i^|[;!)'®®C7)P^^lT< 7 :>^z'!-V-T P > BASIC Magazine, 9^ 

■§■, Il8p. 

MZ-1500 

► '>V-y^$5x.!! 2 

y7:&M$A^'>-V'-y(Zi£b;T^4 !- v<p>BASIC Maga 

zine, 9^-§-, 119—120pp. 

► 4AT't)0&A '>^-ZfMZ'>')-7:m 

MZ-l500ffl<7)X-t >y7(7)7 7 F (ZOl'To- '>7-:/, V-rP>, 9 ^-§-, I65p. 

MZ-80B/2000/2200/2500 

MZ-80B/2000 

► ^x-y ^yAyny^A 

BASIC. WICS#tffl5"x-y :J^7Ayn ^7 AT'To -IS^SB. PiO. 9^#. I77p. 

MZ-80B/2500 

► 3-D MZ MAZE 

ji«4'oiz4^^Ti^5s^^^#*i£{t^i:i'Ty-AT-ro — PMmm, v-r□> 

BASIC Magazine, 9^^, 121 —122pp. 

MZ-2000/2200/2500 

► Mr.ROCK STONE 

^^4%*^^^ F->m±(i-b-ry7U73'^ P‘y^^LlZT7 'J ti^^-z>X$tz, 
-ASCII. 9^-i-. 226-227 • 266-274pp. 

► 7 7U-'7 7-i'-7UK 

UA^(J7 7U KF‘g<7)7 7U-7^l''P^ Xt>l&L'^a!^?)(7)T'L/Zo -cee*emoo, 

PiO. 9^-§-, 53-62pp. 

► 7 b > F' Tfs^y ^ 7 

?l^[i]fe^itT. 4>t-^^y'rX^PSoClZ^»l^-ti-T </z^t'o -SKYKID. 

K, T-< P > BASIC Magazine. 9^-^. 123-124pp. 

MZ-2200/2500 

► Nj 

I" J J <7)^A^< V-r □> BASIC Magazine, 9^ 

•^. 125-126pp. 

MZ-2200 

► TINY • RPG m(r>m 

264-267pp. 
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MZ-2500 

► REFLECTION BALL II 

^ ^ T (LZibT. v<zi> 

BASIC Magazine, 9 ^■§-, 127—129pp. 

► ^J:^T't;Q&A v U-XH 

7-r‘y r? p-JKzoi'To -'>1^-7°, ■7^p>, 9^-§-, 

I64p. 

► V'> >ig --/u 

'Jxx'T^J'^iitScrr-r^o —i/o, 

9^#. 299-303pp. 

► 4'A/coT, /\-Vi3>iijt MZ-2500iiftMHE>5ffl>i 

i!&^< c7)^sl^;S«tL^z MZ-ZBOOv'J-TrtTD^^-:) (zoiNXilS^r 

-vV-T^, POPCOM, 9^^, 186-187pp. 

► TOTONGA 

9 ^ -T.F, PiO, 9^-i-. I3l-I33pp. 

X1 /C/D/F/G/turbo/ H 

XI'>u -X 

► SOI 

< fc? I'o -KIDWAS. PiO. 9^ 

-§-. 133-134pp. 

► /\' 'J Ty—A 

■*3 i ., PiO. 9 ^ •§■, I34p. 

► X >y y A^” □ y 7 A 

•J py-^j^X-ZU^'y I'y rZyA7’P XtAXTo -PiO. 9^-i-. I77p. 

► ^i-ij vy;L • yp y^A 

(Co < #,i^/zi5)ize*{f-r(z. ^>4^'>?^(Jt^P^ft()(t^C7)T'L/Zo - 

SJ, POPCOM. 9^-§-, 248-254pp. 

► t:° 3 > t:° 3 — 

Ty‘bfi^t/±y'oT < >^-y-^^o':5it^o —watajun, pio, 

9^-^, 118-119pp. 

► FROG STEP JUMP 

:ZDx;K7)h:”3 >-S(J:jl|?r 3 - ±mn, v-Tp^ 

BASIC Magazine, 9^-^, 168—169pp. 

► yAtS'n BANNY 

ifeTl:icr;fli;iAi6bn/zli?A^$ii^-<<. /\'x-■tb>t>^(iTt^±y^(7)/•co/zo 
-JI|P;$, V <□> BASIC Magazine, 9^-§-, I66-I67pp. 

► FM K • /\- F& 7 7 h A^glJ 

FM ^i^y- K(7)/\- K^#^(7)V7 h 7 x7(7)®®y b. C (7)5^:f](77®p°a 
^gljr^o -V-fP'^. 9^-§-. I73-I80pp. 

► yAT'fc Q&A '>x-y XI/turbo/II'>'J-XH 

xi'>';-xc7)y<7^ Kb<7>«^s^izLfci'„—vx-y, v>rp>. 9^ 
•§•, I67p. 

► Q&A '> v-yxi/turbo/IIv'J-Xli 

Xl'>'J-XfflC7)FM^iiy-FIZOl'To -'>1»-y. v-fP>, 9^-§-, I67p. 

► 4' A X Q&A v x - y XI /turbo/ II '> 'J - X*i 

FM PSG CTDltLNtZ-PL'To -'>X-y, V-fP^, 9^-t. I67p. 

► +$(7)/\-7P>^/N*7-T'yyL J: 0 ! Xlv'J-XcT)^ 

^#^(7) FM :Z3o-'t'7-'7y- K^l)lQ±(fT, XI -7'y y 

-ISHpP. V-< p > basic Magazine, 9^-§-, 51—54pp. 

► Do, '>'y>^!! x>7—*x + 7hTK'^>yx — 

P 0 fi4?!)(z, i;Si;?.^i:tJbiy(t^<7)/-zo/-Zo -SSIS—, enter, 

9 ^ -§•, 84 — 88pp. 

► ypy7A/\*>y^ PVi;bL, 

xypyoAy 4^t !-enter, 9^^, 53-63pp. 

► joy!! V 3 < 7y-f *y 

y-A(Z(J:'7 3<7y <'y ^ I'0 '7 3-f 7x-f‘y ^ - 

yi>7y'J7, 9^-t. 90-96pp. 

► py<> 7 7^7 XT’ P >x 7 h EMPIRE FLEET 

^ j: o ^ $ Xu-v 3 >4^a’^iiep-7uyu-r >yy-AT'ro — 

LOGIN, 9 ^ 246 - 249 * 309-318pp. 

► y'y'yX'C.G. 

BASIC(7)CGypy7A^C-GRACEitiiCGy-:5^(Z^^-r^o - x^7y 

'7 7, 9^-§-, I37-I5lpp. 

► □y<>HSK7P'> 7Ky- 

v-yyyyw >P >x7 • ^^EgjE • 

X. LOGIN. 9^-t. 156-159 • 286-300pp. 

X1 turbo 'J — X 

► 4AT'fc Q&A vr-yxi/turbo/II'>'J-X*i 

y7 7'r‘yJ>'y-JU'‘Z’sSTAFFj(ZOL'T„ -vt’-y, v-fP/, 9^#, 166 

- 167pp. 

► 4 A T Q&A '> f - y XI /turbo/ II '> 'J - X|i 


XlturboXy7H0lZ2HD/2DD^74 r^zl'o -'> -y, 7 Y P >, 9^-§-. I67p. 

XI turbo 

► 4ATofzoT, M°7P>iiIf Xlturbo Tv\'7 P >iifiy 7 h T 

< lb </\’7P>ii^i(7)y7 F^(z4n^ fp7^7y-'> a >j 
(ZOt'XilS^T^o -v-t’-y, POPCOM, 9^-§-, I88-I89pp. 

PC-12/13/14'> ij -X^ii 

► yyp>p—y— Audio Timer 

y-y-r y:5’'<7-^fFoTLS Jj-Jo-POPCOM. 9^-§-. 222-223pp. 

PC-1245/1250/1251/1255 

► 

Mmm^Xto -PiO, 9^^, I4l-I43pp. 

PC-1245/1250/1260/1350'>'J -X 

► yyp>vv>igAnm/i 
ESR!4z»t(7)^S-^^4?( I 

0, POPCOM, 9^-§-, 22Ip. 

PC-1245/1251 

► /\'u-y—juy-A 

CbPn#<J^/zt'4y-AT'-r7S M'U-yx-JUT'-r„ -Y.Tolda, V<P>BA 

SIC Magazine, 9^-^, I72p. 

PC-1250/1251/1255 

-*Jlim. PiO, 9 

144-146pp. 

PC-1251/1255 

► 7JU-‘y 7-<-;uK 

UA^^J^oT7JU-'y^^^oT </z^l'yo -SYO, PiO, 9^-^, 97-l05p. 

PC-1260/1261 

► y. ij/\'— 

JI|^lZvit7yb4t'<i: 0 (C±>Jf[-vi^]yoT^T< (7)/-Zo-ttlPPi;2:. PiO, 9^-t. 

147- 148pp. 

PC-1350 

► pc-i350ffly X 'y 7yAyn yyA 

yx‘y ^yAyn yyAxt— mm^, pio, 9^^. i64p. 

► y • P‘y7 f>y h 

7y< hvixu-'>3>x-ro— pio, 9^-§-. 153—i54pp. 

► y-v*>t:‘y>* :^7-^-7 

P'-7U@l§LT73 7-^;i{fo -PiO, 9^-^, I5l-I52pp. 

► 77 'J • 7‘y hy-JU 

^'y^XO>^:yklsb^(Dtzo -PiO, S I49-I50pp. 

► ^#i]-y- yjU7y-A 

^l8y-JUC7) HORI yjU7D-7T'^L fc-J*-I/O, 9^-§-. 304p. 

► yyzi>zi-y- 4 y7-y Musicyyju-y> 

^i^ij4yy;L-y>T-r„— popcom, 9^-^, 221-222PP. 

PC-1360/1360K/1425 

► 'bA/zX7^*t'^ '>t*-y PC-I360K/I360 

mMhmi-f^yf^xzi>fy<^mLtzo —pop 

com, 9^^, I35p. 

► NEW PRODUCTS -5yyp>^^ 

0^i§yi5^^^yyp >U'-^JUTBlt|(ZLTzPC-l360Ki:, yc7)f&2M«|(7)PC- 

1360, l4257<^^?n/Zo -11^95. 9^-§-, I82p. 

PC-1401 

► 7/\*;u:y > T 

! 7/\7U7>T ! mLA.Xl^tztzi.-riLtzt\ -PiO, 9 ^ 

•^, 155—157pp. 

PC-1450 

► AM^y-A Part II 

A^M^T</z^t'o -PiO, 9^#, I58-I59pp. 

PC-1500/1501 

► Search a key 

5 P^a^ItTc7)t:'JHZAU, ^^Lai-r<7)/Zo -X®^|S|, 7-f Z] 7BASIC Ma 

gazine, 9 ^ -§■, 173p. 

PC-1600K 

► pc-i600Kii^fflixy-h ($ 

pz-\%^m(r>w^(r>ut'oxh^M'^^nmLX, pc-i60ok ^7^i|>i(z lt l t lo 

- 7'fx>. 9^-t. I92-I94PP. 

►¥7'< Qypy7AS5M ieii;7^^gypy7A 
7P ‘y f-y-f 7i>^/z(i RAM 7 T'< JKZfeit L T, i> Z t 

47^<iT-ro -, 7^D>. 9^^, 36l-365pp. 

k’XoX^ S.>Xm!M STRAC y7>^<7)>5ffl '>7-ypC-l600K 

m^mii^ypyyA'fb-r^o —ms 

0A/\‘7P>, 9^-i-. 188-193pp. 
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DRIVE ON 

- <7) H - ^ (7)^ 

OS4#Sl<7)ig?’®^ + ^L'l-^ Ltzo 

;l<i: 9 i: 151^ 
L/co 

OS LTig^ 

LTt'^/iV.'t®i'i to 

• g (zs ^ ai L(j i^ i; 

X'h fV7 LT(7)0Sj ^)/c U4ba 

^7]«:)T/\”V=1 > 
ZL-+f-(z 4 ^-9 ^ t ^ A4 b ^ 

LT 

(r)t^os>xh^o ^\”v=] >fflos(i ''77 K/n'^j 

^(io # U t'oTl'^(7)(iX7'1' ! /\>/\° 

4ie^L:^4t'T'ttao ^At)OSc7)|^i0Jc7)^: # 

(it) 9 -(i98<7)fc«:)(Z ? J, 

'■FODS(il3^:tffl4(7)7!)'j 4^'^i.'^(7)t), 

^ 4 ®^ t) 4 lb It t) 7)' P (Z L 4o 

^zZ:^T(i4^'T'L J: 0 4o 

(27) MZ-731,MZ-1500 t^JII^ 

• at:{Zi5lt^M'7P OS 

^'0 t)'fi:l'U^-ZUCT^V 7 hS^^, x— 

(Z L44oTi'4i.'i: n /zA'/cl' 


2«)A;»4L)0 

□-t- 

9^-§- — MAGIC 

P.73 PC-880lffl3:M*(ZiSU7}'dfeU ^ L/Co 
B003h COh -> C2h 
(Z^MLT < i/z. MAGIC^NssBAS 

IC*'«bD?LKhtitii'&(Z(i, 

B262h OOh FBh 

BC3Bh OOh —^ FBh 

(Z^MLT < 

9^# FuzzyBASIC 
RENUMPV> KlZf5l'T?l^^ 2 7^;l/zii 
■^, U 7 >/\'-;)^<iTt)ni-ti-AT'L/-Zo 
363Eh D5h -»E5h 

(Z^MLT < 7z^l'o ^/zSTR3SC(Zi>l'T'^(Z 
x>Kp-K (00H)*'##iA^nTLil'^ 
tcT)^, 

4DF2h I Ah ->77h 


0Sg^t)7yj':r-'>3 >(7)Mt,. ^ktL 

x^n[i^1k\'^^(r>utzi:\.zJi^ cp/m 

4At'(ir«1M^f, MS-DOS (ZL/zo Tlit ^<7) 
/\'-V3 >7‘yy(7)i5^:(ZGEM4^ t)(7)7)'tii 
x>KZL-+f-4' 

^i±Jt ct -) 40S7}S5 Ll't)<7)T'^^o 
(19) XIF 

• 4#ll(7) fos;^'l'o(i\'j T(i, l'^l';54 
OSIZOl'TPiii/)'^‘j i L7z7)\ ’’uNIXj 4' 
®e^^Tto (5;!)'C7)OS^iioTOS(7)i^:?5E 

(Z(7)J^^(iyPi>'7AC7)r?fm) 4'(io 

• ‘J L, >■ zL--»f-^(7)^ >:S^7x 

-r7(zM*j ^t''9(7)t)m(zAoTLii'i 
Lfzo m (16) MZ-2000 

OS m(Z(i5tf^t^(i>‘)Tto 
K t) (7)Tt4b, 

»■ 7'70 >*f ^ +-t:- Kj4^'(zii«bt>n^ 
'jZ'^t)4t'<7)T'to ostium, .-Fx-At-I' 
7-'>a - ^T'L J: 

os(7)iit'iiijp > ezi -5^c7)jiCii7z! t) 
ok#i£4kZ;^(ZlSS^^tk. y-At) 
OS±T'®)< ^#4<7)T*to t 9 tti(i'r^til 
?n4t'j 4k'ki'o t^>5iL(i^)lT# ^(7)T' 
to r^m (15) xiturbo 

• 4 ^|u(Z7 7 h ^ X 7^\'7 ^ LT(7)CP/M 
(Z^^L'^^^o/z-k4'$)U ito ^C7)^#(i 
[5l-(7)7 7 h4'^ t $-'tUmi±X^^Zi: 

L/Zo ^*'T8 

t:'«yh, I6t:''y h ^ V'>>;!?<S4oT t), 
^WiS^T) 7-:^ (7)7°p A 

oTl'# i L/ZoJl,7t.lj^T'(i98'>'J-X4' 
dl:^T'MS-D0S(i'4 U XTti\ ^A(iOS-9 + 
>/\'y 7 >'>7T-A^>§ffl LTl'i t^\ (5 
4 (iIt t) OS-9 L' ^ -fr ^ o >■ OS-9 (i 514 (Z 

ifn/zOS/z*'V< 7--T'T 7°U7 --v3 > 
;!j'l>4t'j k I'T c7)7?'^l^'b(7)±?iT'to t^b 
(7) ^ < (iMS-DOST'7 - y P NssBASI 

CTT^P A^iML i to98fflC7)7-7°P 
(z-fi^4 t) (7) 4' ^ I' (7) (i fA t) i 14', OS 

JLT'^^ 7°Px:i^ h(7)44o/z7 7 h^-^(7) 
^«(7) <5^ (7)mM IZ (i ^C 41' (7) Tt o 

(36) MZ-2000 


4DF4h 77h -^IAh 
{Z^MLT</z^L'o 
Sn^■ MZ-2500 S-OS “SWORD" 
P.I48';7 h 5 (ZFE00H#ifelU^4'S^SLT^i 
tJc^nXl'i L^Zo ll^{Z(iFEIEH#i-tl7^ 
(iAXlt^'jZ'^(ii5‘j i■y-^o 
8^^ SKY HOLIDAY 
MZ-l500ffl HuBASICT'^^tiit:4>i(Z'7l'T 

^^<7)|^^(7):^j; u$g^;!)'^>u i L/Zo lUT 

<7)^MT'l500Xfc^;!)'til^ct: ')(Z4U Sto 
3310 IF MU <30 THEN CALL&HCB7~ 
3350 POKE & HCC7, MUD,MUU 
3360 CALL & HC9C 
4^# S^M>5^“A JEWEL 
JEWEL;!)'MZ-2500TISI^ i ■t^^o C tltiLOC^U 


003-263-2230 

^BiSl6:00—18: 00 


• l'i7z(Z ros^:(i4A7z^^ j 

ito 4(Z^t)oT0S^i'^(7)4t)(i 
o# U L4i'mt(zi5iNT(i, Z(D^mi^M 
^:(i4t'TL<i: 1 znz^:$:'^<DOS 

tzj t)<7)4'4L/z«b, iS^(z^^^# 

^ntzosumiti^yy h^'tBlUoTi'T, 

A ^ ^(7) A (i ^ n ^ <7)OS m u TI' ^ (7) 
4t)Lni-y■^o ^LTffLl'OSt)-S-t'^^ 
^40S?rt)k(zL^^tg:?^§:(t^^, Hr L 
i'^^:i:40Sk: 4o T ^(7)xti 4 1 'X L J: 

1 ti\ 

OS(7)^JE(z(iHfLi'%AA. 

(7)Z^: L:b'L4t'(7)X4<. /z^ASrEJ^X^) 
oAkLXt)?i 0 ^t 

^^ nx i'^ J: ^ 4m;!)' L i to 
tsil m\ (16) XI 

• H0U(7)S-OS(7)7 7 h(Z(i7'>>i=;!}<:7^^A 

tz^tzCDX, y^mX'^ ^AtWhtlXl^fzCD 
(ZJ4 L, BASIC4'X# A Z t X#7)n#;!)'^f^(Z 
t)itAX <-5 to t)^^^7°P^'7 

^ >:J^'X|i ^At)l^;l^(7)Xi'o"f -pS-OS^' 
^^(Z4^XL j: 9o l'^^ffl7° 

p^;7'7A^^'^^:'^^iicL, cl:Ui§^4t)C7) 
^r^JzLXl'oX(iLl'o ki'OctUtZti 
4'b(iS'^4‘b u^;u^±(fXL'< X' ! 

^ (15) MZ-1500 ±mJi^ 

• TO^(zai^X1j 4'^2gi5(z5^ALi L/z 

Uo ZtX^^mf^m.A.tzh 

^)£^(Zx-^^HiLXt)bl\ l'^l'^4^ 

• (BASIC(il00^TLUrt^4, Vv>|g(i1K/\' 
< blUrtk;!)') ^;^7ztl^^<7)tSfi^^|lL 
X(i^'9 XL j: '9 4 o''^ 1 [i]"e<7)^t:^^§Xl 
t-remitJ 4AX;feo 

Pi- (19) XiturboII 

A'llcT^g ^ I'O ^5 J: o kilo/zTtii4 >0(7)16 
^X®a4o/z(7)(Z, a(7)Xl(Z||#, 

(ZH#. A^A±(Z.o A'ttt)C(7)-tt^(Z 

^^^IZAoX < ^A/zkH^SiL, 
At)^)?>^/z^:m■;^< i^i-y-Xl'/z/z# i 
L/Zo Yumi?Ai55cmXo i Alt.Ji(Z 

^-oX# X < 7z^ t'o 

rm (19) MZ-2500. XIC 


- A > XAFU v7 ^ L X 1'4*' -0 4 /z 

«!)Xto L7T^^MLX</z^l'o 


AI3Ih 

F5 

PUSH AF 

AI32h 

EB 

EX DE, HL 

AI33h 

CD IE 20 

CALL LOC 

AI36h 

FI 

POP AF 

AI37h 

EB 

EX DE, HL 

AI38h 

C9 

RET 


1985^8^# BEMS 

BEMS(i® ^ m ^ tzsbmmm^iz^^ji^ 

>^t#7C^:X#tii<b^^mLXi'ito i: 
' 0 XPC- 88 OIKS, SMC-777KS. MZ-2500KJ5C7)S 
WORDJiXii, JI:&(7)^ z;5BEMS(iIM1^l'7z 
L ^-y■^o 


fcrp^i''^t>-fr(i:jllijk LX, t:i^<7)^<ytf 
^(7)^u:®^-tirXi'/z/z^ito AA;i, I* 
flF)i4ir«:vxa.77L^r«l: < /f^v.'o 

^/z, J: < T K-i>'A-t'-^'--A(7)«?^^r 
^ t*'', t^i^XCii' 
o^L'^5^AX#^^i:^o Z.'7^<A:^l'o 
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□hi 3D 
BASIC^« 

mfsmm'p 

m$nx^'ito W'.'-bn/N>5-jiLTWt' 

7t5r, P/'V^riiLT^l'jt^-^Tl' 

4 ^ t' T (7)(J4"^ tzi}'M(n J: -j 4'^' L Ttt 

S»4'C0T-Lj;-j„ 

3:#Wi:l,x5iJ:-)c4'f)iclJ^3 -y h L 
4P'y*''£'#T-T*\ :3'y$i-o^'M£t>0 
^Zlt'y>y-7> h'o ifOMLXA-Xit:: 

S'-'o 

TFuzzyBASICAF1*^4-fl 

¥flF 'J 4 “b T'lj:(;)!C'4S(/)«HbBASICo 
PROC, FUNC, UIZVU? 

b, i:■^4-(r'(^flJ4' fc(7)4<7)*'ttm'4fc'lt 
fccbbSi'ifo -<^T^ i''f>T-t)il^4 

7'Pi'7A^S< J: To 

S4, FuzzyBASIC«, 

L ^ 'J -3 T i 

fo i:L'9Zi:(S, 3fefl^*U3;MAGIC&!lf 
t/atj LT'ff 9 CO^'t oT t,P.W4(7)T-r„ 
TFuzzyBASIC i: MAGICS®oT. $>K(tz b^L 
#:7'7 7-f ■y7(ZSfeiiLT*^3-e-A4o MA 
GICCOAf-K^fcoT-rnif, 

—va V4b L'? bbt^zt 

A-&ia«r b <r> BASIC T- b AtSSfflo 
▼ ’%fl(79 r^biftT^^j l3l'44'fc'9>3zT-L3 
•9 4o -^ms(7)mm<z>mm^siMLx, 

^ * 4 4 i3S 

<(;9T*ro 4Ab fcS*Sn-5>7'-Ai:4--9 

T, L'30h! MZIcMlfT-fo 

Z(7)7'-A(;)SS*(34Ai:t'-9T fca^r 

•S+x 777—STo 

1'9) T t) 7 f-4 -4 p) «^(79fS4'ad •SIRT* 

134 < 7 + 7v?Kit4(79T-r4. zn433z 
#i4Lt'ZbJi4Li'Zi:„ :a9?'r5)Zi:IS 
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19.800R-* yx-y • 

49.*800R-^ 39,800R 7.000X6-3.600X12 


CZ-8TM1 SHARP(XI) 

SR-30 EPSOnUi.MZ) 

SR-120AT EPSON(XI.MZ) 

( ) 

MZffl x-*7K2 + ('7-ya)28.000-22,OOOR 
MULTIPLAN(7’y + -)40.000- 34,000R 
Hu-CALBKV>)45,000-38,OOOR 
h'-y uy (OAx -y 48.000-40,000 R 
XI^-4:ffl IVlultiplan(CZ-127MF) - 49.800R-42,OOOR 

turboZ”STAFF(CZ-137SF) 19,800R-1 7,000R 
«*®y-4{(CZ-114SF) 17.800R-16,000R 

turboCP/MV22(CZ-I30SF) I4.800R-1 3,000R 


eil!»rSS12®'y-7K-K«:lB) 

tSaKatZM/ 


SMBtSmOK/ Sffi&fijyu-yyho f^^gl»->XTAo 


fc3S:tAv'l3»;0'2(5)~72lali 

^a<7)fiS*fcOK./ 

iSa<7)«*^tSft.'' ««T®Uy-liX./ a4i!lUii»o<ij2U->j|‘. 779-t-txmo 


fc^t,<3V<V 3 >4-7151U tXt? #>-3ttA\.'(l 6 TS—miHX tth'Vmizti 

■tth, ii^m>7’^>lZSoVXff^j: ^LdlT^vv 7j±<7>t$imiri:':>X 

V'i-r^.fcWKt-fc-PoTg-ti-T^i.- 3.tr.<n4ttthPMiizh»LiTfi' 












































































































































































COMPUTER 
hBANK 


■fssi! 


OL\(Ct^x7^SZ!S^a^/£/X-IG 

/U/D^tLE 



A-62 

'VKVUVxbtfX-lG model I01z':/K" 

SHARP CZ-820C ¥ 69.800 

SHARP CZ-820D ¥ 79.800 

-- 

1 ¥4,000¥ 13,000X4[11 

2 ¥6,OOOx ¥ I 2 , 000x30 

3¥12,600x 

..3';i^N0. A-63 

'V\”V 13 >xbt:X-lG model 30tz':^ S" 

SHARP CZ-822C ¥118.000 

SHARP CZ-820D ¥ 79.800 

■ - - ■ ¥aa7r8mj 

1 ¥5,000X240[.1*;-:^;^)¥ 19,000x40 

2 ¥7,OOOxi80C/1^-:f;^] ¥21,000X30 
3¥15,200x l20C/1^-:^:^]^L 

.• 3';i5^NO. A-64 

'VVV 0 >T L/ t'X-l G model 307U 

SHARP CZ-822C ¥118.000 

SHARP CZ-820D ¥ 79.800 

STAR 24K7l'^fe?;il^7'j>^ + ^-77U¥ 73.250 
-^27+T«5(r 




-¥216,800 


1 ¥4,OOOx360C/-r^-:^:^] ¥ 20 , 000 X 60 

2 ¥7, OOOx 240 C/ 1 -x-:^;^] ¥ 21 , 000 X 40 
I ¥10,500 x240[;l^-:^:^}feL 


CZ-8PC1 

☆ C;± 5 ;N 0 .B -24 

CZ-8PCH-^-77u Y69.800 

vMrm 

I ¥3,800x180 2¥5,500x120 



z/v&izmm 


*3-;iXNO.A-50 

"5’-/Ktf'aiKC/V9-P'>7" 

SHARP CZ-856C 
SHARP CZ-855D 


' • I ?. * n i ^ 

■ * ^ • 5 3 

ii’i i!T 



¥178.000 

¥119.800 

-M297-re0fr 


.•.3';i5z:NO. A-51 

"X-1 turbo U’y-ynmjtz'yh" 


28%OFF¥ 115,850^1 


☆ z:';i:^:NO.B-25 

TR-24X + yj 

-¥49,800 

I ¥3,200x180 2 ¥4,600x120 


0 ¥4,OOOx360[/-t^-:^:^] ¥ 18 , 000 X 60 
'ID ¥7,OOOx240C.-t-:-:h7] ¥ 18,000X40 
3¥1O,OOOx240C.tv-:^73&L 


SHARP CZ-856C 
SHARP CZ-855D 
STAR TR-24 + 7--7;u 

- 

- 


¥178.000 
¥119.800 
¥ 73.250 
¥ 39.800 
—¥440t€50 
-¥295,000 



^ ¥ 5 ,C)OOx 360 C/K-:^;^] ¥ 30 , 000 X 60 
2 ¥ 8,000 x 240 C/K--:^ 7 ] ¥ 38 , 000 X 40 

13 ¥10,000 X 360 r ' 1 *' - ^ L 


CZ-8PD2S 


☆ 2 ;i 5 !;NO.B -30 


52%OFF¥4l,8005l 


CZ-8PD2S + >r-7';u 

- 


XT^rBtJtl 

¥38.000 


I ¥3,500x120 2 ¥6,7OOx60 






XlG^TJl/10fe';/h«^«A®S 


T®!«« T®«IS 

X-l,i’-57<-yi’7A«.+ ¥107,000 

FM NEW7.+ ¥103,000 

PC-800IMKII.+ ¥110,000 

PC 8801 + ¥102,000 


XIG^riWOt-:/ h«^«IA©*S 


X-k^77-f7:5'7A'f^-' 

FM NEWT. 

PC-8001 MKII. 

PC-8801 MK11/30. 


T®Z^IS 

+ ¥188,000 
+ ¥184,000 
+ ¥191,000 
+ ¥143,000 


T^mm 

FM NEWT. 

PC-8001 MK II. 

PC-8801 MK 11/30. 


Tli^lS 

+ ¥148,000 
■+ ¥144,000 
■+ ¥151,000 
■+ ¥103,000 



KSp iz # K IS T'c'm A iz 4'n i-r. 

> 003 ( 797)1230 



£/a—;i/—A®lF>ilf!a# 

o bi/-S’Jb-'J-7.fflPC-9801li^‘7/ 










































































XYJJ f 

CZ-811C(x-if^x;ho) 

¥ 89,800^ ¥35,000 

CZ-811 □ ( 14-r ZOOO^^RGBTV) 

¥ 89,800^ ¥45,000 

X-1F^T^‘JH0tZ':/K 

(^^ + CZ-8I ID-TVxC^^yuO 

¥ 179,600^ ¥79,800 


tllltlu 

n 


CZ-856C(x-i:5'-.-r:ii) 

¥ m,m^¥125,000^W±M 

CZ-855D ( 15-l'>^s 4050^RGBT V) 
¥ ii9,800«^ ¥85,000^^±°u 

X-15^-7KII-tz':/h 

+ CZ-855D-T VxV:^7V<) 

¥ 297,800^ ¥208,000 



MZ-2800+l\/IZlT02 

+ CZ-8PD2(IO<>-7"Kyh7'J>^) 

¥ 147,800^ Y28,000 ¥ 79,800^ ¥35,000 ?/rp°af5]^|| 




SHARP 

.¥ 89,800i^y 18,000 

MZ-731 - ¥ 128,000^ ¥ 25,000 

MZ-2000(^j->TWK-T-5'lx^-5'm).¥ 218,000^ Y 32,000 

MZ-2000(GRAMJ.2.3-v-v(^/^).¥ 265,000i^ Y 45,000 

MZ-2200 + MZIT02(;f^i$ + #fflT-:?U^-f).¥ 147,800^ ¥ 28,000 

X-l(CZ800C.GRAM'f^.v-7:5^<7)-"'-^.¥ 187,OOO-^ ¥ 35,000 

X-IC(CZ80IC).¥ I 19,800^ 32,000 

X-ID(CZ802C).¥l98,000i4y 35,000 

X-ICs(CZ803C).¥ll9,800-^y 32,000 

X-ICk(CZ804C).¥ 139,000^ K 38,000 

X-1DIGRAM• yhU=l-^'l*3E) •••¥ 89,800-^ K 32,000 

l2MI5B(l2i'>^.2000^i?'U->).¥ 29,800^ K 12,000 

14(^15220(1405".4050^:^7-).¥ 99,800-^ K 52,000 

MZ-IDII (MZ-5500ffll205".4050?:(]7-).¥ 113,000-^ ¥ 48,000 

CZ-802D(I405".2000?RGBTV).¥ I28,000i4y 42,000 

y^jy^ 

CZ-8IP(l0'r>f-:^7-7P‘y:5^7'7>^).¥ 34,800-f y 14,000 

CZ-80PK(;||:^7'>I>:S').¥ I23,800i^ ¥ 32,000 

CZ-800P(K'yl'7‘U>:5').¥ 142,800^ y 35,000 

CZ-8PP2(:^7-7P'y^7';>:?).¥ 54,800^ y 28,000 

(v1Z-IP04(:f37-Oi2vx'yh7U>:5').¥ 228,000^ y 68,000 

I/0-720(*7-Oi:'vx>yh7U>5’) .¥ 340,000# y 68,000 


C-B, CLUB HOT INFORMATION 


-ecDfte 

CZ-300F(X-lffl3.5'r>5"FD IK7'1'7').¥ 79,800#y 28,000 

fv1Z-IS05(xV77V<7:?>K).¥ 7,000# ¥ 4,000 

IVIZ-IT02(MZ-2200fflx-5^UP-y).¥ 19,800# ¥ 8,000 

rVIZ-IU0l(lVlZ-2000fflJ/i:5II/OP.--yh).¥ 37,000# y 10,000 

IVlZ-IE24(fMZ-2000-80BfflRS-232C I/F:(]-K)---¥ 19,800# y 7,000 

. ¥ 24,800#y 11,000 

CZ-8RB(R0IV1-BASIC*-K).¥ I9,800#y 8,000 

CZ-8IEB(X-ICffl}J^;^I/0/-f^y^7).¥ 29,800#y 13,000 

* S»a±S•^5®=l-:^- * 

* X11/ U —=1 -i— * 

.¥ 89,800# y 35,000 

X-IF/l0-tz-yK^l^+CZ8liD*TVT-f;^7K) ¥ 179,600# y 79,800 

X-IF^x;U20(;ii:ROM-5<>5FOiSl^flil)^a°aIS)>^ ¥ 139,800# y 85,000 
X-IF/20'tZ-yh(:|^1$+CZ8IID-TVT<77U^) ¥ 229,600# ¥ 128,000 

X-l5'-4-Ul-tz-yh(CZ856C) 4$Jip°p .¥ 178,000# yi25,000 

X-l:5'-/TUl'tz-yK^l^+CZ855D-TVT-fX7U^) 4#±p°p ¥ 297,800# ¥ 208,000 

f\4D-l2PI(l2'f>f-.4050:^i/'j-» ^p^I5^, ••••¥ 39,800#y 28,000 

49,800# y 38,000 
CU-l4H2(l4'f>f-.4050l=Tv:$';U:(37-) •••¥ 99,800# y 55,000 

CU-l4A2(l4^>5".4050l:7ta^':(37-)'^p^l5];(i ■••¥ 99,800# y 59,800 
CZ-81 ID(l4^>5".2000:^RGBTV)l^p°pii^"--¥ 89,800#y 45,000 
CZ-855D(I5<>^.4050:|:RGBTV) ¥ 119,800# ¥ 85,000 

CZ-8PD2{IO'f>5"K‘yhy7>5') ^p°pI^^ .¥ 79,800# y 35,000 

¥ 47,600# y 25,000 



#M®g«ffl:SA¥>5EnA®7?r. nVfa-^'tf'a^L/LV (!:L^57?tf'^.^6oL/¥>L^*Ufc6, IfU' 
®e»ic Bits la® tt u V5 y u tz > h u/c u ^-r o 

* <75<i:SM®75A\ L^o U J; C33®iSUfcfc'B*lBOK iU5®mB'>y7^Ar-ro 


o^iilj0^ss^^L^^n=bPI^SB^•r0r'^1■<"33ffllSTc^^L^o 



[D.iPiSS33$fcU/^ J 

A”yzi>:s«tsi2|s:rg$UMroD*-ro 1 in 

WtA;/<HpJl.»n4JT2:i^t5S«WJI.-X'JJH>U»7CU3: g o 

003(797)1221 

^y7-<'y7D>t:n-57/ \yc> 

=f150 S«i?^§lx^S1-6-8 
^IIKS/AM9:30~PM10:00 


] 

h'COK AU'^vyuv'^stijjSL^^-ro 


I 

BHIiSS^ §sq’®^L'75rt,S/L,'r'^<, 

SliTIXIO 

I 

SliMlS 0 I A:rBD. 

\^XV7^7-ix ®5SSlJaBSffl^ts^^At^r'□ Kc 

I 

tK—5'7— iisaaspaATc^^ a^jAuiJA-t akic„ 



















































































■‘»7JbrffiUWVKV3>5-:/^7-T;^^7.^i7 

I ~3.—[^z^iLj>)i> iyi»igi»ii EIEE9-^ iyiiiign)!L 

I _ Hhi 

9o ^-f';^7u-r p 1 

ct -I® Jf ^H 

^ ~M —^ 1 I I 


/\>^-i'9-7D^ 

O AISfiSa 

□73ETG-10 

¥6,800 


yKV=l>bf-T7t-^‘V7 S/77 -Ax77~| 

¥18,000 5/>3-@0PVR-54 lU;t;>hER-1200 

^: 18600 X B$855~1185 x 11(7655% ¥13,800¥29,800 


:iip-7rN-K®^s®©/j\^ 

iitiC'fcci;5C(3:n^^o 

A*V3>7U-:^- 

$^^-7EC-H41F 

¥ 10,000 


^U--->77=^77 

7D'Vt:YCD 

7^K3Z^AFC-20 /\^vKffi^lZ / 

¥4,500 7K3A ¥3,500 

3.5-<>5^ 20«ilR)»« ®5-r>5^@3.5'r>5^ 


x>r 777-7 

7?K3Z^AMC-50 

¥3.800 

5-<>5^ 50«?UKiW 


OA«3g7':/7 

75/37;UWCH 4511 T V7 •< JU7—(14-f 

yY77-<Jl/7-¥6,980 mbE7YJU7-NEW14 

¥9,600 


x7D7 

Xb7* ¥8,700 


is©/ivD>r 

2effiRS-232C 


iM:0:B:EMiawi 


m®7'J75?<i: 

2^®/ 

Avi3>ta]g?§ 

¥9.800 

yWD7l-i—^ 

y\V372-^^ 

KSW-C 


X_i_r-7U>571 

^ '^7iJ>72 
KSW-X1 ¥12,800 
X-ir2S®7'J>7^ 


•7"'<77b'< 
/WD71-I to^- 
yW3>2-^ l7U-7 
KSW-D 

8l:::7RGBv7U-72fi?1^ 

¥9,800 


300(±za)- 

i200(¥za) 

MZ-2500<i:)S§a!^ 

gfi) 

^v-y 

MZ-1X19 

¥69,800 


»^ pn-i360K ¥32,800 

•f^^AMi6KBra^®|7iL-ju^o7ni3:« mxmKB(DX^m^=tUo 

• •;(= *340.000B®S«®SO 

»lgc!iAu<i;®FC-15005/U-7®V7h;tf®ra^ BBI] FC-1360 ¥25,800 

___ m-fumae FC-1360K® 

■7|\< r3>BSwla 

ISmPC-1600K^^«l^ 

©CE-1600F ¥64,800 4g7D'y97U>9 @CE-1600L ¥ 1 7,200 ^t7W/\-7-7Jb 

@CE-1600F ¥34,800 7D've-t'K^i'7 (g)CE-1650F ¥ 9,800 CE-1600FS7 y77(106J) 

@CE-1600M ¥28,000 32KBRAMt7:i-jL ©CE-IBSOH ¥1 1, 800 3tfD9^S®^»ROM 


x7V> 

SR-120AT ¥49,800 

3oo(^za) • i200(^za)e)g5i 


3{)0(^za)-i200(^za) 


I LED^tf 

1 

* FV-2123 

¥24,800 

cy-yibm 

RS-232C7-7JU 


5/l:^-7CZ-8TM1 

¥29,800 

300(±Z*)ailV7h- 

RS-232C7-7yH^1ffl 


H7^77—7a> 
7 i:'-7CZ-136SF 

¥9,800 

x-iry vjyy'Mmo) 


CE-124 ^ 

¥4,000 

FC-1245~1360^ 

X3-tZ':yh-t'>7-7x-<7 


CE-202M cm 

¥16,000 

FC-1350-1360-1450-2500^ 


mnmm 

tiy^ C-343-A 

¥38,000 


CE-126F pc-1245~1360ffi 

¥15,800 y-y)iyuy^ 


X-17-/Tn(I1) 

Ko 7D'Vh 
[zmy'^3>s 

RS-232C • 

^7x^-7 

-7yu -mm 

V7hm 


JKyuy 

®fiV7h 

yv-y 

CZ-131SF 

X-17-7tN 

(ii)ffl 

¥8,800 


CE-125S 

¥24,800 

FC-1245-1261 
777DbZ-7m7U>7 


us^y)75-tfyi7^>Si±iy0B,!!l&IP CMTlLOCflB csssna; 


“1 

t) Z? — 

—i 

7'J-7 


SHARP 

4’ 

1 

ft 

RAM G\Rp 16^ 























































































j&pigserso m. 



Personal Computer Store 






IS 


v **»««Eaia«2TB28#4(KTl50) 

15(03)496-4141 


a'g'nfeioetmccao'caos^o) 



5"ED 

5"2DD 

5"2HD 

3.5"1DD 

3.5"2D 

3.5"2DD 

•7 ^7 -tz )U 

(D¥3,200 

(D¥4,600 

@¥6,400 

@¥6,700 

@¥6,700 

@¥8,400 

^ 'J - M 

(D¥3,200 

(D¥4,600 

@¥6,400 

@¥6,700 

@¥6,700 

@¥8,400 


®¥3,400 

®¥4,700 

@¥6,300 

@¥7,300 

@¥7,300 

@¥8,700 

X— 

®¥3,000 

®¥4,000 

@¥6,900 

@¥7,100 

@¥7,100 

@¥8,500 

7 s; 

(5)¥3,400 

@¥4,800 

@¥6,500 

@¥7,200 

@¥7,200 

@¥8,500 

V “ “ 

®¥3,200 

@¥4,600 

@¥6,000 

@¥7,100 

@¥7,100 

@¥8,900 

TDK 

(2)¥3,400 

@¥4,400 

@¥6,500 

@¥7,500 

®¥7,500 

@¥8,800 


r'(7s<p 

i/v-y 

M2-6F03 

¥4,500 


l<MZ-25007f72/3» m 



■ f# 


™iOI«MASTBI“o»l 



■ I 



MZ-1E26 

¥24,800 


MZ-1M10 

¥14,500 

73Z?—I \U'Vh 
7t\—K 


¥10,000 

MZ-1M08 

MZ-2500/1500S 

7K'f':^7r\-K 


MZ-1X10 

¥19,800 

^07. 


MZ-6Z001 

¥16,800 


MZ-1R28 

¥22,000 

MZ2500ffiNS?»ROM 


RM-25A-1 

¥13,100 

MZ-2500ffl 

RAM;0-K 


RM-25A-2 

¥12,100 

MZ-2500ffl ™-25E(^KB)) 
«SRAM;o-K ¥49,800 


|f-^b3-5^ 



CZ-8RL1 

¥24,800 


l<X-l7r»a» 



5/i^-7CZ-8BV1 

¥39,800 


ivuy^ 



^v-ywiz-m? 

¥69,800 

X-1-MZ-2500(Z^liS 


x-mm^y'jy^fs 
■T'iumo 
-TR-24X 








¥32,000 


y'jy'SfJV'jyy dz^hos) 

@>t;uDCP-64(64KB) ¥49300 
© >.;UDCP-256(256KB)¥69300 




MZ-1R29 
MZ-1P17ffl^27Km 
SJ^ROM ¥32,000 


IX-1/X-1^-7lt2/XyAV:7h 


@ s 

m m ^ 

m « 

5/7TLa-tf-8!i(9-7rs) 

®CZ-111SF(2D*5'FD)S) 

8 . 80 ora 

J8»B5'-7n(70Xm) 

®CZ-114SF(2D-5'FD)I§) 

17.800P3 

tortX) LOGCX*?®) 

@CZ-117SF(2D-5-FD)!fi) 

18.800R 

yyf-y725)-{CP/m) 

@CZ-128SF(2D-5'FD)!fi) 

9.800R 

turbo CP/M(*?)!fi) 

©CZ-130SF(2D-5*FDIS) 

14.800R 


FORTRAN 

©CZ-115LF(2D-5'FD)!fi) 

13.800R 

_ 

C • 

(2)CZ-116LF(2D-5’FDI!fi) 

13.800R 

y 

turbo L0G0(1?® 

@CZ-117SF(2D-5'FDI!fi) 

18.800R 

y 

1 

COBOL 

(S)CZ-118LF(2D-5-FD)!fi) 

13.800R 

y 

PROLOG 

@CZ-119LF(2D*5-FDIIfi) 

13.800R 

y 

1 j 

LISP 

®CZ-120LF(2D-5'FD)lfi) 

13.800R 

1 

FORTH 

®CZ-121LF(2D-5*FD)S) 

13.800R 


PASCAL 

©CZ-125LF 

13.800R 


APL 

@CZ-126LF 

13.800R 


X-1«/^-7’:/74t5NEW BASIC 
(Ver.2.0) 



mas 

iffi fg 

CZ-800C 

CZ-801C 

CZ-802C 

CZ-803C 

CZ-804C 

@Z)1Z'yhllgCZ-112SF 

¥7,800 

^rpom CZ-113SF 

¥8,800 

@5"FDI!S CZ-123SF 

¥8,800 


IgM^ROM n 


®CZ-8BK2 X-1FS12KSR0M ¥19,800 
®CZ-88K3 X-15'-;R«2**ROM ¥13,800 

@CZ-8BK4 X-1-9-/-K2S822KaROM ¥6,800 




:iFUKUj« • 


iS®;i32:SCC:?feii@SSCD)i3ZNo 

«scr sjtep* 

u\Eu^g'. 

K^sigiiiytr^uizv^n 




u<iaa«iscraroH.\®iDt*Tau\„ 

0(03)496-4141 




TEL 




SJtNQ 

m m 


M10- ( ) 


ra 

M10- ( ) 


R 

S it 

I 

R 

I mmm 


35^'^d>9c : ^«i5^SEjlB;J§2Tg28S4g(=r15O),0&IP>^S)£:?<--)U5/3'Vt:>^« 


































































































































JtePv:7hiiiiis^ 




¥7.800(3.5dd) 


^ Nq 

M10-1 

ii ffi « a 

MZ-2500 

'jyH\ox 



XA%07’->~mm ’’V'j 
tiv^'^yj-v-c. 
aorg»o 

ei!fflfflii-Kr7L/-f"CS 

s»Lt\-r-Zjo 



¥6j800(3.5'dd) 


at nq 

M10-2 

s f(5 « a 

MZ-2500 

'^yhi\ox 

^y^u\ox 


imo)'jyii>s-<u ■ □- 
;i/7'UY>'7<r-^o yii 
zj^-saT.c'D-iuzfg' 
«e>U<x %^(DI\-<7.0 

Co 



i a 32: nq 

M10-3 

I a fi5 a a 

MZ-2500 

1 V7h/\OX 

C 

T 

IT 


^VKAtJSSo 


¥7.800(3.5dd) 


52 -r h ju 

3:;^='yC7VJi/yf- 

■tftrrox 


\ioZhS>iX(DXm 

i4F'y-i'K/\-r'7 

u—[-^zpyx— 

^y^yrnmns 


a fs a a 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

V:7S/\07. 



yvyy-ib 

xC7yV7S 

/\KV> 

V7h7D 

-px^- 


a3z:NQ I 

M10-4 I ¥3.800(1500) 

M10-5 I ¥6.800(3500) 

M10-6 1 ¥6.800(3500) 

M10-7 |¥4.800(QD) 

M10-8 1 ¥6.800(35*00) 

M10-9 1 ¥6.800(3500) 

M10-10 1 ¥6.800(3500) 

Ml 0-11 1 ¥6.800(35*00) 

52 -r h Jb 


rx-yyy^yi^- 


t)y-rFX3-y 


Utf-K 

h'JS“> 

y^yxxyx-x 

a fs a a 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

V7h/\OX 


d8V:7S 


7n'5/ht:- 


C7U;^52JbV7h 


B-P-S 

a3tNQ I 

M10-12 I ¥8.800(3500) 

M10-13 I ¥6.800(3500) 

M10-14 1 ¥7.900(3500) 

M10-15 1 ¥9.800(35TO) 

M10-16 1 ¥9.800(35*00) 

M10-17 1 ¥6.800(35*00) 

M10-18 1 ¥6.800(35*00) 

M10-19 1 ¥7.500(35*00) 

52 -r h Jb 

mx^ 

yti'yu 



mmcomm 

9vy\^yyyuvx 

/WK^-fK 

7'J'ydF— 

a fi5 a a 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2200/2500 

MZ-2000/2200/2500 

MZ-2000/2200/2500 

v^hAo:;?. 

S-P-S 

5*-tr-V72h 

5^-520x7.^ 

/K=- 



TaE 


^NolffilS 

M10-20 I ¥7.000(35'00) 

M10-21 I ¥6.800(35'OO) 

M10-22 1 ¥6.500(35'00) 

M10-23 1 ¥6.800(35'00) 

M10-24 1 ¥6.800(35*00) 

M10-25 1 ¥4.800(7-7) 

M10-26 1 ¥4.800(7-7) 

M10-27 1 ¥4.800(7-7) 

52 -r h jb 

F2'y^yy'j 



y^X'^'y-1'y 

vvyE. 

?5^E 



a fs a a 

MZ-2200 

MZ-2200 

MZ-2200 

MZ-2000/2200 

MZ-2000/2200 

MZ-2200/2200 

MZ-1500/X-1 

MZ-1500 

V7h/\07. 


:i|FT»'J-^7K 

/\KV> 


/\Kv:/ 

/\Kv:/ 


/\KV> 

^3tNQ I fifilg 

M10-28 I ¥3.80(Kt-7) 

M10-29 I ¥4.200(f-7) 

M10-30 1 ¥3.600(7-7) 

Ml 0-31 1 ¥4.800(7-7) 

M10-32 1 ¥4.000(7-7) 

Ml 0-33 1 ¥4.000(7-7) 

M10-34 1 ¥4.500(7-7) 

M10-35 1 ¥5.800(QD) 

52 -r h Jb 



X^-tJ-rhESAE* 


FIVP-13(Dm 


v’Ziyy-ibF 


a fs a a 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

v32h/\o:^ 


V7h7D 


iL-n-T. 

=L^/\-X 

/\KV> 

APV> 

/\KV> 

aE^Nolffits 

M10-36 I ¥4.800(00) 

M10-37 I ¥4.800(QD) 

M10-38 1 ¥4.800(QD) 

M10-39 1 ¥5.200(00) 

M10-40 1 ¥4.800(QD) 

M10-41 1 ¥5.800(QD) 

M10-42 I ¥5.000(QD) 

Ml 0-43 1 ¥5.800(QD) 


■X-lS/'J-Xr-^IK 


/WK5-rKii 



M10-44 


yyhi\oy 


TSE 


?:tgR.P.G;-14ffl®«ffi 

rgasso y'^yaiw 
K5-('K®6e- atpx- 

-9®t-7-0-K‘feBI*o 


X1/F/T 


¥4>800 





¥4>800 


^ 3t Nq 

M10-45 

a fi5 a a 

X-1 

V7h/\07. 



mm(r)'jpiby-<L. ■ □- 
)[,yo-i'y'7'T-u. 7JU 
n^y-^rnyya-iom 
ii6b<. 'iStM.(Di\-<yy 
o-}UDm^^<yaxi. 

Co 



y^bAhPX 


¥5.800 


3t Nq 

M10-46 ■ 

a fiSi a a 

X-1/F/T 

v:7h/\07. 

B:$:xb^'yh 


SCWBTVZjj'.xZftS 

x.c<f;oc. 

mmtfmmyoo-iu 

c®c^ri3m^5®t. 

rdOtiOUPIU 


52 -t* h Jb 


7DU7X^5/-PJU 

sxm(Dy)uy 

yoyz'vy3fmt 



yijy^- 

>^OSD-fK 

a fs a a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

v32h/\o;^ 

B:^32>?;bDA 

V-r^D^':/F 

y\Kv> 


/\KV> 

B:$:X— 


Pyt3)iyX- 

a3tNQ 1 mm 

M10-47 1 ¥6.800 

M10-48 1 ¥4.800 

M10-49 1 ¥4.000 

M10-50 1 ¥4.800 

M10-51 1 ¥4.000 

M10-52 1 ¥4.800 

M10-53 1 ¥4.800 

M10-54 1 ¥4.800 

52 -f h Jb 




T0KY0t>/ah'J“h 

o-ryyyy 

XU* 

hUI-> 

mxms^mnm) 

a iCi a a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

v:7h/\o:x 

i^s-73-yO 



XZ'V^T. 

xz'>-:7:7 



SPS 

^NalffitS 

M10-55 1 ¥4.500 

M10-56 1 ¥4.500 

M10-57 1 ¥4.800 

M10-58 1 ¥4.800 

M10-59 1 ¥4.800 

M10-60 1 ¥4.800 

M10-61 1 ¥4.800 

M10-62 1 ¥4.500 

52 -r s Jb 

y=5yoxyx-x 

^x^-}\yy 

yyy- 

/WK^-TK 

^y^ymARS 

F)lfp-:fia)m 

Xti-l'yh? 

y-ii^Fyiby 

a fi5 a a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V52S/\'77. 

B-P-S 

NCS 

;^520x>2 

TaEV52h 


^-r□>V52h 

V52h^D 


1 mm 

M10-63 1 ¥5.800 

M10-64 1 ¥4.800 

M10-65 1 ¥5.800 

M10-66 1 ¥4.800 

M10-67 1 ¥4.800 

Ml 0-68 1 ¥3.800 

M10-69 1 ¥3.800 

M10-70 1 ¥4.800(7-7) 



























































































































Personal Computer Store 



mx-ii/u-xs^^^T'fx^Ksi 

UU'7X 









/X 


S IS 


*«IIi!!BEiIla2Ti28#4<»(Tl50) 

»(03)496-4141 



^ 3:?: nq 

M10-71 

a £&) % 9 

X-1/F/T 

yyh/\ox 

i^s-y=T'vo 


¥7,200 


Coe5a®^K5^200C 

fflxs*»acs'CES± 

■ yonw&y- 






?S Nq 

M10-72 

|t'. 

m m m m 

X-1/F/T 

yyH\ox 



¥5,900 


P=>.gKZf>7JU7>’jS 

;^K-ij-fflsm 

^y-y-^>^ym}ox 

nES-F;^i—u-fflR- 
P-Go 



^ y: fto 

M10-73 

m m m m. 

X-1/F/T 

yy\^j\oy 

XU'i/OX . 

-=fe 


¥6,800 


B!)fPO-i'>'7V>^55l5B 

<r'6. —V 

-555)5a<rfe^u<iE 
^Ss S>feU5>’K^>5' 

•P—o 


5^ -r K JU 

■37>7t\— 



7bY>7U-*- 

U1f-h 

T-a-y-ibi^ 


SUI —> 

}8 tt5 9 9 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

yyb^noy 

B:^I— 

SPS 

yyhyo 

xx^'jyy 

'y^jyy)\jyyv^ 

/\FV> 

B^yj^)\y3L 

y-^yyyh 

;'S3J:Nq I 

M10-74 I ¥6.800 

M10-75 I ¥6.500 

M10-76 I ¥5.800 

M10-77 1 ¥5.600 

Ml 0-78 1 ¥6.800 

M10-79 1 ¥6.800 

M10-80 1 ¥7.800 

M10-81 1 ¥6.800 

5? -r h iu 

707i'VE/3tJbSt 


p;b/\SD;i 

y-iii^yivy 

□— 


yuy:^- 


S fSi 9 9 

X-1/Turbo9ffl 

X-1/F/T 

X-1 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

yy^noy 

S/l^yp-jU 

yyojij> 


xx-voy 

V7F7D 

yuyy)\yyy\- 

y-ryo=^'i/h- 

BPS 

SEXNq I iB^g 

M10-82 I ¥6.800 

M10-83 I ¥6.800 

M10-84 I ¥8.800 

M10-85 1 ¥5.800 

M10-86 1 ¥5.800 

M10-87 1 ¥7.800 

M10-88 1 ¥6.800 

M10-89 1 ¥7.800 

5^ -r h ;i/ 


:^}b'\y^-)b 

/WK^-fKIl 

^7iP7SO^-7 



IJ757 

j^uy^y 

}S fSi 9 9 

X-'iSf-TK 

X-1/F/T 

x -1 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

v^h/\o:^ 



TaE 

yy^- 


Ty^- 

yyyu \oy 

j>y^- 

aJtNQ I ffi« 

M10-90 I ¥7.800 

M10-91 I ¥7.900 

M10-92 i ¥6.800 

M10-93 1 ¥6.800 

M10-94 1 ¥6.800 

M10-95 1 ¥7.200 

M10-96 1 ¥6.800 

M10-97 1 ¥7,800 

5^ -r h )u 


O-r+f-KU- 

□7ttu;^200i 

!ii£/W — SB® 


»i/-i'K;^D-7ie?FSi 

— 


ii S 9 9 

X-1/F/T 

X-1/F/T 

x -1 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

v^'h/No;^ 




rcs-y=T^)^y 

xx^i/yy 



J’-h^-ryy 

aXNolffiffi 

M10-98 I ¥6.800 

M10-99 1 ¥9.800 

M1O-100 1 ¥6.800 

M10-101 1 ¥6.200 

M1O-102 1 ¥5.800 

M1O-103 1 ¥6.800 

M1O-104 1 ¥14.800 

Mio-m 1 ¥7.800 




«)ftS8t6«(DV3?h73'-tZ'Vh^n;£S 
s»v:7Krg-o 



The' 

5/1?-7X-1 F 

5"2D 


^ ffi 

19,800 H 12,800 




^Nq 

afs«a 

S^-YMU 

v:7h/\ox 

:Ky‘-f7> 

fifi IS 

f*3 § 

M10-106 

MZ-2500 

a-^5K2 


3.5'DD 

¥ 2 a 000 

-eATD. 3^»^S«iet.««lo 0’D'VC7A7D«eU«) 

Ml 0-107 

X-19-/K 

}^voxm9i& 

OAX'V^ 

5'2D 

¥48.000 

X}>5?>»i^rgfflias-o< Oo ® t)H5iJ5»o usto mWiyoyyL,tmm^^no 

Ml 0-108 

X-15>-7K 

B^mo-ya 

^L^yyyy'i/h^ 

5'2D 

¥39.800 

9996CDg»»fiX»^giiCUCfffiU‘pg-$o 16t^'VKCB*«ft^ll^ / 

M10-109 

X-15?-/t< 

Multiplan 

yv-y 

5'2D 

¥49.800 

16tr'vl-«ru7^«zy7)eaBCD7?;^^7=5>zfx-15>-/r^rwr«w^ k^y=^y\zts.ifuism\^ 

ei/vyoh-rg-o 

M10-110 

X-IS'-^I 

H-ZJ^POP 

mmoux-Th 

5'2D 

¥ 2 aooo 

x?®ssA^ eo)to^ x«i^fixzf«micr«€)xut:x t^^;Ta®cxD'v7'«5^fe«gBo 

M1H11 

X-15^-7t1 

B^My CARO 

7>/\Dy 

5'2D 

¥58.000 


Ml 0-112 

X-IS'-tK 

Hu CALB:^ 

/\FV> 

5*'2D 

¥45.000 

»?:)!gRil8t»V37ho 255 x 10.001(7®ASSilStffl»r^-57®IJiEA7Dfe««o 

Ml 0-113 

MZ-2500 

TURBO PASCAL 
(Ver3.0) 

MSK 

3.5'2DD 

¥29.000 

l!3® • 1B®tg®Pascaa>/W^-:^/MZ-2500■C'feC:^lJffl^/^C^^I03;^o 

M10-114 

X-15>-41 

Inkpot (70X13) 

j>y^- 

5'2D 

¥38.000 

I777^5/«^C14««®^>5t«i:37«a®57-<h;i// 15?->«ffl)»U3:ueo yOX^&-::> 

X99s^fsmmmmv9iigt^z2y\^a-)u 

Ml 0-115 

X-15>-7K 

Eonxn 

=E-uy 

5'2D 

¥14.000 

24K'VKO'U>-9B49VCfc24K'Vh-ED?=E^BCU8:g-o 1/4ftx W^I7> 9SWED^fe 

•ce3^«RSifee77CU3:g-o 

Ml 0-116 

MZ-2500 

z7^-ai« 

y-(yoTj> 

3.5'2DD 

¥iaooo 

v7?Krg-o 


:SFUKUI>* < 


S®;432:SC c:mH@SSG);i3Z:No 
aci^D-'ffiisPMcriBAcDJi. 
«@izr dJ&p jwsiB^ra^u 
iZva<e'au\o 

sa, »s#ig]i(5^r«Gi2^sn 


► 


»§e«Eiii9t-cD V 7 h ® s 9- 

®r., i¥u<»a®iScraFo%\eo 

ttTstN. 0(03)496-4141 


a<LC5 

aXNQ(?7^^S) 

m m 


TEL ( ) 

M10- ( ) 


P9 

M10- ( ) 


ra 

M10- ( ) 


ra 


□ of 


R 


( ) 


d5^'^a>9c : ^«a5.^SE3lSJg2Te28S4^(T150)dl&i>^S)B>--;b5/3'Vt:^-7® 






































































































































J) ^ ff J 


FM/SSGifiSMieM USIC EDITOR" ^^<>yK^r^/v 


;lOr4+^ ,. 


Sttsa!!"?. 

/>» tiisa!! V 

r,,. , f 




MUSIC EDITOR 


L. 


OT(7)4'l'Afc^‘j/it'Afe 
—mitxxv^ 

A :/j ^ a T'^f + 3 - K (=e^) 0 

2^'°-hA*/J't)r'6*?ll«*'0i;jijii#-r'|!, A- 
i-Ccr>TOOLX>)Ay}!>\ 

*'4-i.'Af!>flJ|tt. 


^(7)iiiR,f^l'<7)Jt-^igxrv^ 

FMififsw-tfetgftitiaiiig-r'&siiioaTOOLo 
POP4#. ''-ir-yi'fj:^. 45<7)®tt:^.@.i'&') 
««! 




7 


m 


m 




fsm 


Pi5>5< 




•WJl/MUSIC 

Awy)T<;)Aizt,f»iii 

•ift7ra7;b 


/ 

-'7+'7+7V—lr— 

f1-:offfl4-if»-407°o^’'7A-iriK#t'S4*-h 

'-nitiw-te, xEMPo^i' 


MZ-2500 (SUPER 

• 4; (+; RAM/256KB-VRAM/128KB-DRIVE/2K7'f7' 

• CRT MZ-1D22&(/4()07X;!?CRT 


3.5'f>-?^7P'yt-x-fA^ ^ffi7)800R 


wJ 


► LODE RUNNER (ipjtBRODER BUND:}±c7)^if ^^TTo 


I Qhampionsliip 

rife 


taile Runner. 


SUPER SOFTWARE LAB. 

^UN^vel^se 

f700 PIlllflJT't«ff519-l TEL(0862)44-1176 PM1;00~PM7;00 















-y—'Wf jg A»»fcoT„ 
ae.4'i. 'Att<"S4*.lc4-ti5, tf $BS£jS*''T#5o 

A4x-^'SJIin5„ fc9F;'<U*T'lit>gro-aiC„ 

J&P**6><?)4b'3EP6-a: 

^3S^#'W^B••^^■>^'^f^g•@■^I•tzSy—r*rt4i:./<va 
>v-T46aiI'ti4i- 'tf ^S4'7;b'7'f >y--y^o 

HOT LINEt:«v> 

fztzWtJtHi0. HOTLINE7#V 

>li.mu ' iill»« ,*A.4T'T)<5«^ vAvVT'fo 


^./'-K1f$g-V7h1ifg 

*)iSp°ptf oncM^ $g*4'o 

tft 'o 0 *« A(7)/ N-vii>SF1EJ&P4e.r'tt(7)tf lEST'To 

< 3 . =l>-9-h-«Sil-JKtT'lilB 

v&j tsmmm-ex±mtmino 5^47 
4i:, Sg4ttSB4'T<Tc¥i;AHSt, 

mii(T>illlSl*''4'rA744HCA#T'#5t5liie'ti$B'fjS^’f 
'ft$g4t-a-AV-AUaa'o ■? CD#, S'44vV>JK0 

S4ffilfTi.'4-ro 


=l>+t—Hf S3U\=tiS*7iV X— 




m^lB>it^Eiii:J®2Tg28#4^ 0(03) 496-4141 
BT BB ia IT §39-16 0(0427)23-1313 

AiTia iii5Ai^ajiBii#i§ Ai^icr^yp 0(0426)26-4141 

x^yT>K :^PJ5m>SiIEa4^^§5T§6#7^ 0(06) 644-1413 
;<tV 77>K :*:PJ5m>SiIIEB^^5T§9#ll^ o(06) 644-1613 
7-7‘P7>K ;*:PJ5m>^iIEa:^^i4Tg9#15-^ o(06) 644-1150 
tyT^7>K ±f!5?li:ltE^Sffll-1-3 ±ra8l|^3t:7l/B2 o(06) 348-1881 
;*:PM4bIE2Bai-l-3 PJ5iiH#tiiB1 o(06) 374-3311 

;iMiS®i«m;^i)iiBTii - 160 ( 0726 ) 85-1212 


<'f(iia ^:^m4i?i^7E®HT I5 - 2 0(0720)56-8181 
TM^t^^Ja i4>rfiiSrflIBri-3-204 0(06) 834-4141 

^tP#BDa 0(075)341-3571 

ia (g2SffjM^lTg1#ftt4^®?S(?it7HF 0(0792)22-1221 
^^Olia ^DitLUm5c#Bl4 - 8-1 0(0734)28-1441 
^7 /\'ja ^*lfli+E5l^3T§4-5 SAKAEN0VA6F 0(052)261-9201 

Eg a rtiia Egammii(oi!g2-i-i9 0 ( 0593 ) 54-3366 

>$ ia >t rfi A P*9 31 - 20 0(0592)26-0111 


Personal Computer Store 


/ 































• Jlle(7)77K^li^(7)-fiSJT•r<.lfL<{l*MZ APPLICATION NEWS'»a-K7>d--(lUSA Broderbund Software 


^*tT545:k:E6mHfgi?IEft;W22#22-§-S(06)621-1221 (*«*)• 

ihilliz (1^U4^y'7 Printed in Japan !^!ffi480R ^6i^^02179—10 


^ .V ' 


i:r'V7”$i±%RAM7T-f-'K2l-7->3»#fc'L'«=^UfcOK./-}t'f7.7t^—KW7 


Ai:||c7) 14M*7-T-<7yH'CU-14F 800R(M-y'>3>T'ro •CRTSSIJ/v7=l$^^T'f¥v7*j (©«« 

:f-AD) (az/\-7) jK7K7mkIIj (xz-y:^^). '■iL-:f37J Jj (^;S7'Jx^'h), r 5^^- 

•7'y:?y>;^j(0-^:^)x'‘-^>^-7;l~7j(x77V7h)<!:‘J,«P-K7>t-(JUSA Broderbund Software lnc(7)lftffim*t‘o 




V7h>V>Jl' 

V 7 h ^ ^ 


Vy 

77h'7-t»>JL 

7 7 h ^ 


7 7 h ^-7>- 

7-' - A 

f-T>t'^>'>'y7o—K7>7—* 

5,000 

ZLZ/\'—7(P7^7|2]Uj) 

y - A 

/\';u—>7W h 

6,800 

/nK7> 


4,800 

7'f7a+-ft'> 

JOY JOY PACK SPECIAL 

9,800 

SBC77h7x7 

K;U7-*'(7)if 

4,800 



□.-*7JJ(MZ-lP17l^ffl) 

12,800 

misyjx^h 

7'P7'7- 

4,500 


NEW VIP 

12,800 

y'-t:'-77h 

Vi;>y77r7h'J — 

5,800 

□ A/\''y7 



^ 4,500 

l&WS^ 


5,800 



^ 7,800 

£^7)T^77+(7):^1P^ 

4,800 

^yyyyb 

4’^-Sim±#?4'>V-X 

# 4,500 

























